求快速修改所有图元颜色的源码

iszc

求快速修改所有可见图元颜色为 8 的源码，图元包括所有可见未炸开块等

vectra

增加了对属性的支持
不需要选择颜色时可将(setq c (acad_colordlg 8))这行修改为(setq c 8)

1. (defun c:resetcolor (/ c)
   
2.   (setq c (acad_colordlg 8))
   
3. 
   
4.   (if c
   
5.     (vlax-for block (vla-get-blocks
   
6.                       (vla-get-activedocument (vlax-get-acad-object))
   
7.                     )
   
8.       (vlax-for        ent block
   
9.         (vl-catch-all-apply 'vla-put-color (list ent c))
   
10. 
    
11.         ;; 增加对参照中属性的处理
    
12.         (if (and (= "AcDbBlockReference" (vla-get-objectname ent))
    
13.                  (= :vlax-true (vla-get-hasattributes ent))
    
14.             )
    
15.           (foreach att (vlax-safearray->list
    
16.                          (vlax-variant-value (vla-getattributes ent))
    
17.                        )
    
18.             (vla-put-color att c)
    
19.           )
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

(defun c:resetcolor (/ c)<br />   (setq c (acad_colordlg 8))<br /> <br />   (if c<br />     (vlax-for block (vla-get-blocks<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />       (vlax-for        ent block<br />         (vl-catch-all-apply 'vla-put-color (list ent c))<br /> <br />         ;; 增加对参照中属性的处理<br />         (if (and (= "AcDbBlockReference" (vla-get-objectname ent))<br />                  (= :vlax-true (vla-get-hasattributes ent))<br />             )<br />           (foreach att (vlax-safearray->list<br />                          (vlax-variant-value (vla-getattributes ent))<br />                        )<br />             (vla-put-color att c)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

vectra

1. (defun c:resetcolor (/ c)
   
2.   (setq c (acad_colordlg 8))
   
3. 
   
4.   (if c
   
5.     ;; 嵌套块的情况，是块表记录里有一个Ref对象，不存在Block对象中有Block存在的情况
   
6.     (vlax-for block (vla-get-blocks
   
7.                       (vla-get-activedocument (vlax-get-acad-object))
   
8.                     )
   
9.       (vlax-for        e block
   
10.         (vl-catch-all-apply 'vla-put-color (list e c))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:resetcolor (/ c)<br />   (setq c (acad_colordlg 8))<br /> <br />   (if c<br />     ;; 嵌套块的情况，是块表记录里有一个Ref对象，不存在Block对象中有Block存在的情况<br />     (vlax-for block (vla-get-blocks<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />       (vlax-for        e block<br />         (vl-catch-all-apply 'vla-put-color (list e c))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

iszc

请问部分属性块好修修改不成功，这个有办法么

能不能默认修改颜色8，不弹出颜色选择框

谢谢

yoyoho

感谢 vectra 分享学习!!!!!

vectra

测试中发现的问题还有：不能处理锁定图层上的对象。考虑到保持代码简单，处理之前先手动解锁全部图层吧。

iszc

非常感谢

cocoorange

vectra 发表于 2017-9-26 09:54
测试中发现的问题还有：不能处理锁定图层上的对象。考虑到保持代码简单，处理之前先手动解锁全部图层吧。

非常好用，谢谢长老分享。
如果我只想更改选定的图元（包括块、属性等），应该怎么修改代码呢？

tigcat

vectra 发表于 2017-9-25 09:05

大神代码非常好用，谢谢。

刘炎华

现在是所有的图都改颜色了。
如果改变颜色的对象要自己选择,要修改哪里呢?