删除扩展数据的最好方法

bluelisp

1. ;;;坛内不少人用entmake+entdel的方法，不是最好。
   
2. ;;;下列方法也是从坛内搜索出来的，通过试验，自认为是最好的方法，
   
3. ;;;由于此法是真正的在原图元上删除扩展数据，未改变图元名和图元句柄，
   
4. ;;;因此对于程序中使用图元名（组码-1）或图元句柄（组码5）的同学非常有用
   
5. ;;;原理:
   
6. ;;;将图元数据表更新为:   ((-1 . <图元名: 7ef696c0>) (-3 ("App1") ("App2")))
   
7. ;;;其中App1、App2为Entget读出的图元扩展数据的AppID
   
8. (defun DelXdata    (eName )
   
9.   (entmod
   
10.     (list
    
11.       (cons -1 eName)
    
12.       (cons -3
    
13.         (mapcar 'list
    
14.             (mapcar 'car (cdr (assoc -3 (entget eName '("*")))))
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19. )

;;;坛内不少人用entmake+entdel的方法，不是最好。<br /> ;;;下列方法也是从坛内搜索出来的，通过试验，自认为是最好的方法，<br /> ;;;由于此法是真正的在原图元上删除扩展数据，未改变图元名和图元句柄，<br /> ;;;因此对于程序中使用图元名（组码-1）或图元句柄（组码5）的同学非常有用<br /> ;;;原理:<br /> ;;;将图元数据表更新为:   ((-1 . <图元名: 7ef696c0>) (-3 ("App1") ("App2")))<br /> ;;;其中App1、App2为Entget读出的图元扩展数据的AppID<br /> (defun DelXdata    (eName )<br />   (entmod<br />     (list<br />       (cons -1 eName)<br />       (cons -3<br />         (mapcar 'list<br />             (mapcar 'car (cdr (assoc -3 (entget eName '("*")))))<br />         )<br />       )<br />     )<br />   )<br /> )

bluelisp

先前发的怎么搜不到啊？再发一次

cabinsummer

比较简洁明了，我平时也用这样的方法，但是函数没有这样简练，赞一个

yshf

的确不错

changyiran

你这确实厉害，不过看不明白，如果能给稍微讲解一下就更好了！

smartstar

回头学习学习。

南国浪子

很牛,很强大,顶LZ一个!!

vectra

只能说Autodesk的开发文档不够详细，让开发人员要摸索半天。

应用名不带任何数据时，可以删除该应用名已有的扩展数据。

VBALISPER

这么多人都在赞,我也来赞一个.

zxmmelly

确实比较简洁