隔离没有sele的层
嘿伙计们，我的名字叫shane，我是网站上的Noob。几年来，我一直以非会员的身份浏览这个网站，并决定加入。
我已经起草了10年，直到最近才开始玩lisp例程和marcos等。
正如标题所述，我正在寻找lisp例程或宏的帮助，该例程或宏在不选择对象的情况下隔离层？看起来很简单，但我想不出来。
我找到的最简单的方法是使用快速选择。但我正在寻找一个一键/一个命令的解决方案！
也许我根本不需要Lisp程序的程序。。。。 欢迎来到CADTutor。
尝试此程序，并根据所需的图层名称更改图层变量。
(defun c:test (/ layer l c nm e)
;; Tharwat 09.07.2015 ;;
(setq layer "0")
(if (tblsearch "LAYER" layer)
(while (setq l (tblnext "LAYER" (not l)))
(if (and (not (minusp (setq c (cdr (assoc 62 l)))))
(/= (setq nm (cdr (assoc 2 l))) layer)
)
(entmod
(subst (cons 62 (- c))
(assoc 62 (setq e (entget (tblobjname "LAYER" nm))))
e
)
)
)
)
)
(princ)
)
我的0.05美元-la off*n s yourlayername on yourlayername，这是一个0.05美元的答案
页:
[1]