He's said

; face is meaning of face of people
; Design by Ade Suharna <>
; 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)
)
)

 

Thank you, Ade, and have a healthy Happy New Year!

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

 

Sorry and thanks for your correction

 

;; face is meaning of face of people

;; Design by Ade Suharna <>

;; 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)

)