¥­®É§@¹Ï·|¦¬¨ì¤@¨Ç¹Ï­±¡A³o¨Ç¹Ï­±ªºª«¥ó¦]¤£©ú­ì¦]³QÃö³¬¡A¦³ÂIÃþ¦ü¹Ï¼hÃö³¬¡A
¦ý¬O¨S¦³ª«¥ó¶}Ãöªº¥\¯à¡A¤]´N¬O»¡¬ã§P¸Óª«¥ó¥i¯à³QLISPµ{¦¡ªº¤è¦¡Ãö³¬¡A
©Ò¥H¤@¯ë¤è¦¡¿ï¨ú¤£¨ìª«¥ó¡A¥u¯à¨Ï¥Î Ctrrl+A ¥þ¿ï¤è¦¡©Î QSELECT§Ö³t¿ï¨ú ¤è¦¡¨Ó¿ï¨ú¡A
¹Ï­±¤WÁÙ¦³ 40­Ó ¹Ï¼h¦W¬°2 ªº ¤å¦rª«¥ó¡C
½Ð°Ý¬O§_¥i¥H³B²z?
ÁÂÁÂ!!

ªþ¥ó:
http://www.badongo.com/file/3576993

----------------

¯uªº¬O«Ü©_©Çªº¹ÏÀÉ
¬Ý©Ê½è¬O³æ¦æ¤å¦r(text)¡A¦ý¬O¸Ì­±¬OªÅªº¸ê®Æ¡A¨Ì´wÂI¬Ý°_¨Ó¥¦¥i¯à¦³¸ê®Æ(©Î¤@°ïªÅ¥Õ)
¥i¬O¤å¦rªº´wÂI¤£¬O¤@­Ó(text)´N¬O¥|­Ó(mtext)¡A³o¨ÇÁôÂøê°T³£¥u¦³¨â­Ó...

¥Ø«e¥u¦³¦bctrl+a¿ï¨ú¼Ò¦¡¤U±N¤å¦r§Î½è¤§¤º®eÄæ¦ì
¥Ñ­ì¬Ý¨ìªº *¦UºØ*
§ï¶ñ¤J ¥ô·N¦r¤¸

³o¼Ë¹Ï­±´N·|¥X²{¥i¿ï¨ú¦r¦ê
¦ý³o¨Ã«D¸Ñ¨M¤è®×(¦pªG¥Øªº¬O¿ï¨ú--§R°£¡A¨º´N«öctrl+a´N¥i¥H¤F)

·Qª¾¹D¹ê»Ú¦b¤°»ò¾Þ§@¤è¦¡¤U·|¥X²{¦¹Ãþ°ÝÃD...¥Ø«eµL¸Ñ

----------------
===========
¨ó¶Ô¸ê°T_Mingway

§Ú·Q¥Ø«e¤]¥u¯à¨Ï¥Î¦¹¤èªk¡A¦]¬°¬O¦¬¨ì§O¤Hªº¹Ï¡A©Ò¥H¤]¤£ª¾¬O¦p¦ó³y¦¨ªº~
ÁÂÁÂ!

----------------

¦³¨ìAUGI°Ý¤F¤@¤U¡A¦^Âиӹϭ±¬O¦³¤å¦rª«¥ó¡A¦ý¬O³£¨S¦³¸ê®Æ¡A«Øijª½±µ§R°£
´ú¸Õ»yªk:

(defun c:test (/ cnt ep etyp sp ss sse ssl ssn str)
(if
(setq ss (ssget "_X"))
(progn
(setq ssl (sslength ss))
(setq cnt 0)
(repeat
ssl
(setq ssn (ssname ss cnt))
(setq sse (entget ssn))
(setq etyp (cdr (assoc 0 sse)))
(setq str (cdr (assoc 1 sse)))
(if
(= etyp "TEXT")
(progn
(setq sp (cdr (assoc 10 sse)))
(setq ep (polar sp (* pi 1.5) 100))
(command "_ray" sp ep "")
) ; progn
) ; if
(alert (strcat "\nThis object is"
"\n"
"\n" etyp
"\n"
"\n" (if
(= str nil)
(princ "\nIt's not object")
(progn
(if
(= str " ")
(princ "\nIt's without string")
) ; if
) ; progn
) ; if
))
(setq cnt (1+ cnt))
) ; repeat
) ; progn
(alert "\nThere is not object")
) ; if
(princ)
) ; defun

----------------
===========
¨ó¶Ô¸ê°T_Mingway

·PÁ±zªº´ú¸Õ¡A¤£¤ä¥i§_±Nlisp¤À¨É¥X¨Ó©O~§Ú·Q­n´ú¸Õ¬Ý¬Ý¡CÁÂÁÂ!
ps:½Ð°ÝAUGI¬O¤°»ò©O?

----------------

§Ú¦³¦¬¨ì¤@­Óºô¤Íªº°ÝÃD¡A¦]¬°§Ú¤]§ä¤£¨ì­ì¦]¡A·Q½Ð°Ý¬O§_¦³¤Hª¾¹D¥i§_À°À°¦£~

