Delete all xlines on a drawing

[Nkey]

Hello,

Does anyone know of a command, macro or a lisp that deletes all xlines on a drawing. I know i can use quick select and filter by object but it takes too long. Thanks.

[Tharwat]

 

(defun c:Foo (/ s )
  (and (setq s (ssget "_X" '((0 . "XLINE"))))
       (command "_.erase" s "")
       )
  (princ)
  )

 

[Nkey]

Thank you Tharwat !

[Tharwat]

You're welcome.