使用宏帮助更改属性
我想做一个宏，在选择元素的颜色后改变但不起作用。^C^C_chprop;p;c;按块;
这是永久的改变还是暂时的改变？
这将永久更改单个选择。
(defun c:chcol ( / MyEnt )
(setq MyEnt (car (entsel "Select")))
(command "chprop" MyEnt "" "C" "ByBlock" "")
)
如果要选择许多项目，则可以将“（汽车（entsel ...））”部分更改为选择集（ssget）。
(defun c:chcol ( / MySS )
(setq MySS (ssget))
(command "chprop" MySS "" "C" "ByBlock" "")
)
您的永久意义是什么？我需要宏，因为我使用工具调色板按钮。 在我编辑它们之前，是否可以永久更改我的绘图封闭块中的所有对象的颜色？ 看看 如果 t 是来自 AutoCAD 的命令，则相对于复制到 LISP，根据您的需要遵循上述示例
( - 告诉 LISP 你即将做某事
command - 告诉 LISP 你正在使用一个命令
“chprop” - 告诉 LISP 命令名称，这里也在“”中，因为您输入的是文本而不是变量（将其更改为您要使用的任何命令）
MyEnt - 告诉 LISP 在命令中输入一个变量（没有“”），转到 CAD 命令行并完成命令，将您在此处键入的内容复制到 LISP
"" - 输入输入/转义/空格/选择结束，就像您在命令行中输入一样
"C" - 告诉 LISP 下一个值传递给你正在运行的命令，这里的 "C" 代表颜色
“ByBlock” - 如上所述，下一个要使用的值
"" - 如上输入/空格/转义结束选择，或这里结束comamnd
) - 告诉 LISP 你已经告诉它做某事
在 'command' 和最后的 ')' 之间，您需要做的就是在 LISP 中输入您在命令行中输入的内容，并在任何文本的任一侧使用“”（但如果您使用的是变量，则不需要）
..希望这对您有所帮助，并且下次可以解决
可以临时更改实体颜色，例如，如果您正在做其他事情并且想要突出显示您选择的内容，然后返回，或者进行正常更改。
页:
[1]