修改对象颜色的方法

Lisphk

1、AUTOLISP ENTMOD方法：

1. (defun c:tt ()
   
2.     (if (and (setq clr (getint "\n输入颜色号<退出>:"))
   
3.              (setq e (car (entsel)))
   
4.              (setq ent (entget e))
   
5.         )
   
6.         (entmod (append ent (list (cons 62 clr))))
   
7.     )
   
8.     (princ)
   
9. )
   

(defun c:tt ()<br />     (if (and (setq clr (getint "\n输入颜色号<退出>:"))<br />              (setq e (car (entsel)))<br />              (setq ent (entget e))<br />         )<br />         (entmod (append ent (list (cons 62 clr))))<br />     )<br />     (princ)<br /> )<br />

2、VLA方法：

1. (defun c:tt ()
   
2.     (if (and (setq clr (getint "\n输入颜色号<退出>:"))
   
3.              (setq e (car (entsel)))
   
4.              (setq col (vlax-create-object
   
5.                            (strcat "AutoCAD.AcCmColor."
   
6.                                    (substr (getvar "acadver") 1 2)
   
7.                            )
   
8.                        )
   
9.              )
   
10.         )
    
11.         (progn
    
12.             (vla-put-colorindex col clr)
    
13.             (vla-put-TrueColor (vlax-ename->vla-object e) col)
    
14.             (vlax-release-object col)
    
15.         )
    
16.     )
    
17.     (princ)
    
18. )
    

(defun c:tt ()<br />     (if (and (setq clr (getint "\n输入颜色号<退出>:"))<br />              (setq e (car (entsel)))<br />              (setq col (vlax-create-object<br />                            (strcat "AutoCAD.AcCmColor."<br />                                    (substr (getvar "acadver") 1 2)<br />                            )<br />                        )<br />              )<br />         )<br />         (progn<br />             (vla-put-colorindex col clr)<br />             (vla-put-TrueColor (vlax-ename->vla-object e) col)<br />             (vlax-release-object col)<br />         )<br />     )<br />     (princ)<br /> )<br />

或者更直接些，用 vla-put-color

1. (defun c:tt ()
   
2.     (if (and (setq clr (getint "\n输入颜色号<退出>:"))
   
3.              (setq e (car (entsel)))     
   
4.         )
   
5.         (progn
   
6.             (vla-put-color (vlax-ename->vla-object e) clr)
   
7.         )
   
8.     )
   
9.     (princ)
   
10. )
    

(defun c:tt ()<br />     (if (and (setq clr (getint "\n输入颜色号<退出>:"))<br />              (setq e (car (entsel)))     <br />         )<br />         (progn<br />             (vla-put-color (vlax-ename->vla-object e) clr)<br />         )<br />     )<br />     (princ)<br /> )<br />

3、批量的对话框选色修改

1. (defun c:tt ( / col idx sel )
   
2.     (if
   
3.         (and
   
4.             (setq sel (ssget "_:L"))
   
5.             (setq col (acad_truecolordlg 1))
   
6.         )
   
7.         (repeat (setq idx (sslength sel))
   
8.             (entmod (append (entget (ssname sel (setq idx (1- idx)))) col))
   
9.         )
   
10.     )
    
11.     (princ)
    
12. )
    

(defun c:tt ( / col idx sel )<br />     (if<br />         (and<br />             (setq sel (ssget "_:L"))<br />             (setq col (acad_truecolordlg 1))<br />         )<br />         (repeat (setq idx (sslength sel))<br />             (entmod (append (entget (ssname sel (setq idx (1- idx)))) col))<br />         )<br />     )<br />     (princ)<br /> )<br />

kqqt6236

条条道路通罗马！

xinxirong

还有command的方法

liunian0524

还是command方便,可以批量,自定义数字代替色号,常用的就几个