质量块缩放

BlackBox · 发表于 2022-7-6 09:33:40

感谢Renderman和kruuger的帮助！

在这两个示例中，我注意到只有顶部块受到影响。是否有方法使函数应用于块和所有后续嵌套子块？我有几个块除了在另一个块内之外，不在图纸上的任何地方，这些块也需要缩放。

ibnut · 发表于 2022-7-6 09:36:03

330引用母实体，但无需从Vanilla转换：


(kr:BLK_SetBlockUnits '("[color=red]<BlockName1>[/color]" "[color=red]<BlockName2>[/color]" "[color=red]<BlockName3>[/color]") acInsertUnitsInches)

BlackBox · 发表于 2022-7-6 09:39:25

例如

copy

Guest kruuger · 发表于 2022-7-6 09:42:02

这就是为什么你爸爸哈哈

你可能会笑，我在恰当的地方搜索了InsUnits，而不是只搜索部分字符串“units”

登录/注册后可看大图

BlackBox · 发表于 2022-7-6 09:47:11

：啤酒：

ibnut · 发表于 2022-7-6 09:48:44

Lee Mac · 发表于 2022-7-6 09:53:27

330 references the parent entity, but there is no need to convert from Vanilla:

copy

(vla-put-units (vla-item  ) )

Lee Mac · 发表于 2022-7-6 09:55:19

e.g.

copy

(vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))   (if       (and           (eq :vlax-false (vla-get-isxref block))           (eq :vlax-false (vla-get-islayout block))       )       (vla-put-units block acInsertUnitsInches)   ))