[求助]怎樣才能移除擴展資料?

pizg

有一段圖元碼如下:

 

((-1 . <圖元名稱: 7c147148>) (0 . "CIRCLE") (330 . <圖元名稱: 7d40bcf8>) (5 .
"AEB9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "標註") (100 .
"AcDbCircle") (10 56479.1 72737.0 0.0) (40 . 153.845) (210 0.0 0.0 1.0))

......(-3 ("ApplicationName" (1002 . "{") (1000 . "((品名 PVC)(規格 3\")(單價 1300)(數量 1))") (1002 . "}")))

 

請問要怎樣才能移除上述之擴展資料?

gufeng

(defun c:Test ()
(setq e (car (entsel)))
(entmod
(list
(cons -1 e)
(cons
-3
(mapcar
'list
(mapcar 'car (cdr (assoc -3 (entget e '("*")))))
)
)
)
)
)

pizg

感謝2樓的大俠熱心解答.

lincctw_ccl

剛好要學習這個~~

感謝2樓的大俠

AMTONNY

呵呵,我想请教一下二楼,楼主所示的扩展资料是如何给图元加上去的,用什么方法可以实现,加上后要用什么方法提取并写入图纸里的?

Andyhon

 

在书本上是一个章节,您也可按图索骥,自行寻宝....

AMTONNY

呵呵,六楼就不能指点一二哟

 

Andyhon

My professor

 

http://www.google.com/search?as_q=defun+setq+cons+&hl=zh-CN&num=10&btnG=Google+%E6%90%9C%E5%B0%8B&as_epq=extended+data&as_oq=X_Data+Xdata&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images