大神们帮帮忙

爱死泥凌

怎么修改属性颜色，，不能批量修改，，，只能双击它修改颜色，，cad    只能修改中间那条线的颜色。

Lisphk

用 属性改色 搜索论坛就有了

http://bbs.xdcad.net/thread-706414-1-1.html

st788796

2. 
   
3. (defun c:tt (/ ss col)
   
4.   (if (and (setq ss (ssget '((0 . "insert") (66 . 1))))
   
5.            (setq col (acad_colordlg 1))
   
6.       )
   
7.     (mapcar
   
8.       '(lambda (x)
   
9.          (mapcar '(lambda (a) (xdrx_setpropertyvalue a "color" col))
   
10.                  (xdrx_getpropertyvalue x "AttributeEntities")
    
11.          )
    
12.        )
    
13.       (xdrx_pickset->ents ss)
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

<br /> (defun c:tt (/ ss col)<br />   (if (and (setq ss (ssget '((0 . "insert") (66 . 1))))<br />            (setq col (acad_colordlg 1))<br />       )<br />     (mapcar<br />       '(lambda (x)<br />          (mapcar '(lambda (a) (xdrx_setpropertyvalue a "color" col))<br />                  (xdrx_getpropertyvalue x "AttributeEntities")<br />          )<br />        )<br />       (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )