He's said
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
He's said

 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization
Author Message
Adesu
Guest
Posted: Tue Dec 28, 2004 5:07 am    Post subject: He's said Reply with quote
; face is meaning of face of people
; Design by Ade Suharna <mteybid@yuasabattery.co.id>
; 23 December 2004
; Program no.150/12/2004
; Edit by
(defun DTR (a)
(* pi (/ a 180.0)))
(defun c:face ()
(setq oldosmode (getvar "osmode")) ; get osmode setting
(setvar "osmode" 0) ; osmode set to 0
(setq oldcmdecho (getvar "cmdecho")) ; get cmdecho setting
(setvar "cmdecho" 0) ; cmdecho set to 0
(while
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: ")
rad 5)
(command "_circle" loc rad)
(setq cmouth (polar loc (dtr 270) 2.5)
lmouth (polar cmouth (dtr 0) 1.75)
wmouth1 (polar cmouth (dtr 90) 0.75)
wmouth2 (polar cmouth (dtr 90) 1))
(command "_ellipse" "c" cmouth lmouth wmouth1
"_ellipse" "c" cmouth lmouth wmouth2)
(setq p1 (polar loc (dtr 90) 2)
ceye (polar p1 (dtr 0) 1.75)
leye (polar ceye (dtr 0) 0.75)
weye (polar ceye (dtr 90) 0.5))
(command "_circle" ceye 0.5
"_ellipse" "c" ceye leye weye)
(setq calis (polar ceye (dtr 90) 0.75)
1alis (polar calis (dtr 0) 1)
2alis (polar calis (dtr 90) 0.25)
3alis (polar calis (dtr 180) 1))
(command "_arc" 1alis 2alis 3alis)
(setq nline (polar loc (dtr 90) 5)
p2 (polar ceye (dtr 0) 0.5))
(command "_mirror" 1alis leye p2 "" loc nline "n" "")
(setq cnose (polar loc (dtr 270) 1)
enose (polar cnose (dtr 180) 0.5)
enosep (polar enose (dtr 90) 0.25)
hnose (polar enosep (dtr 0) 1)
snose (polar cnose (dtr 0) 1))
(command "_spline" enosep cnose hnose snose "" "" ""
"_line" p1 enosep "")
(setq tex "MERRY CHRISMAS 2004"
p3 (polar loc (dtr 270)(* rad 2.5))
mtex (polar p3 (dtr 180) (* rad 2)))
(command "_text" mtex "1" "0" tex)
(setq tex1 "HAPPY NEW YEAR 2005"
p4 (polar p3 (dtr 270) 4)
ytex (polar p4 (dtr 180)(* rad 2)))
(command "_text" ytex "1" "0" tex1)
(setvar "osmode" oldosmode) ; return setting
(setvar "cmdecho" oldcmdecho) ; return setting
(princ)
)
)

Back to top
John Uhden
Guest
Posted: Tue Dec 28, 2004 7:26 am    Post subject: Re: He's said Reply with quote
Thank you, Ade, and have a healthy Happy New Year!

One little suggestion... add the "T" to Chrismas. :)

--
John Uhden, Cadlantic
<the e-mail address is bogus>
http://www.cadlantic.com
Sea Girt, NJ


