删除所有的Raster Images

marting

1. (defun RemoveAllRaster ( doc / _catchapply dict lockd )
   
2. 
   
3.     (defun _catchapply ( method params / result )
   
4.         (if
   
5.             (not
   
6.                 (vl-catch-all-error-p
   
7.                     (setq result (vl-catch-all-apply method params))
   
8.                 )
   
9.             )
   
10.             result
    
11.         )
    
12.     )
    
13. 
    
14.     (vlax-for layer (vla-get-layers doc)
    
15.         (if (eq :vlax-true (vla-get-lock layer))
    
16.             (vla-put-lock (car (setq lockd (cons layer lockd))) :vlax-false)
    
17.         )
    
18.     )
    
19.     (vlax-for block (vla-get-blocks doc)
    
20.         (vlax-for object block
    
21.             (if (member (vla-get-objectname object) '("AcDbOle2Frame" "AcDbRasterImage"))
    
22.                 (_catchapply 'vla-delete (list object))
    
23.             )
    
24.         )
    
25.     )
    
26.     (if (setq dict (_catchapply 'vla-item (list (vla-get-dictionaries doc) "ACAD_IMAGE_DICT")))
    
27.         (progn
    
28.             (vlax-for object dict
    
29.                 (_catchapply 'vla-delete (list object))
    
30.             )
    
31.             (_catchapply 'vla-delete (list dict))
    
32.         )
    
33.     )
    
34.     (if (setq dict (_catchapply 'vla-item (list (vla-get-dictionaries doc) "ACAD_IMAGE_VARS")))
    
35.         (_catchapply 'vla-delete (list dict))
    
36.     )
    
37.     (foreach layer lockd (vla-put-lock layer :vlax-true))
    
38.     (vla-regen doc acallviewports)
    
39.     (princ)
    
40. )
    

(defun RemoveAllRaster ( doc / _catchapply dict lockd )<br /> <br />     (defun _catchapply ( method params / result )<br />         (if<br />             (not<br />                 (vl-catch-all-error-p<br />                     (setq result (vl-catch-all-apply method params))<br />                 )<br />             )<br />             result<br />         )<br />     )<br /> <br />     (vlax-for layer (vla-get-layers doc)<br />         (if (eq :vlax-true (vla-get-lock layer))<br />             (vla-put-lock (car (setq lockd (cons layer lockd))) :vlax-false)<br />         )<br />     )<br />     (vlax-for block (vla-get-blocks doc)<br />         (vlax-for object block<br />             (if (member (vla-get-objectname object) '("AcDbOle2Frame" "AcDbRasterImage"))<br />                 (_catchapply 'vla-delete (list object))<br />             )<br />         )<br />     )<br />     (if (setq dict (_catchapply 'vla-item (list (vla-get-dictionaries doc) "ACAD_IMAGE_DICT")))<br />         (progn<br />             (vlax-for object dict<br />                 (_catchapply 'vla-delete (list object))<br />             )<br />             (_catchapply 'vla-delete (list dict))<br />         )<br />     )<br />     (if (setq dict (_catchapply 'vla-item (list (vla-get-dictionaries doc) "ACAD_IMAGE_VARS")))<br />         (_catchapply 'vla-delete (list dict))<br />     )<br />     (foreach layer lockd (vla-put-lock layer :vlax-true))<br />     (vla-regen doc acallviewports)<br />     (princ)<br /> )<br />

1. (defun c:tt()
   
2.     (RemoveAllRaster (vla-get-activedocument (vlax-get-acad-object)))
   
3.     (princ)
   
4. )
   

(defun c:tt()<br />     (RemoveAllRaster (vla-get-activedocument (vlax-get-acad-object)))<br />     (princ)<br /> )<br />