[求助]：為何只能保留一個？

ljs026 · 发表于 2004-8-27 09:10:51

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

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

×

這個程序為何選擇兩個以上圖層的實体只能保留一個？
(defun c:test ()
(Prompt "\n請選取要保留圖層上的實体...")
(setq e (ssget) n 0)
(setq llayer (cdr (assoc 8 (entget (ssname e 0)))))
(setvar "clayer" llayer)
(vl-cmdf "layer" "off" "*" "n" "")
)

zxq0220 · 发表于 2004-8-27 13:04:49

因为layer off *只能保留当前图层，所以楼主只能循环处理剩下的图层。

ljs026 · 发表于 2004-8-27 16:14:58

可以幫幫小弟嗎？小弟是個菜菜鳥耶！

zxq0220 · 发表于 2004-8-30 11:44:40

更改程序如下：
(defun c:test ()
(Prompt "\n請選取要保留圖層上的實体...")
(setq e (ssget) n 0)
(setq llayer (cdr (assoc 8 (entget (ssname e 0)))))
(setvar "clayer" llayer)
(vl-cmdf "layer" "off" "*" "n" "")
(setq sl (sslength e) i 1)
(while (< i sl)
(setq llayer (cdr (assoc 8 (entget (ssname e i)))) i (1+ i))
(vl-cmdf "layer" "on" layer "")
)
)

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

[求助]：為何只能保留一個？

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

相关帖子

浏览过的版块