删除扩展数据 正解

bluelisp

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

1. (defun DelXdata    (eName )
   
2.   (entmod
   
3.     (list
   
4.       (cons -1 eName)
   
5.       (cons -3
   
6.         (mapcar 'list
   
7.             (mapcar 'car (cdr (assoc -3 (entget eName '("*")))))
   
8.         )
   
9.       )
   
10.     )
    
11.   )
    
12. )

(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

首次发帖，看看是否发出了