打开并解冻中的所有层

nnutting · 发表于 2022-7-6 08:43:03

我是新来的论坛。。。并且已经搜索了大约一个小时，以找到一个lisp例程，该例程将打开并解冻图形中的所有层。我上一家公司有这个。。。你所要做的就是按下“A”，所有的图层都会显示出来。

提前谢谢。

ReMark · 发表于 2022-7-6 09:00:32

Cadalyst杂志的CAD提示部分提供了一些层实用程序lisp例程。这里有一个链接让你开始。

http://cadtips.cadalyst.com/content/thaw-all-layers-drawing

Lee Mac · 发表于 2022-7-6 09:11:03

作为Lisp程序：

(defun c:a nil (command "_.-layer" "_Thaw" "*" "_ON" "*" "") (princ))

作为宏（对于LT用户）：
另一个，LISP：
另一个，Visual LISP：

nnutting · 发表于 2022-7-6 09:20:54

非常感谢！

Lee Mac · 发表于 2022-7-6 09:36:00

不客气！

BIGAL · 发表于 2022-7-6 09:54:19

命令行-la T*on*

[编程交流] 打开并解冻中的所有层