"Adesu" <mteybid@yuasabattery.co.id> wrote in message
news:41d0a2f6_3@newsprd01...
Quote:
; face is meaning of face of people
; Design by Ade Suharna <mteybid@yuasabattery.co.id
; 23 December 2004
; Program no.150/12/2004
; Edit by
(defun DTR (a)
(* pi (/ a 180.0)))
(defun c:face ()
(setq oldosmode (getvar "osmode")) ; get osmode setting
(setvar "osmode" 0) ; osmode set to 0
(setq oldcmdecho (getvar "cmdecho")) ; get cmdecho setting
(setvar "cmdecho" 0) ; cmdecho set to 0
(while
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: ")
rad 5)
(command "_circle" loc rad)
(setq cmouth (polar loc (dtr 270) 2.5)
lmouth (polar cmouth (dtr 0) 1.75)
wmouth1 (polar cmouth (dtr 90) 0.75)
wmouth2 (polar cmouth (dtr 90) 1))
(command "_ellipse" "c" cmouth lmouth wmouth1
"_ellipse" "c" cmouth lmouth wmouth2)
(setq p1 (polar loc (dtr 90) 2)
ceye (polar p1 (dtr 0) 1.75)
leye (polar ceye (dtr 0) 0.75)
weye (polar ceye (dtr 90) 0.5))
(command "_circle" ceye 0.5
"_ellipse" "c" ceye leye weye)
(setq calis (polar ceye (dtr 90) 0.75)
1alis (polar calis (dtr 0) 1)
2alis (polar calis (dtr 90) 0.25)
3alis (polar calis (dtr 180) 1))
(command "_arc" 1alis 2alis 3alis)
(setq nline (polar loc (dtr 90) 5)
p2 (polar ceye (dtr 0) 0.5))
(command "_mirror" 1alis leye p2 "" loc nline "n" "")
(setq cnose (polar loc (dtr 270) 1)
enose (polar cnose (dtr 180) 0.5)
enosep (polar enose (dtr 90) 0.25)
hnose (polar enosep (dtr 0) 1)
snose (polar cnose (dtr 0) 1))
(command "_spline" enosep cnose hnose snose "" "" ""
"_line" p1 enosep "")
(setq tex "MERRY CHRISMAS 2004"
p3 (polar loc (dtr 270)(* rad 2.5))
mtex (polar p3 (dtr 180) (* rad 2)))
(command "_text" mtex "1" "0" tex)
(setq tex1 "HAPPY NEW YEAR 2005"
p4 (polar p3 (dtr 270) 4)
ytex (polar p4 (dtr 180)(* rad 2)))
(command "_text" ytex "1" "0" tex1)
(setvar "osmode" oldosmode) ; return setting
(setvar "cmdecho" oldcmdecho) ; return setting
(princ)
)
)





Back to top
Adesu
Guest
Posted: Tue Dec 28, 2004 7:57 am    Post subject: Re: He's said Reply with quote
Sorry and thanks for your correction

John Uhden <juhden@cadlantic.com> wrote in message
news:41d0c47f$1_3@newsprd01...
Quote:
Thank you, Ade, and have a healthy Happy New Year!

One little suggestion... add the "T" to Chrismas. :)

--
John Uhden, Cadlantic
the e-mail address is bogus
http://www.cadlantic.com
Sea Girt, NJ


"Adesu" <mteybid@yuasabattery.co.id> wrote in message
news:41d0a2f6_3@newsprd01...
; face is meaning of face of people
; Design by Ade Suharna <mteybid@yuasabattery.co.id
; 23 December 2004
; Program no.150/12/2004
; Edit by
(defun DTR (a)
(* pi (/ a 180.0)))
(defun c:face ()
(setq oldosmode (getvar "osmode")) ; get osmode
setting
(setvar "osmode" 0) ; osmode set to 0
(setq oldcmdecho (getvar "cmdecho")) ; get cmdecho
setting
(setvar "cmdecho" 0) ; cmdecho set to
0
(while
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: ")
rad 5)
(command "_circle" loc rad)
(setq cmouth (polar loc (dtr 270) 2.5)
lmouth (polar cmouth (dtr 0) 1.75)
wmouth1 (polar cmouth (dtr 90) 0.75)
wmouth2 (polar cmouth (dtr 90) 1))
(command "_ellipse" "c" cmouth lmouth wmouth1
"_ellipse" "c" cmouth lmouth wmouth2)
(setq p1 (polar loc (dtr 90) 2)
ceye (polar p1 (dtr 0) 1.75)
leye (polar ceye (dtr 0) 0.75)
weye (polar ceye (dtr 90) 0.5))
(command "_circle" ceye 0.5
"_ellipse" "c" ceye leye weye)
(setq calis (polar ceye (dtr 90) 0.75)
1alis (polar calis (dtr 0) 1)
2alis (polar calis (dtr 90) 0.25)
3alis (polar calis (dtr 180) 1))
(command "_arc" 1alis 2alis 3alis)
(setq nline (polar loc (dtr 90) 5)
p2 (polar ceye (dtr 0) 0.5))
(command "_mirror" 1alis leye p2 "" loc nline "n" "")
(setq cnose (polar loc (dtr 270) 1)
enose (polar cnose (dtr 180) 0.5)
enosep (polar enose (dtr 90) 0.25)
hnose (polar enosep (dtr 0) 1)
snose (polar cnose (dtr 0) 1))
(command "_spline" enosep cnose hnose snose "" "" ""
"_line" p1 enosep "")
(setq tex "MERRY CHRISMAS 2004"
p3 (polar loc (dtr 270)(* rad 2.5))
mtex (polar p3 (dtr 180) (* rad 2)))
(command "_text" mtex "1" "0" tex)
(setq tex1 "HAPPY NEW YEAR 2005"
p4 (polar p3 (dtr 270) 4)
ytex (polar p4 (dtr 180)(* rad 2)))
(command "_text" ytex "1" "0" tex1)
(setvar "osmode" oldosmode) ; return
setting
(setvar "cmdecho" oldcmdecho) ; return
setting
(princ)
)
)








