修改LISP以更改块

hosannabizarre · 发表于 2022-7-6 10:25:24

我有一个有用的lisp例程，用于更改块中嵌套文本的属性。它是这样的：

（定义c:ATR（/com val）
（initget 1“高度角度样式图层颜色”）
（setq com（getkword“\n输入命令（高度/角度/样式/图层/颜色）：”）
（setq val（getstring“\n输入值：”））
（提示“\n按交叉窗口选择属性：”）
（命令“.attedit”“y”“*”“*”“*”“c”暂停）
（while（>（getvar“cmdactive”）0）
（命令com val“n”）
)
（普林斯）
)

我如何修改它，使“层”选项自动选择（而不是提示用户选择要更改的属性）。

我如何进一步修改它，使层名称的值自动设置为“Layer_11”。

最终，用户所要做的就是拖出一个框，将层属性更改为“layer\u 11”

我相信要做到这一点不会有太多。

谢谢

hosannabizarre公司

hosannabizarre · 发表于 2022-7-6 11:24:34

找到了答案：

（定义c:ATR（/com val）
（initget 1“高度角度样式图层颜色”）
（setq com“层”）
（setq val“LAYER_11”）
（提示“\n按交叉窗口选择属性：”）
（命令“.attedit”“y”“*”“*”“*”“c”暂停）
（while（>（getvar“cmdactive”）0）
（命令com val“n”）
)
（普林斯）
)

这非常适合在不实际使用EATEDIT的情况下更改块的层属性。

只需将“LAYER_11”更改为要更改的层的名称。

刷一个区域，然后砰！所有的层，甚至嵌套的东西，都会改变。

pule · 发表于 2022-7-6 11:45:27

非常感谢。

[编程交流] 修改LISP以更改块

发表回复

精选推荐