¨ó¶ÔCAD §Þ³N°Q½×°Ï

µoªíªÌ

°Q½×¤º®e

op90o

µoªí®É¶¡: 2007-07-03 12:56

Not too shy to talk

µù¥U¤é: 2006-09-20

¨Ó¦Û: AutoCADÅU°Ý

µoªí¼Æ: 27

Re: "ª«¥ó³QÃö³¬"ªº°ÝÃD¹Ï±?

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

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