guobao1985 发表于 2017-10-10 13:42:19

关闭其他图层

关闭其他图层：guan
图层全开：kai

guobao1985 发表于 2017-10-10 13:43:08

本帖最后由 guobao1985 于 2017-10-11 07:53 编辑

网页慢，此贴已经重复，故删除

guobao1985 发表于 2017-10-10 13:43:17

(defun c:guan()
(setvar "cmdecho" 0)
(setq ss (ssget) nn (sslength ss))
(command "layer" "off" "*" "y" "")
(setq n 0)
(repeat nn
    (setq lay (cdr (assoc 8 (entget (ssname ss n)))))
    (command "layer" "on" lay "")
    (setq n (1+ n))
    )
(prin1)
)
(defun c:kai()
(setvar "cmdecho" 0)
(command "layer" "on" "*" "")
(prin1)
)
(prompt "\n关闭其他图层<guan>,图层全开<kai>")
(prin1)

fan_zh 发表于 2017-10-10 15:28:32

何必这么费劲
layiso图层隔离命令即可

guobao1985 发表于 2017-10-11 07:18:18

fan_zh 发表于 2017-10-10 15:28
何必这么费劲
layiso图层隔离命令即可

多谢指教~~~谢谢

guobao1985 发表于 2017-10-11 07:47:46

(command "layiso" (ssget) "")
页: [1]
查看完整版本: 关闭其他图层