请教，图层隔离？
下面代码，来自明经，不知出自哪位老师，请问，能否在，执行命令结束后（未选图层已关闭，选择图层保留），增加，选择，保留图层的上的所有对象？(defun C:EE (/ ss cnt c en lay) ;仅显选择图层
(setvar "CMDECHO" 0)
(command ".undo" "be")
(prompt "\n选择需要保留的图层:")
(setq ss (ssget))
(setq cnt (sslength ss))
(setq cnt (1- cnt))
(command "-LAYER" "OFF" "*" "Y" "")
(setq c 0)
(while (<= c cnt)
(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(command "-LAYER" "ON" lay "")
(setq c (1+ c))
)
(command ".undo" "e")
(setvar "cmdecho" 1)
(princ)
)
页:
[1]