移除实体的注释性数据

marting

1. (defun c:test (/ ed)
   
2.   (setq ed (entget (car (entsel)) '("AcadAnnotative")))
   
3.   (setq        ed (subst (list        -3
   
4.                         (list "AcadAnnotative"
   
5.                               '(1000 . "AnnotativeData")
   
6.                               '(1002 . "{")
   
7.                               '(1070 . 1)
   
8.                               '(1070 . 0)
   
9.                               '(1002 . "}")
   
10.                         )
    
11.                   )
    
12.                   (assoc -3 ed)
    
13.                   ed
    
14.            )
    
15.   )
    
16.   (entmod ed)
    
17.   (princ)
    
18. )
    

(defun c:test (/ ed)<br />   (setq ed (entget (car (entsel)) '("AcadAnnotative")))<br />   (setq        ed (subst (list        -3<br />                         (list "AcadAnnotative"<br />                               '(1000 . "AnnotativeData")<br />                               '(1002 . "{")<br />                               '(1070 . 1)<br />                               '(1070 . 0)<br />                               '(1002 . "}")<br />                         )<br />                   )<br />                   (assoc -3 ed)<br />                   ed<br />            )<br />   )<br />   (entmod ed)<br />   (princ)<br /> )<br />

sicky111

谢谢分享。

kqqt6236

扩展属性吗？