消除 ADT MEP 代理提示

st788796

1 使用  AECTOACAD 命令保存图形。

2 AECTOACAD 会将AEC实体分解为 AutoCAD 基本对象，但是可能仍旧有非图形对象的代理提示，使用下面方法清除

2. 
   
3. (defun c:tt (/ dl)
   
4.   (setq dl (entget (namedobjdict)))
   
5.   (while dl
   
6.     (if        (and (= (caar dl) 3)
   
7.              (wcmatch (strcase (cdar dl)) "*AEC*")
   
8.         )
   
9.       (entdel (cdadr dl))
   
10.     )
    
11.     (setq dl (cdr dl))
    
12.   )
    
13.   (princ)
    
14. )

<br /> (defun c:tt (/ dl)<br />   (setq dl (entget (namedobjdict)))<br />   (while dl<br />     (if        (and (= (caar dl) 3)<br />              (wcmatch (strcase (cdar dl)) "*AEC*")<br />         )<br />       (entdel (cdadr dl))<br />     )<br />     (setq dl (cdr dl))<br />   )<br />   (princ)<br /> )

再设置变量  PROXYGRAPHICS = 0 保存图形

Lisphk

大师，能不能把没用的代理的一次性都删除掉？

st788796

Lisphk 发表于 2017-7-26 11:43

这样试试

2. 
   
3. (defun c:delproxy (/ ss dl d o)
   
4.   (if (setq ss (ssget "x" '((0 . "ACAD_PROXY_*"))))
   
5.     (vl-cmdf ".erase" ss "")
   
6.   )
   
7.   (setq dl (entget (namedobjdict)))
   
8.   (while dl
   
9.     (if        (= (caar dl) 3)
   
10.       (progn
    
11.         (setq d (entget (cdadr dl)))
    
12.         (if (or        (= (cdr (assoc 0 d)) "ACAD_PROXY_OBJECT")
    
13.                 (and (setq o (member (assoc 350 d) d))
    
14.                      (= (cdr (assoc 0 (entget (cdar o)))) "ACAD_PROXY_OBJECT")
    
15.                 )
    
16.             )
    
17.           (progn
    
18.             (princ "\n--------------------------------------------------------------\n")
    
19.             (princ (cdr (assoc 0 d)))
    
20.             (entdel (cdadr dl))
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.     (setq dl (cdr dl))
    
26.   )
    
27.   (princ)
    
28. )

<br /> (defun c:delproxy (/ ss dl d o)<br />   (if (setq ss (ssget "x" '((0 . "ACAD_PROXY_*"))))<br />     (vl-cmdf ".erase" ss "")<br />   )<br />   (setq dl (entget (namedobjdict)))<br />   (while dl<br />     (if        (= (caar dl) 3)<br />       (progn<br />         (setq d (entget (cdadr dl)))<br />         (if (or        (= (cdr (assoc 0 d)) "ACAD_PROXY_OBJECT")<br />                 (and (setq o (member (assoc 350 d) d))<br />                      (= (cdr (assoc 0 (entget (cdar o)))) "ACAD_PROXY_OBJECT")<br />                 )<br />             )<br />           (progn<br />             (princ "\n--------------------------------------------------------------\n")<br />             (princ (cdr (assoc 0 d)))<br />             (entdel (cdadr dl))<br />           )<br />         )<br />       )<br />     )<br />     (setq dl (cdr dl))<br />   )<br />   (princ)<br /> )

sicky111

学习了。