有关图形词典

q3_2006

上图..这个图里这条线有图形词典,如何不用重画的方式删除图形词典,请教大师了,谢谢

marting

说的是实体的扩展词典吧，得到它，vla-delete

vla-getextensiondictionary

marting

实体扩展词典里面保存的是xrecord, 下面代码删除命名对象词典或者实体扩展词典指定名字的xrecode，输入*删除所有

1. (defun obj:RemoveXrecord (obj name /)  (if (= (vla-get-objectname obj) "AcDbDictionary")
   
2.     (vlax-for d        obj
   
3.       (if (= (vla-get-objectname d) "AcDbXrecord")
   
4.         (if (= name "*")
   
5.           (vla-delete d)
   
6.         )
   
7.         (if (= (strcase (vla-get-name d)) (strcase name))
   
8.           (vla-delete d)
   
9.         )
   
10.       )
    
11.     )
    
12.     (if        (= (vla-get-ha**tensiondictionary obj) :vlax-true)
    
13.       (progn (vlax-for d (setq extdict (vla-getextensiondictionary obj))
    
14.                (if (= name "*")
    
15.                  (vla-delete d)
    
16.                  (if (and (= (vla-get-objectname d) "AcDbXrecord")
    
17.                           (= (strcase (vla-get-name d)) (strcase name))
    
18.                      )
    
19.                    (vla-delete d)
    
20.                  )
    
21.                )
    
22.              )
    
23.              (if (and extdict (= name "*"))
    
24.                (vla-delete extdict)
    
25.              )
    
26.       )
    
27.     )
    
28.   )
    
29. )
    

(defun obj:RemoveXrecord (obj name /)  (if (= (vla-get-objectname obj) "AcDbDictionary")<br />     (vlax-for d        obj<br />       (if (= (vla-get-objectname d) "AcDbXrecord")<br />         (if (= name "*")<br />           (vla-delete d)<br />         )<br />         (if (= (strcase (vla-get-name d)) (strcase name))<br />           (vla-delete d)<br />         )<br />       )<br />     )<br />     (if        (= (vla-get-ha**tensiondictionary obj) :vlax-true)<br />       (progn (vlax-for d (setq extdict (vla-getextensiondictionary obj))<br />                (if (= name "*")<br />                  (vla-delete d)<br />                  (if (and (= (vla-get-objectname d) "AcDbXrecord")<br />                           (= (strcase (vla-get-name d)) (strcase name))<br />                      )<br />                    (vla-delete d)<br />                  )<br />                )<br />              )<br />              (if (and extdict (= name "*"))<br />                (vla-delete extdict)<br />              )<br />       )<br />     )<br />   )<br /> )<br />

执行前


执行后，可以看到扩展词典没了

evayleung

谢谢分享。。。。。。。。

coverne

感谢指点，去测试下

q3_2006

marting 发表于 2018-12-3 22:20
实体扩展词典里面保存的是xrecord, 下面代码删除命名对象词典或者实体扩展词典指定名字的xrecode，输入*删 ...

没接触过..完全不懂..谢谢指导..

kqqt6236

什么是词典？

q3_2006

marting 发表于 2018-12-3 21:18
说的是实体的扩展词典吧，得到它，vla-delete

vla-getextensiondictionary

大师帮我看看这个..没办法删除