Back to top
LUCAS
Guest
Posted: Tue Dec 28, 2004 1:43 pm    Post subject: Re: He's said Reply with quote
;; face is meaning of face of people

;; Design by Ade Suharna <mteybid@yuasabattery.co.id>

;; 23 December 2004

;; Program no.150/12/2004

;; Edit by

(defun DTR (A)

(* pi (/ A 180.0))

)

(defun C:FACE (/ 1ALIS 2ALIS 3ALIS CALIS CEYE

CMOUTH CNOSE ENOSE ENOSEP HNOSE LEYE

LMOUTH LOC MTEX NLINE OLDCMDECHO

OLDOSMODE P1 P2 P3 P4

RAD SNOSE TEX TEX1 WEYE WMOUTH1

WMOUTH2 YTEX

)

(setq OLDOSMODE (getvar "osmode")) ; get osmode setting

(setvar "osmode" 0) ; osmode set to 0

(setq OLDCMDECHO (getvar "cmdecho")) ; get cmdecho setting

(setvar "cmdecho" 0) ; cmdecho set to 0

(while (setq LOC (getpoint "\nCLICK LOCATION FOR OBJECT: ")) ;MODIFY

(setq RAD 5)

(command "_circle" LOC RAD)

(setq CMOUTH (polar LOC (DTR 270) 2.5)

LMOUTH (polar CMOUTH (DTR 0) 1.75)

WMOUTH1 (polar CMOUTH (DTR 90) 0.75)

WMOUTH2 (polar CMOUTH (DTR 90) 1)

)

(command "_ellipse" "c" CMOUTH LMOUTH WMOUTH1

"_ellipse" "c" CMOUTH LMOUTH WMOUTH2

)

(setq P1 (polar LOC (DTR 90) 2)

CEYE (polar P1 (DTR 0) 1.75)

LEYE (polar CEYE (DTR 0) 0.75)

WEYE (polar CEYE (DTR 90) 0.5)

)

(command "_circle" CEYE 0.5 "_ellipse" "c" CEYE LEYE WEYE)

(setq CALIS (polar CEYE (DTR 90) 0.75)

1ALIS (polar CALIS (DTR 0) 1)

2ALIS (polar CALIS (DTR 90) 0.25)

3ALIS (polar CALIS (DTR 180) 1)

)

(command "_arc" 1ALIS 2ALIS 3ALIS)

(setq NLINE (polar LOC (DTR 90) 5)

P2 (polar CEYE (DTR 0) 0.5)

)

(command "_mirror" 1ALIS LEYE P2 "" LOC NLINE "n") ; REMOVE ""

(setq CNOSE (polar LOC (DTR 270) 1)

ENOSE (polar CNOSE (DTR 180) 0.5)

ENOSEP (polar ENOSE (DTR 90) 0.25)

HNOSE (polar ENOSEP (DTR 0) 1)

SNOSE (polar CNOSE (DTR 0) 1)

)

(command "_spline" ENOSEP CNOSE HNOSE SNOSE "" "" "" "_line" P1

ENOSEP "")

(setq TEX "MERRY CHRISTMAS 2004"

P3 (polar LOC (DTR 270) (* RAD 2.5))

MTEX (polar P3 (DTR 180) (* RAD 2))

)

(command "_text" MTEX "1" "0" TEX)

(setq TEX1 "HAPPY NEW YEAR 2005"

P4 (polar P3 (DTR 270) 4)

YTEX (polar P4 (DTR 180) (* RAD 2))

)

(command "_text" YTEX "1" "0" TEX1)

)

(setvar "osmode" OLDOSMODE) ;MOVE

(setvar "cmdecho" OLDCMDECHO) ;MOVE

(princ)

)






