冻结除一层外的所有层

hyposmurf · 发表于 2022-7-6 08:41:52

这是我找到的一个方便的新lisp。它将冻结除当前层外的所有层。如果要在复杂图形中处理一个图层，则此选项非常有用。

（defun c:ao（）
（setvar“expert”0）
（命令“layer”“off”“*”“”“”“”）
)
对于任何不确定如何保存和加载lisp的人，请点击这里：
保存将此文件复制到记事本文件并以文件扩展名保存。lsp然后通过“appload”命令加载lisp。在appload中找到文件，然后按load。您可以通过单击“contents”功能将其添加到启动套件中，选择“add”，然后每次需要加载lisp时，只需将“ao”添加到命令行

fuccaro · 发表于 2022-7-6 08:49:21

低丝黑穗病
运行此例程时，专家系统变量保持设置为0。这可能会导致beginer用户产生混淆，数据丢失和其他lisp例程可能会受到影响。
请允许我为您的例程提出一个更好的版本：在更改之前保存专家变量，并在最后恢复。

copy


(defun c:ao () 
(setq old (getvar "expert"))  ;save the value of EXPERT
(setvar "expert" 0) 
(command "layer" "off" "*" "" "" "")
(setvar "expert" old)   ;Restore the old value
)

hyposmurf · 发表于 2022-7-6 08:57:19

谢谢Fuccaro很高兴知道你注意到了这一点。

f700es · 发表于 2022-7-6 09:04:57

不想在你的游行上下雨，Lisp程序很酷，但是。。。。express tools已经有一段时间了。它被称为隔离对象的层。唯一的区别是它不会冻结层，而是将其关闭。我喜欢这一点，因为当我在这一层上完成编辑后，很容易像以前一样拿回我的画。我只需打开所有图层，我冷冻的图层仍然是这样，但你的图层仍然很酷

F7层

hyposmurf · 发表于 2022-7-6 09:06:38

是的，有！在CAD 2K中，您可以执行以下操作：
从快速/图层菜单中选择以下“图层隔离”或输入LAYISO，然后选择要隔离的图层。要返回冻结层和解冻层的原始配置，请从快速/层菜单中选择“layer unisolate”或输入LAYUNISO。谢谢你以前没有意识到的，现在我可以去做一些菜单按钮，为这些方便的命令。这也很好，它不会改变您原来的层配置。