Lisp更改实体层

Tripledot · 发表于 2022-7-5 17:26:35

是否有lisp允许我们将嵌套块中的实体层更改为另一个预定义层，例如defpoints。没有进入街区。

由于不断进出块编辑器/在位编辑块而陷入困境，在1个DWG中50多次仅仅更改几行的图层就令人精疲力尽。这项工作已经花了太长时间了。

希望得到一些帮助。

谢谢

Tharwat · 发表于 2022-7-5 17:31:29

你能写下你想让程序继续的程序步骤吗？

还可以列出嵌套块和目标层的名称吗？

Tripledot · 发表于 2022-7-5 17:36:40

区块A

1）运行lisp

2）从modelspace中，选择：-
十）一对线/多段线/圆的实体。。。。。连续（在A区内）
或
Y）一对线/多段线/圆的实体。。。。。连续（在A区内的B区内）和一对线的实体（在A区内的B区内的C区内）

*在这两种情况下，X和Y，所选实体将在整个选择过程中高亮显示，无论其来自哪个块。
（因为我不知道实际的块名，因为它太多了&名称很长，深度不同）

3）选择后，按ENTER键

4）然后，场景X和Y中的选定实体将更改为“DEFPOINTS”层

目标层是DEFPOINTS。（但可以在lisp代码中更改为其他图层名称）

希望这能帮助塔瓦

Tharwat · 发表于 2022-7-5 17:39:48

所以需要将选定块的嵌套块中的线条对象移动到图层定义点？

Tripledot · 发表于 2022-7-5 17:42:51

是的，主要是直线、多段线、圆等实体。。。。。。在块或嵌套块内。块/嵌套块的层保持不变。

Tharwat · 发表于 2022-7-5 17:46:03

怎么会这样？

请非常严格和明确地说明您的计划目标。

Tripledot · 发表于 2022-7-5 17:50:14

区块A

A区包含第1、2和3行

目前我在做什么：
1）使用refedit，选择要更改图层的线的块A。
2）使用块A的块编辑器，选择第1行、第2行和第3行，并更改为defpoints图层
3）保存并退出块编辑器
4）使用refedit，选择要更改图层的线的块B。
5）使用块B的块编辑器，选择第4行、第5行和第6行，并更改为defpoints图层
6）保存并退出块编辑器
7）使用refedit，选择要更改图层的线的块C。
8）使用块C的块编辑器，选择第7行、第8行和第9行，并更改为defpoints图层
9）保存并退出块编辑器

我喜欢Lisp做的是：
1）运行Lisp
2）选择第1、2、3、4、5、6、7、8和9行。
3）输入。
4） 1、2、3、4、5、6、7、8和9号线的图层更改为Defpoints