"Adesu" <mteybid@yuasabattery.co.id> ¦b¶l¥ó news:41d0cacd_2@newsprd01 ¤¤¼¶¼g
....
Quote:
Sorry and thanks for your correction

John Uhden <juhden@cadlantic.com> wrote in message
news:41d0c47f$1_3@newsprd01...
Thank you, Ade, and have a healthy Happy New Year!

One little suggestion... add the "T" to Chrismas. :)

--
John Uhden, Cadlantic
the e-mail address is bogus
http://www.cadlantic.com
Sea Girt, NJ


"Adesu" <mteybid@yuasabattery.co.id> wrote in message
news:41d0a2f6_3@newsprd01...
; face is meaning of face of people
; Design by Ade Suharna <mteybid@yuasabattery.co.id
; 23 December 2004
; Program no.150/12/2004
; Edit by
(defun DTR (a)
(* pi (/ a 180.0)))
(defun c:face ()
(setq oldosmode (getvar "osmode")) ; get osmode
setting
(setvar "osmode" 0) ; osmode set to
0
(setq oldcmdecho (getvar "cmdecho")) ; get cmdecho
setting
(setvar "cmdecho" 0) ; cmdecho set
to
0
(while
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: ")
rad 5)
(command "_circle" loc rad)
(setq cmouth (polar loc (dtr 270) 2.5)
lmouth (polar cmouth (dtr 0) 1.75)
wmouth1 (polar cmouth (dtr 90) 0.75)
wmouth2 (polar cmouth (dtr 90) 1))
(command "_ellipse" "c" cmouth lmouth wmouth1
"_ellipse" "c" cmouth lmouth wmouth2)
(setq p1 (polar loc (dtr 90) 2)
ceye (polar p1 (dtr 0) 1.75)
leye (polar ceye (dtr 0) 0.75)
weye (polar ceye (dtr 90) 0.5))
(command "_circle" ceye 0.5
"_ellipse" "c" ceye leye weye)
(setq calis (polar ceye (dtr 90) 0.75)
1alis (polar calis (dtr 0) 1)
2alis (polar calis (dtr 90) 0.25)
3alis (polar calis (dtr 180) 1))
(command "_arc" 1alis 2alis 3alis)
(setq nline (polar loc (dtr 90) 5)
p2 (polar ceye (dtr 0) 0.5))
(command "_mirror" 1alis leye p2 "" loc nline "n" "")
(setq cnose (polar loc (dtr 270) 1)
enose (polar cnose (dtr 180) 0.5)
enosep (polar enose (dtr 90) 0.25)
hnose (polar enosep (dtr 0) 1)
snose (polar cnose (dtr 0) 1))
(command "_spline" enosep cnose hnose snose "" "" ""
"_line" p1 enosep "")
(setq tex "MERRY CHRISMAS 2004"
p3 (polar loc (dtr 270)(* rad 2.5))
mtex (polar p3 (dtr 180) (* rad 2)))
(command "_text" mtex "1" "0" tex)
(setq tex1 "HAPPY NEW YEAR 2005"
p4 (polar p3 (dtr 270) 4)
ytex (polar p4 (dtr 180)(* rad 2)))
(command "_text" ytex "1" "0" tex1)
(setvar "osmode" oldosmode) ; return
setting
(setvar "cmdecho" oldcmdecho) ; return
setting
(princ)
)
)








Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB