Remove XData

[LouCancilla]

Does anyone have any lisp or vlisp code to remove object xdata on a selection set. Previously I have been using ACISOUT & ACISIN commands to strip this.

Thanks

[Anonymous]

(defun strip_xdata (ss)

size=2>

  (setq sscnt 0)

  (repeat (sslength ss)

    (setq ename (ssname ss
sscnt))
    (setq ent (entget ename))
  
 (setq newid (list "<Your Application goes here"))
  
 (setq newid (list (list -3 newid)))
    (entmod (append
ent newid))
    ;The following will also strip the xdata for
database links

    ; (setq newid (list
"DCO15"))
    ; (setq newid (list (list -3
newid)))  
    ; (entmod (append ent
newid))

    (setq sscnt (1+
sscnt))

  )

);end defun
strip_xdata

--
Jim Claypool

href="mailto:jclaypool@kc.rr.com">jclaypool@kc.rr.com

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"LouCancilla" <
href="mailto:loucancilla@hotmail.com">loucancilla@hotmail.com> wrote in
message
href="news:f0847f6.-1@WebX.maYIadrTaRb">news:f0847f6.-1@WebX.maYIadrTaRb...

Does
anyone have any lisp or vlisp code to remove object xdata on a selection set.
Previously I have been using ACISOUT & ACISIN commands to strip this.

Thanks