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

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

学习学习。。。

chslwj521

(defun c:gs1 (/ en i obj ss)
  (vl-load-com)
  (while
  (setq en (car(entsel)))
      (setq obj (vlax-ename->vla-object en));???VLA??
      (vla-put-color obj 1);???
      )
    )

chslwj521

(defun c:gs1 (/ en i obj ss)
  (vl-load-com)
  (while
  (setq en (car(entsel)))
      (setq obj (vlax-ename->vla-object en));???VLA??
      (vla-put-color obj 1);???
      )
    )

薄荷微光

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

你好，请问下有没VLA帮助电子文件发个学习下，好多函数不明白

kozmosovia

薄荷微光 发表于 2024-12-2 21:35
你好，请问下有没VLA帮助电子文件发个学习下，好多函数不明白

看CAD帮助的对象模型就行了。https://help.autodesk.com/view/O ... 2-B674-1FE200B9FE30

薄荷微光

qazxswk 发表于 2024-11-28 23:54

你好，上面的程序如果把颜色改为随层要怎么写呢，我把红色1换为Bylayer好像不行。我刚查到可以用CAD的CHPROP命令修改(command "chprop" ss "" "c" "Bylayer" "")，不知道按上面的要怎么实现。

qazxswk

薄荷微光 发表于 2024-12-3 00:04
你好，上面的程序如果把颜色改为随层要怎么写呢，我把红色1换为Bylayer好像不行。我刚查到可以用CAD的CHP ...

1改为256就可以了