块和层

chapu12 · 发表于 2022-7-5 22:50:47

你好
我对autolisp这个神奇的东西很陌生。仍在学习，并且已经有了各种想法来改进我在autocad的工作方式。我的问题是：
可以根据拾取的图层更改块内的值吗？
示例：“在我的块中，我有一个带有实心图案填充的矩形，现在将这个块放在“layerA”（不知何故，带有一些脚本）中，将de block中的“实心图案填充”更改为“hatch-ansi31”。。希望这能澄清这个问题。，
那么有可能吗？

Tharwat · 发表于 2022-7-5 23:45:19

你好

您是否在将位于块中layerA上的实心图案填充更改为ANSI31？

7o7 · 发表于 2022-7-6 00:14:19

我假设“LayerA”是块的名称。如果是这样，请尝试此lisp：

（defun c:test（）
（vlax for item（vla item（vla get blocks（vla get ActiveDocument（vlax get acad object）））“LayerA”）
（if（=“AcDbHatch”（vla get objectname item））
（程序
（vla SetPattern项acHatchPatternTypePreDefined“ANSI31”）
（vla评估项目）
)
)
)
（vl cmdf“regen”）
)

[编程交流] 块和层

发表回复

精选推荐