更改所有文本颜色选择
为了能够选择绘图的特定区域，交叉窗口，每次执行。可以更改文本的颜色、mtext attdef 等。将任何文本或属性的颜色更改为 ACI 颜色。所选块必须重新定义，即重命名和修改。例如 blockname1 (1) 中的 blockname1
如果块 blockname1 不在选择中，则不应修改它并应重命名。
我可以在绘图中手动调整它，但有一些例程可以让工作更愉快。
必须是以下组合：
atcolor.lsp（将块的属性更改为选定的颜色代码）
update-block-color.lsp（更改所有实体，希望只是文本素）
change-text-objects-to-color-2-yellow.lsp（选择区域并将文本颜色更改为2）
整个事情是一个许多独立的 lisp 例程的组合，这些例程本身就可以工作。
我试图在 1 个例程中总结这一点。
但是，它不能正常工作。
该例程现在将所有内容变为 1 种颜色，尤其是线条。这有点太过分了。
关键是，在绘图的可选区域中，只有文本对象的颜色发生了变化。text、attdef、mtext 和属性。块中的文本也是如此。
帮忙想看看能不能调整？
如果你可以调整下面的程序，谢谢。
页:
[1]