请问如何删除一对象中的xdata数据，而对象本身句柄不变。

龙龙仔 · 发表于 2002-12-10 16:12:00

(defun DELETEXDATA (APPNAME / SS E)
  (setq SS (ssget (list (list -3 (list APPNAME)))))
  (while (setq E (ssname SS 0))
(ssdel E SS)
(entmod
   (list
      (cons -1 E)
      (list
      -3
      (list APPNAME)
      )
   )
)
  )
  (princ)
)
;;(DELETEXDATA "3DSOLID_DATA")

cy956 · 发表于 2002-12-10 19:27:00

(defun c:delxdata()
  (setq e(entsel)
      en(entget (car e)))
  (entmod en)
)
;;;;;;;;;;;;;;;;;;;;;
((-1 . ) (0 . INSERT) (5 . 1F5) (100 . AcDbEntity) (67 .
0) (8 . WINDOW) (100 . AcDbBlockReference) (66 . 1) (2 . _WBLK) (10 29458.6
46418.8 0.0) (41 . 1500.0) (42 . 200.0) (43 . 1500.0) (50 . 3.14159) (70 . 0)
(71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) (-3 (WTHICK (1040 . 200.0))))
-->
((-1 . ) (0 . "INSERT") (5 . "1F5") (100 .
"AcDbEntity") (67 . 0) (8 . "WINDOW") (100 . "AcDbBlockReference") (66 . 1) (2
. "_WBLK") (10 29458.6 46418.8 0.0) (41 . 1500.0) (42 . 200.0) (43 . 1500.0)
(50 . 3.14159) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

请问如何删除一对象中的xdata数据，而对象本身句柄不变。

发表回复

精选推荐