ªþ¥óªºÀɮפj¤p²§±`ªº¤j(20mb)¡A¦]¬°¹Ï­±¦³¤@¨Ç ³B²z½X ¦a¸ê°T¡A©Ò¥H¤£¯à½Æ»s«á¨ì¥t¤@¹Ï­±¶K¤W¡A
³o¼Ë±`±`³y¦¨Àɮ׶ǿ馳§xÃø¡A¤£ª¾¹D¬O§_¤]ÁôÂäF¤°»ò¸ê°T³QÃö³¬¡A¤~·|³y¦¨Àɮײ§±`ªº¤j¡A
©Ò¥H­n¦p¦Ó°£¿ù¤~¯à§âÀÉ®×ÁY¤p¡AÁÙ¬O»¡¦¹ÀÉ®×¥H·l·´¦ÓµLªk­×´_©O?
ÁÂÁÂ!!

ªþÀɦì¸m:
http://www.badongo.com/file/3601312

----------------

«e­±¨º¤@¬q¤å¦r´N¬Olisp¤º®e
±z¥i¥H°Å¶K¨ì¤p§@®a¨Ã¥t¦s¦¨ªþÀɦW¬°lspªºÀÉ®×
¨Ò¦p¡G test.lsp


¥t¥~¡AAUGI¬OAutodesk User Group InternationlªºÁY¼g
¥D­n¬O´£¨Ñ¥þ²y Autodesk ¥Î¤áªº¤@­Ó°Q½×°Ï¡A³sµ²¦p¤U¡G
http://forums.augi.com/index.php?

----------------
===========
¨ó¶Ô¸ê°T_Mingway

©êºp~¦]¬°§Ú¤§«e¤]¬O·Q­n½Æ»s¨Ó´ú´ú¬Ý¡A³o­Óºô­¶¦n¹³¤£¤¹³\½Æ»s¤å³¹£°¡AÁÙ¬O§ÚªºÅv­­¤£°÷©O~

½Ð°Ý³o­Ólispªº¥Îªk¡A­è­è´ú¸Õ¹L¤F¨Ã¨S¦³§R°£ªÅ¦r¦êªº¤å¦r£°!

----------------

¯uªº«Ü©êºp¡A§Ñ¤F³o­Óºô­¶¦³­­¨î½Æ»sªº»yªk
¦ý¨Ì·Ó±z²Ä¤G¥y¸Ü¨Ó¬Ý¡AÀ³¸Ó¤w¸g¦³´ú¸Õ¹L¤F

³o­ÓLSIP¬OAGUI¤Wªº¤Hµ¹ªº¡A¥u¨ÑÀˬd¹Ï­±¤å¦r¸ê®Æ¡A¨Ã¨S¦³´£¨Ñ§R°£¥\¯à...
§Ú¦A°Ý¬Ý¬Ý¹ï¤èÄ@¤£Ä@·N¼g¤@­Ó...

----------------
===========
¨ó¶Ô¸ê°T_Mingway

OK~ÁÂÁ§A!
§Ú¬Q¤Ñ¦³¼g¤@­Ó §R°£ªÅ¦r¦ê ªº´ú¸Õ¤pµ{¦¡¡A¤w¸g¤j·§¥i¥H¤F!
(DEFUN C:BBB ()
(SETQ TILE (GETVAR "TILEMODE"))
(COMMAND "TILEMODE" "0")

(setq TT (ssget "X" '((0 . "TEXT") (1 . ""))))
(IF (/= TT nil) (COMMAND "ERASE" TT "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r1*"))

(setq TT1 (ssget "X" '((0 . "TEXT") (1 . " "))))
(IF (/= TT1 nil) (COMMAND "ERASE" TT1 "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r2*"))

(setq TT2 (ssget "X" '((0 . "TEXT") (1 . "¡@"))))
(IF (/= TT2 nil) (COMMAND "ERASE" TT2 "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r3*"))

(setq TT3 (ssget "X" '((0 . "MTEXT") (1 . ""))))
(IF (/= TT3 nil) (COMMAND "ERASE" TT3 "") (PROMPT "\n*µLªÅ¦r¦ê¦h¦æ¤å¦r1*"))

(COMMAND "TILEMODE" "1")

(setq TT (ssget "X" '((0 . "TEXT") (1 . ""))))
(IF (/= TT nil) (COMMAND "ERASE" TT "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r1*"))

(setq TT1 (ssget "X" '((0 . "TEXT") (1 . " "))))
(IF (/= TT1 nil) (COMMAND "ERASE" TT1 "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r2*"))

(setq TT2 (ssget "X" '((0 . "TEXT") (1 . "¡@"))))
(IF (/= TT2 nil) (COMMAND "ERASE" TT2 "") (PROMPT "\n*µLªÅ¦r¦ê¤å¦r3*"))

(setq TT3 (ssget "X" '((0 . "MTEXT") (1 . ""))))
(IF (/= TT3 nil) (COMMAND "ERASE" TT3 "") (PROMPT "\n*µLªÅ¦r¦ê¦h¦æ¤å¦r1*"))

(COMMAND "TILEMODE" TILE)

(PRINC)
)
PS:¥t¥~¥i§_½Ð§A±N§Ú¨º­Ó20mbªºÀɮײ§±`¤jªº°ÝÃD¤]¶K¦bAUGI´£°Ý©O!ÁÂÁÂ

----------------