Removing extended entity data

[JSelf]

How can I remove all of the extended entity data from an object? I thought maybe vl-remove and then entmod-ing back but that doesn't seem to work.

Thanks,
Jason Self

[JSelf]

found it here:
http://forums.autodesk.com/t5/ASE-SQ...data/m-p/43345

[Lee Mac]

I use something like this:

(defun c:DelX ( / appID ss )
  ;; © Lee Mac  ~  16.06.10

  (setq appID "APP") ; Application Name

  (if (setq ss (ssget "_:L" (list (list -3 (list appID)))))
    (
      (lambda ( i / ent )
        (while (setq ent (ssname ss (setq i (1+ i))))
          (LM:RemoveXData ent appID)
        )
      )
      -1
    )
  )
  
  (princ)
)

(defun LM:RemoveXData ( entity appID )
  ;; © Lee Mac  ~  26.05.10
  (if (assoc -3 (entget entity (list appID)))
    (entmod (list (cons -1 entity) (list -3 (list appID))))
  )
)

[JSelf]

Thanks. I'm surprised to see you on AUGI, your a legend with the guys in my office that frequent CAD Tutor.

[Lee Mac]

Hehe thanks, I feel honoured

A started an account on here a while back, just thought I'd stop by