Explode Only Polylines to lines

[hanywillim]

Hi Friends,
I am looking for a lisp to ONLY select the polylines in the model space and convert it to simple lines 
Thanks in advance for any kind help ❤️

[ronjonp · Accepted solution]

Sure..

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "*POLYLINE") (410 . "Model"))))
    (progn (initcommandversion) (command "_.explode" s ""))
  )
  (princ)
)

[hanywillim]

Great bro,
Can you illustrate for me why it was written in the command bar that:
"Hatch boundary associativity removed."
but i tested, it will not delete the hatch and that is good for me.

[ronjonp]

@hanywillim 

It won't delete the hatch nor explode because of the filter. What gets lost is the hatch boundary is no longer tied to the hatch because it's in pieces now.

Same behavior when manually done:

Command: X
EXPLODE 1 found
Hatch boundary associativity removed.