”W2 ; 打开所选中的图层“
既然选得到,那为什么还要打开图层呢?
是不是要关闭所选图层以外的图层呢?如果是
那程序应该:
(defun c:w2(/ ss la-lst n m en ent la)
(setq ss (ssget) la-lst nil)
(if ss
(progn
(setq n (sslength ss) m 0)
(repeat n
(setq en (ssname ss m))
(setq ent (entget en))
(setq la (cdr(assoc 8 ent)))
(setq la-lst (cons la la-lst))
(setq m (1+ m))
)
(command"layer" "off" "*" "y" "")
(foreach lay la-lst (command"layer" "on" lay ""))
)
(alert"没有选到图层")
)
) |