隔离没有sele的层

Shayscan · 发表于 2022-7-5 19:05:09

嘿伙计们，

我的名字叫shane，我是网站上的Noob。几年来，我一直以非会员的身份浏览这个网站，并决定加入。
我已经起草了10年，直到最近才开始玩lisp例程和marcos等。
正如标题所述，我正在寻找lisp例程或宏的帮助，该例程或宏在不选择对象的情况下隔离层？看起来很简单，但我想不出来。
我找到的最简单的方法是使用快速选择。但我正在寻找一个一键/一个命令的解决方案！
也许我根本不需要Lisp程序的程序。。。。

Tharwat · 发表于 2022-7-5 19:52:58

欢迎来到CADTutor。

尝试此程序，并根据所需的图层名称更改图层变量。

copy


(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)
 )

BIGAL · 发表于 2022-7-5 20:32:21

我的0.05美元-la off*n s yourlayername on yourlayername，这是一个0.05美元的答案

[编程交流] 隔离没有sele的层

发表回复

精选推荐