冻结所有层

ahyin · 发表于 2022-7-5 22:37:32

尊敬的各位：，

我想冻结所有层，但我不知道代码是什么，我知道如果我按此关闭所有层，

（项目图层的vlax（vlax put属性项目“LayerON”'：vlax false））

但是当我尝试使用

（vlax for item theLayers（vla put freeze item:vlax true））出现错误。

当做

MSasu · 发表于 2022-7-5 22:44:01

请不要忘记，您无法冻结当前层。所以你应该从列表中筛选出来-可以按CLAYER系统变量列出。

当做

David Bethel · 发表于 2022-7-5 22:45:33

为什么不使用标准命令？

copy

(command "_.LAYER" "_Freeze" (strcat "~" (getvar "CLAYER')) "")

我看到越来越多的人无缘无故地逃避命令。我的0.02美元-David

ahyin · 发表于 2022-7-5 22:50:16

谢谢msasu。

但是如何编写这段代码，请原谅我是lisp新手。我收到了以下错误消息。

命令：（vlax for item theLayers（vla put freeze item:vlax true））
*取消*
自动化错误。无效层

MSasu · 发表于 2022-7-5 22:53:03

我假设theLayers变量是一个包含层实体的列表，因此您应该通过将其名称与CLAYER系统变量中存储的名称进行比较来确保跳过当前层：

copy

(vlax-for item theLayers
         (if (not (equal (vla-get-name item)
                         (getvar "CLAYER")))
          (vla-put-freeze item :vlax-true)))

当做

Tharwat · 发表于 2022-7-5 22:56:11

按顺序尝试以下操作，完全不使用Lisp，而且更重要的是。它将冻结除当前层之外的所有层；

copy


-layer 
F<enter>
*<enter>
<enter>
<enter>

非常简单。。。。。

当做

塔瓦特

ahyin · 发表于 2022-7-5 23:01:45

谢谢msasu。

MSasu · 发表于 2022-7-5 23:04:54

不客气！

当做

ahyin · 发表于 2022-7-5 23:06:08

感谢所有CAD专家！

Se7en · 发表于 2022-7-5 23:10:37

*呵呵，是的，我也注意到了同样的事情。
但是大卫，你不知道其他的东西都很花哨吗！？它只是“干净”、“好”和“酷”。我是说，伙计，跟上时代！
*lol*

[编程交流] 冻结所有层

发表回复

精选推荐