§Ú¬Ý¥u¯à¨Ï¥Îwblockªº¤è¦¡¡A¦Ü©ó¦³°ÝÃDªº¹ÏÀÉ¥»¨­À³¸Ó¬OµLªk³B²z¤F~
¦hÁ±zªº¦^µª!!

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

Ãö©ó20MBªºÀɮסA¦³¤H«Øij¥ÎWBLOCK±N¸ê®ÆÂà¥X
³o¼Ë³B²z¹LªºÀÉ®×¥u¦³70KB¡A±z¥i¥H¥ý¸Õ¸Õ¬Ý

----------------
===========
¨ó¶Ô¸ê°T¦³­­¤½¥q

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!ÁÂÁÂ

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

¯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¦³­­¤½¥q

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

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

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

«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¦³­­¤½¥q

§Ú¦³¦¬¨ì¤@­Óºô¤Íªº°ÝÃ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

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

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

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

¦³¨ì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¦³­­¤½¥q

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

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