使用宏帮助更改属性

jim78b · 发表于 2022-9-12 17:27:30

我想做一个宏，在选择元素的颜色后改变但不起作用。
^C^C_chprop;p;c;按块;

Steven P · 发表于 2022-9-12 17:42:59

这是永久的改变还是暂时的改变？
这将永久更改单个选择。

(defun c:chcol ( / MyEnt )
  (setq MyEnt (car (entsel "Select")))
  (command "chprop" MyEnt "" "C" "ByBlock" "")
)

如果要选择许多项目，则可以将“（汽车（entsel ...））”部分更改为选择集（ssget）。

copy

(defun c:chcol ( / MySS )
  (setq MySS (ssget))
  (command "chprop" MySS "" "C" "ByBlock" "")
)

jim78b · 发表于 2022-9-12 17:52:47

您的永久意义是什么？

我需要宏，因为我使用工具调色板按钮。

jim78b · 发表于 2022-9-12 18:07:15

在我编辑它们之前，是否可以永久更改我的绘图封闭块中的所有对象的颜色？

SLW210 · 发表于 2022-9-12 18:07:37

看看

Steven P · 发表于 2022-9-12 18:20:10

如果 t 是来自 AutoCAD 的命令，则相对于复制到 LISP，根据您的需要遵循上述示例

( - 告诉 LISP 你即将做某事

command - 告诉 LISP 你正在使用一个命令

“chprop” - 告诉 LISP 命令名称，这里也在“”中，因为您输入的是文本而不是变量（将其更改为您要使用的任何命令）

MyEnt - 告诉 LISP 在命令中输入一个变量（没有“”），转到 CAD 命令行并完成命令，将您在此处键入的内容复制到 LISP

"" - 输入输入/转义/空格/选择结束，就像您在命令行中输入一样

"C" - 告诉 LISP 下一个值传递给你正在运行的命令，这里的 "C" 代表颜色

“ByBlock” - 如上所述，下一个要使用的值
"" - 如上输入/空格/转义结束选择，或这里结束comamnd
) - 告诉 LISP 你已经告诉它做某事

在 'command' 和最后的 ')' 之间，您需要做的就是在 LISP 中输入您在命令行中输入的内容，并在任何文本的任一侧使用“”（但如果您使用的是变量，则不需要）

..希望这对您有所帮助，并且下次可以解决

Steven P · 发表于 2022-9-12 18:34:53

可以临时更改实体颜色，例如，如果您正在做其他事情并且想要突出显示您选择的内容，然后返回，或者进行正常更改。

[编程交流] 使用宏帮助更改属性

发表回复

精选推荐