Results 1 to 4 of 4

Thread: He's said

  1. 12-27-2004, 09:07 PM #1
    Adesu Guest

    He's said

    ; 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)
    )
    )
    Reply With Quote Reply With Quote
  2. 12-27-2004, 11:26 PM #2
    John Uhden Guest
    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)
    )
    )




    Reply With Quote Reply With Quote
  3. 12-27-2004, 11:57 PM #3
    Adesu Guest
    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)
    )
    )





    Reply With Quote Reply With Quote
  4. 12-28-2004, 05:43 AM #4
    LUCAS Guest
    ;; 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
    ....
    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)
    )
    )







    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules

Other forums: Access Forum - Microsoft Office Forum - Exchange Server Forum