怎样打开一个图层的同时关闭另外几个指定图层

adc · 发表于 2015-7-5 16:34

这是一个循环开关某个指定图层的程序
(defun C:tt ()
(SetVar "Expert" 1)
  (if (= (cdr (assoc 70 (entget (TBLOBJNAME "LAYER" "图层1"))))
      0
   )
(if       (= (getvar "CLAYER") "图层1")
   (progn
      (setvar "CLAYER" "0")
      (command "layer" "f" "图层1" "")
   )
   (command "layer" "f" "图层1" "")
)
(command "layer" "t" "图层1" "")
  )
(SetVar "Expert" 0)
)
请教，怎样在打开图层1的同时关闭图层2和图层3？谢谢！

adc · 发表于 2015-7-6 10:04

自己顶一下，谢谢

masterlong · 发表于 2015-7-6 12:28

命令行中输入－layer回车
注意提示

注意关闭当前层和非当前层
有不同的提示

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

[提问] 怎样打开一个图层的同时关闭另外几个指定图层

点评