[求助]：高手帮忙改错！

jinsong-liao · 发表于 2004-12-7 16:42:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想将可见层的多义线构成表后依次取出，再修改颜色为1，请问下列代码有何错误？谢谢！

(defun c:test ()
(repeat (setq len (sslength (setq ss (ssget "X" (list (cons 0 "LWPOLYLINE"))))))) ;选择多义线构成表
   (setq i 0)
   (while (< i len)
   (setq en (ssname ss i))                            ;从选择集中取出多义线
   (command "change" "en" "p" "c" "1" "")             ;修改多义线的颜色为红色
   (setq i (+ i 1))
)
)

wkai · 发表于 2004-12-7 16:57:07

这段代码足够完成任务了。

(defun c:test ()
(command "change" (ssget "X" (list (cons 0 "LWPOLYLINE"))) "" "p" "c" "1" "")
)

或者把你的这段代码

(command "change" "en" "p" "c" "1" "")

改为

(command "change" en "" "p" "c" "1" "")

LUCAS · 发表于 2004-12-7 16:59:10

(command "change"
   (ssget "X" (list (cons 0 "LWPOLYLINE")))
   ""
   "p"
   "c"
   "1"
   ""
)

jinsong-liao · 发表于 2004-12-7 17:01:36

我需要分次提取，还有别的用处啊！

f5612140 · 发表于 2004-12-7 17:10:43

看2樓的 "en" -> en

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

[求助] [求助]：高手帮忙改错！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子