社区 › Auto Lisp › 帮助进行Lisp例行转身

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

帮助进行Lisp例行转身

你好
我是一个完全的新手，只知道一些基础知识
我使用100层的图形，有时使用100层的外部参照
我想要一些关于写例行公事的帮助
 
我想运行一个名为simplelayout的例程
例如，这个例程会关闭任何包含AM_5的层
 
请帮助我，不要犹豫问我问题
我快疯了

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

Layer命令将接受层名称中的通配符。
(command "_.-layer" "_off" "*AM_5*" "")

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

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

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

johnatkinson 发表于 2022-7-5 16:02:06

非常感谢！！！！！！！

Tharwat 发表于 2022-7-5 16:10:45

随时欢迎你。

BIGAL 发表于 2022-7-5 16:26:41

只需键入-la off*AM_5*为什么是程序？

查看完整版本: 帮助进行Lisp例行转身