50868 发表于 2005-1-20 14:49:00

大家帮忙帮我看看这个程序问题出在哪里？

(defun c:test( / ssa i)<BR>       (setq ssa (ssget       '((0 . "mtext")(8 . "abc")))<BR>       (setq i 0);<BR>       (repeat (sslength ssa)<BR>       (command "explode" (ssname ssa i) ssa)<BR>                       (setq i (1+ i))<BR>       )<BR>       (princ)<BR>)


想把ABC层的MTEXT炸开变为TEXT。

spshchen 发表于 2005-1-20 16:11:00

command "explode" (ssname ssa i) ssa "" "")

poly168 发表于 2005-1-20 17:29:00

我顶100次,看看还不让我看

meflying 发表于 2005-1-20 17:31:00

poly168发表于2005-1-20 17:29:00static/image/common/back.gif我顶100次,看看还不让我看

<BR>

f5612140 发表于 2005-1-20 19:48:00

(defun c:test( / ssa i)<BR>       (setq ssa (ssget       '((0 . "mtext")(8 . "abc")))<FONT color=#ff0000>)</FONT><BR>       (setq i 0);<BR>       (repeat (sslength ssa)<BR>       <FONT color=#ff0000>(command "explode" (ssname ssa i))</FONT><BR>                       (setq i (1+ i))<BR>       )<BR>       (princ)<BR>)

spshchen 发表于 2005-1-21 10:05:00

(defun c:test( / ssa i)<BR>       (setq ssa (ssget       '(0 . "mtext))<FONT color=#ff0000>)</FONT><BR>       (setq i 0);<BR>       (repeat (sslength ssa)<BR>       <FONT color=#ff0000>(command "explode" (ssname ssa i))</FONT><BR>                       (setq i (1+ i))<BR>       )<BR>       (princ)<BR>这样好像又不行的。

spshchen 发表于 2005-1-21 10:09:00

哦知道了


       （(setq ssa (ssget       '(0 . "mtext))<FONT color=#ff0000>)）</FONT>

meflying 发表于 2005-1-21 10:09:00

没抄对，当然不行了


(defun c:test( / ssa i)<BR>       (setq ssa (ssget       '(0 . "mtext))<FONT color=#ff0000>)-&gt;(setq ssa (ssget '((0 . "MTEXT"))));少了括号，少了引号</FONT><BR>       (setq i 0);<BR>       (repeat (sslength ssa)<BR>       <FONT color=#ff0000>(command "explode" (ssname ssa i))</FONT><BR>                       (setq i (1+ i))<BR>       )<BR>       (princ)


);丢了括号
页: [1]
查看完整版本: 大家帮忙帮我看看这个程序问题出在哪里？