求高手帮忙看下改颜色的问题

e2002

首先要理清程序的流程。一般的，象这种直接操作对象，选择对象的进行修改某一个特性的，先是输入特性的新的值，然后while选择对象（entsel或者 ssget），这里需要判断对象的类型是否符合要求，还要判断是否选择对象是否在 LockedLayer上（如果是ssget就加上""参数）。

while循环中，主要就是对象访问与修改特性的那些语句，这个想必你已经理解了。修改后一般不需要regen，修改厚的效果就能直接看到的。

另外： 颜色现在是TrueColor，应使用 AcCmColor对象，下面是 sample code：

2. (setq amColor (vla-GetInterfaceObject acApp (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
   
3.       (vla-put-ColorIndex amColor acCyan)
   
4.       (vla-put-TrueColor att amColor)
   
5.       (vlax-release-object amColor)

(setq amColor (vla-GetInterfaceObject acApp (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))<br />       (vla-put-ColorIndex amColor acCyan)<br />       (vla-put-TrueColor att amColor)<br />       (vlax-release-object amColor)

薄荷微光

e2002 发表于 2024-11-29 17:59
首先要理清程序的流程。一般的，象这种直接操作对象，选择对象的进行修改某一个特性的，先是输入特性的新的 ...

谢谢指导，水平好高，我先理解下，好多语句看不懂

XPG

学习一下。感谢分享。

gf123

学习学习。。。