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

薄荷微光

参考论坛中sammy的快速改颜色lisp，我自己想弄个简单点的，如下选择图元改为红色，但每次选完后要空格键确认后才会改色，我想要的效果是输入命令后选中就改色（点选或框选），并且能一直选直到esc或空格退出。求论坛高手帮忙看下怎么修改下。

2. (defun c:gs1 (/ en i obj ss)
   
3.   (vl-load-com)
   
4.   (setq ss (ssget))
   
5.       (setq i 0)
   
6.       (while (< i (sslength ss))
   
7.       (setq en (ssname ss i));获取图元名
   
8.       (setq obj (vlax-ename->vla-object en));转换为VLA对象
   
9.       (vla-put-color obj 1);改颜色
   
10.       (setq i (+ 1 i))
    
11.       )
    
12.   (princ)
    
13. )

(defun c:gs1 (/ en i obj ss)<br />   (vl-load-com)<br />   (setq ss (ssget))<br />       (setq i 0)<br />       (while (< i (sslength ss))<br />       (setq en (ssname ss i));获取图元名<br />       (setq obj (vlax-ename->vla-object en));转换为VLA对象<br />       (vla-put-color obj 1);改颜色<br />       (setq i (+ 1 i))<br />       )<br />   (princ)<br /> )

qazxswk

薄荷微光 发表于 2024-11-29 09:19
感谢回复，加上while后选中还是要空格确认才能改色，能不能不确认直接改色呢

你复制我的代码再试试。

qazxswk

2. (defun c:gs1 (/ en i obj ss)
   
3.   (vl-load-com)
   
4.   (while
   
5.   (setq ss (ssget ":S"))
   
6.       (setq i 0)
   
7.       (while (< i (sslength ss))
   
8.       (setq en (ssname ss i));获取图元名
   
9.       (setq obj (vlax-ename->vla-object en));转换为VLA对象
   
10.       (vla-put-color obj 1);改颜色
    
11.       (setq i (1+ i))
    
12.       )
    
13.     )
    
14.   (princ)
    
15. )

(defun c:gs1 (/ en i obj ss)<br />   (vl-load-com)<br />   (while<br />   (setq ss (ssget ":S"))<br />       (setq i 0)<br />       (while (< i (sslength ss))<br />       (setq en (ssname ss i));获取图元名<br />       (setq obj (vlax-ename->vla-object en));转换为VLA对象<br />       (vla-put-color obj 1);改颜色<br />       (setq i (1+ i))<br />       )<br />     )<br />   (princ)<br /> )

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)

moranyuyan

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

麻烦大佬将再修改下，输入指令后再输入颜色数字，然后执行一直选一直改色，知道ESC才退出。

薄荷微光

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

感谢回复，加上while后选中还是要空格确认才能改色，能不能不确认直接改色呢

kozmosovia

2. (defun c:gs1 (/ aci obj)
   
3.   (vl-load-com)
   
4.   (if (setq aci 1)
   
5.     (while (setq obj (car (nentselp "\n Pick Objects:")))
   
6.       (vla-put-color (vlax-ename->vla-object obj) aci)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:gs1 (/ aci obj)<br />   (vl-load-com)<br />   (if (setq aci 1)<br />     (while (setq obj (car (nentselp "\n Pick Objects:")))<br />       (vla-put-color (vlax-ename->vla-object obj) aci)<br />     )<br />   )<br />   (princ)<br /> )

qazxswk

薄荷微光 发表于 2024-11-29 09:19
感谢回复，加上while后选中还是要空格确认才能改色，能不能不确认直接改色呢

我在AutoCAD 2007 、AutoCAD 2021、浩辰CAD2025测试了，正常呀，不需要按空格就可以改色的了。

珍惜hh

测试正常啊

薄荷微光

qazxswk 发表于 2024-11-29 10:18
你复制我的代码再试试。

看到了第04行加了“:s”，没问题了，请问下这个是什么原理呢

qazxswk

多学习就知道了。
http://bbs.mjtd.com/thread-84736-1-1.html