如何获取图块或外部参照中的填充图元

tjuzkj

我想取得dwg文件中图块或外部参照内的所有填充的图元，然后改变填充的颜色，不知如何用lisp实现？

Gu_xl

2. 
   
3. 
   
4. (DEFUN C:TT(/ flag)
   
5.   (while (not flag)
   
6.   (SETQ EN (CAR (ENTSEL "\选择图块：")))
   
7.     (if en
   
8.       (if (= "INSERT" (cdr (assoc 0 (entget en))))
   
9.         (setq flag t)
   
10.         )
    
11.       )
    
12.     )
    
13.   (initget 7)
    
14.   (setq color (getint "\选择修改颜色号："))
    
15.   (setq name (cdr (assoc 2 (entget en))))
    
16. (vlax-for a (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) name)
    
17.   (if (= "AcDbHatch" (vla-get-OBJECTname a))
    
18.   (VLA-PUT-COLOR A color)
    
19.     )
    
20.   )
    
21. (command "_.regen")
    
22.   )
    

<br /> <br /> (DEFUN C:TT(/ flag)<br />   (while (not flag)<br />   (SETQ EN (CAR (ENTSEL "\选择图块：")))<br />     (if en<br />       (if (= "INSERT" (cdr (assoc 0 (entget en))))<br />         (setq flag t)<br />         )<br />       )<br />     )<br />   (initget 7)<br />   (setq color (getint "\选择修改颜色号："))<br />   (setq name (cdr (assoc 2 (entget en))))<br /> (vlax-for a (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) name)<br />   (if (= "AcDbHatch" (vla-get-OBJECTname a))<br />   (VLA-PUT-COLOR A color)<br />     )<br />   )<br /> (command "_.regen")<br />   )<br />

caoyin

修改"block"将导致相关的"insert"对象被重新定义，建议将填充图案颜色改为“ByBlock”，然后再逐个修改"insert"对象的颜色

tjuzkj

谢谢啦,问题圆满解决啦!

Gu_xl

回复 LONGFIN 的帖子

LONGFIN 版主说的极是！

jsdtzjm

看了就顶，谢谢了