帮助进行Lisp例行转身

johnatkinson · 发表于 2022-7-5 15:18:57

你好
我是一个完全的新手，只知道一些基础知识
我使用100层的图形，有时使用100层的外部参照
我想要一些关于写例行公事的帮助

我想运行一个名为simplelayout的例程
例如，这个例程会关闭任何包含AM_5的层

请帮助我，不要犹豫问我问题
我快疯了

Roy_043 · 发表于 2022-7-5 15:35:30

Layer命令将接受层名称中的通配符。

copy

(command "_.-layer" "_off" "*AM_5*" "")

Tharwat · 发表于 2022-7-5 15:44:44

你好
或者，如果你不喜欢像我这样的命令调用。

copy


(defun c:Test (/ l n v e)
 (while (setq l (tblnext "LAYER" (not l)))
   (and (wcmatch (setq n (cdr (assoc 2 l))) "*AM_5*")
        (or (minusp (setq v (cdr (assoc 62 (setq e (entget (tblobjname "LAYER" n)))))))
            (entmod (append e (list (cons 62 (- v)))))
            )
        )
   )
 (princ)
)