版主请进，我的问题很难么？这些天了居然没人解决....

Gu_xl

回复 mrhvslisp 的帖子

1. ;;;修改嵌套块中所有物体颜色
   
2. (defun blkcolor (blkname color / blk obj name att)
   
3.   (setq blk (vla-item (vla-get-blocks *ACDOCUMENT*) blkname))
   
4.   (vlax-for obj blk
   
5.     (print (vla-get-ObjectName obj))
   
6.     (cond ((or (= "AcDbMInsertBlock" (vla-get-ObjectName obj))
   
7.                (= "AcDbBlockReference" (vla-get-ObjectName obj))
   
8.                )
   
9.            (princ " AcDbMInsertBlock")
   
10.            (mapcar
    
11.              '(lambda (Att)
    
12.                 (vla-put-color att color) ;_ 此处为修改属性颜色
    
13.               ) ;_ lambda
    
14.              (vlax-invoke Obj "GetAttributes")
    
15.            ) ;_ mapcar
    
16. 
    
17. 
    
18.            (setq name (vla-get-name obj))
    
19.            ;;;递归调用
    
20.            (blkcolor name color)
    
21.            )
    
22.           (t
    
23.            (vla-put-color obj color)
    
24.            )
    
25.           )
    
26.    
    
27.     )
    
28.   (princ)
    
29.   )
    
30. ;;;对单独块属性颜色修改，使用二楼代码
    
31. 你提供的图中高程点块就是带属性快！而非嵌套块！用二楼代码就可逐个修改属性颜色！
    

;;;修改嵌套块中所有物体颜色<br /> (defun blkcolor (blkname color / blk obj name att)<br />   (setq blk (vla-item (vla-get-blocks *ACDOCUMENT*) blkname))<br />   (vlax-for obj blk<br />     (print (vla-get-ObjectName obj))<br />     (cond ((or (= "AcDbMInsertBlock" (vla-get-ObjectName obj))<br />                (= "AcDbBlockReference" (vla-get-ObjectName obj))<br />                )<br />            (princ " AcDbMInsertBlock")<br />            (mapcar<br />              '(lambda (Att)<br />                 (vla-put-color att color) ;_ 此处为修改属性颜色<br />               ) ;_ lambda<br />              (vlax-invoke Obj "GetAttributes")<br />            ) ;_ mapcar<br /> <br /> <br />            (setq name (vla-get-name obj))<br />            ;;;递归调用<br />            (blkcolor name color)<br />            )<br />           (t<br />            (vla-put-color obj color)<br />            )<br />           )<br />     <br />     )<br />   (princ)<br />   )<br /> ;;;对单独块属性颜色修改，使用二楼代码<br /> 你提供的图中高程点块就是带属性快！而非嵌套块！用二楼代码就可逐个修改属性颜色！<br />

mrhvslisp

回复 Gu_xl 的帖子


哈哈，受益颇多，感谢Gu_xl大神。