[求助]：怎样实现关闭其他图层

animal212 · 发表于 2007-4-5 08:33:44

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

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

×

在调用命令后,其他图层自动关闭.只开岂当前图层.命令结束后又恢复原状?

LMCC · 发表于 2007-4-6 10:56:49

(DEFUN C:lc (/ ES EN EL A)
(princ "请选择对象，未被选中的对象所在的层将被关闭")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "off" "*" "y" "on" (eval FL) "")
(princ))

animal212 · 发表于 2007-4-6 14:52:25

(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
这一段是什么意思啊,想得我头都大了,看不懂啊. 哪位高人指教一下.

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

[求助] [求助]：怎样实现关闭其他图层

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

相关帖子