修改LISP以更改块
我有一个有用的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公司 找到了答案：
（定义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”更改为要更改的层的名称。
刷一个区域，然后砰！所有的层，甚至嵌套的东西，都会改变。 非常感谢。
页:
[1]