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

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

这是一个循环开关某个指定图层的程序
(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:21

自己顶一下，谢谢

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

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

注意关闭当前层和非当前层
有不同的提示
页: [1]
查看完整版本: 怎样打开一个图层的同时关闭另外几个指定图层