【批量】处理DWG，删除其中的图像

marting

1. (defun c:tt ()
   
2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3.   (defun _remove (doc)
   
4.     (defun _print-progess (doc gap / dwg)
   
5.       (setq dwg (vla-get-name doc)
   
6.             dwg (strcat (vl-filename-base dwg) (vl-filename-extension dwg))
   
7.       )
   
8.       (princ (xd::string:tailfill (strcat "\n搜索 " dwg) " " gap))
   
9.     )
   
10.     (setq num1 0)
    
11.     (_print-progess doc 50)
    
12.     (setq odbx_dict (vla-get-dictionaries doc))
    
13.     (vl-Catch-All-Apply
    
14.       '(lambda ()
    
15.          (vlax-for imageItem (vla-item odbx_dict "ACAD_IMAGE_DICT")
    
16.            (vla-delete imageItem)
    
17.            (setq num1 (1+ num1))
    
18.          )
    
19.        )
    
20.     )
    
21.     (setq fns (+ fns num1)
    
22.           num (1+ num)
    
23.     )
    
24.     (princ (strcat "  删除了 " (itoa num1) " 图像定义."))
    
25.   )
    
26.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
27.   (defun _check ()
    
28.     (if (or (not xd::vla:odbx) (not (= (type xd::vla:odbx) 'SUBR)))
    
29.       (progn (princ "\n请加载晓东通用LI-SP函数库再执行.") (exit))
    
30.       t
    
31.     )
    
32.   )
    
33.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
34.   (defun _main ()
    
35.     (setq num 0
    
36.           fns 0
    
37.     )
    
38.     (xd::vla:odbx '_remove nil t)
    
39.     (princ (strcat "\n\n共处理了 "
    
40.                    (itoa num)
    
41.                    " 个DWG文件，共删除图像定义 "
    
42.                    (itoa fns)
    
43.                    "个."
    
44.            )
    
45.     )
    
46.     (princ)
    
47.   )
    
48. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
49.   ;main
    
50. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
51.   (_main)
    
52.   (princ)
    
53. )
    

(defun c:tt ()<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (defun _remove (doc)<br />     (defun _print-progess (doc gap / dwg)<br />       (setq dwg (vla-get-name doc)<br />             dwg (strcat (vl-filename-base dwg) (vl-filename-extension dwg))<br />       )<br />       (princ (xd::string:tailfill (strcat "\n搜索 " dwg) " " gap))<br />     )<br />     (setq num1 0)<br />     (_print-progess doc 50)<br />     (setq odbx_dict (vla-get-dictionaries doc))<br />     (vl-Catch-All-Apply<br />       '(lambda ()<br />          (vlax-for imageItem (vla-item odbx_dict "ACAD_IMAGE_DICT")<br />            (vla-delete imageItem)<br />            (setq num1 (1+ num1))<br />          )<br />        )<br />     )<br />     (setq fns (+ fns num1)<br />           num (1+ num)<br />     )<br />     (princ (strcat "  删除了 " (itoa num1) " 图像定义."))<br />   )<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (defun _check ()<br />     (if (or (not xd::vla:odbx) (not (= (type xd::vla:odbx) 'SUBR)))<br />       (progn (princ "\n请加载晓东通用LI-SP函数库再执行.") (exit))<br />       t<br />     )<br />   )<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (defun _main ()<br />     (setq num 0<br />           fns 0<br />     )<br />     (xd::vla:odbx '_remove nil t)<br />     (princ (strcat "\n\n共处理了 "<br />                    (itoa num)<br />                    " 个DWG文件，共删除图像定义 "<br />                    (itoa fns)<br />                    "个."<br />            )<br />     )<br />     (princ)<br />   )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   ;main<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (_main)<br />   (princ)<br /> )<br />

sicky111

谢谢，正好需要！