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

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

(defun c:test( / ssa i)
(setq ssa (ssget '((0 . "mtext")(8 . "abc")))
(setq i 0);
(repeat (sslength ssa)
(command "explode" (ssname ssa i) ssa)
(setq i (1+ i))
)
(princ)
) 想把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:00我顶100次,看看还不让我看

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

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

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

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

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

哦知道了（(setq ssa (ssget '(0 . "mtext)))）

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

没抄对，当然不行了 (defun c:test( / ssa i)
(setq ssa (ssget '(0 . "mtext)))->(setq ssa (ssget '((0 . "MTEXT"))));少了括号，少了引号
(setq i 0);
(repeat (sslength ssa)
(command "explode" (ssname ssa i))
(setq i (1+ i))
)
(princ) );丢了括号

账号		自动登录	找回密码
密码			注册