修改填充的背景色为无

Lisphk

1. (defun c:tt (/ c a d)
   
2.   (vl-load-com)
   
3.   (vlax-for l (vla-get-layers (setq d (vla-get-activedocument (vlax-get-acad-object))))
   
4.     (cond ((= -1 (vlax-get l 'lock)) (vlax-put l 'lock 0) (setq a (cons l a))))
   
5.   )
   
6.   (vlax-for b (vla-get-blocks d)
   
7.     (if        (= 0 (vlax-get b 'isxref))
   
8.       (vlax-for        o b
   
9.         (cond
   
10.           ((and (vlax-write-enabled-p o) (= (vla-get-objectname o) "AcDbHatch"))
    
11.            (or c (progn (setq c (vla-get-backgroundcolor o)) (vla-put-entitycolor c -939524096)))
    
12.            (vla-put-backgroundcolor o c)
    
13.           )
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (foreach l a (vlax-put l 'lock -1))
    
19.   (vla-regen d acallviewports)
    
20.   (princ)
    
21. )
    

(defun c:tt (/ c a d)<br />   (vl-load-com)<br />   (vlax-for l (vla-get-layers (setq d (vla-get-activedocument (vlax-get-acad-object))))<br />     (cond ((= -1 (vlax-get l 'lock)) (vlax-put l 'lock 0) (setq a (cons l a))))<br />   )<br />   (vlax-for b (vla-get-blocks d)<br />     (if        (= 0 (vlax-get b 'isxref))<br />       (vlax-for        o b<br />         (cond<br />           ((and (vlax-write-enabled-p o) (= (vla-get-objectname o) "AcDbHatch"))<br />            (or c (progn (setq c (vla-get-backgroundcolor o)) (vla-put-entitycolor c -939524096)))<br />            (vla-put-backgroundcolor o c)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (foreach l a (vlax-put l 'lock -1))<br />   (vla-regen d acallviewports)<br />   (princ)<br /> )<br />