删除扩展数据的最好方法

陈亚娣

先收藏再慢慢学习

sicky111

不错的函数，收藏了。

清风明月名字

谢谢楼主代码分享！

liuyibin

嗯，真不错哦

wzg356

刚有点扩展数据的概念

gufeng

一直是这样处理，可今天碰到在布局里就有问题 不知道是否我电脑或者CAD的问题，尝试这样就没问题，稍慢点

2. ;;_(DelXdata (car (entsel)))
   
3. (defun DelXdata (en / dxf)
   
4.   (setq dxf (entget en))
   
5.   (entmod
   
6.     (append
   
7.       dxf
   
8.       (list (cons
   
9.               -3
   
10.               (mapcar
    
11.                 'list
    
12.                 (mapcar 'car (cdr (assoc -3 (entget en '("*")))))
    
13.               )
    
14.             )
    
15.       )
    
16.     )
    
17.   )
    
18. )

;;_(DelXdata (car (entsel)))<br /> (defun DelXdata (en / dxf)<br />   (setq dxf (entget en))<br />   (entmod<br />     (append<br />       dxf<br />       (list (cons<br />               -3<br />               (mapcar<br />                 'list<br />                 (mapcar 'car (cdr (assoc -3 (entget en '("*")))))<br />               )<br />             )<br />       )<br />     )<br />   )<br /> )

sutai

做个记号，晚上回家试试！

laiz3000

赞一个，很简洁

434939575

必须支持@