This will change lines and arcs to PolyLines.
Code:
(defun C:L2P ()
(setvar "CMDECHO" 0)
(setq SS1
(ssget "X"
'((-4 . "<OR") (0 . "LINE") (0 . "ARC") (-4 . "OR>"))
)
)
;end setq
(if (not SS1)
(alert "No Lines Found")
(progn (setq N (sslength SS1)
SSNEW (ssadd)
)
(prompt "\n")
(setq COUNT 0)
(setq SMEMBER (ssname SS1 COUNT))
(while SMEMBER
(prompt "\r Lines Remaining to Alter: ")
(princ N)
(prompt ". ")
(command "change" SMEMBER "" "p" "c" "m" "")
(command "PEDIT" SMEMBER "Y" "X")
(ssadd (entlast) SSNEW)
(setq COUNT (+ 1 COUNT))
(setq SMEMBER (ssname SS1 COUNT))
(setq N (- N 1))
)
(setvar "CMDECHO" 1)
(prompt "\n ")
(princ "\rPreparing to Change Entity Colors to BYLAYER ...")
(command "change" SSNEW "" "p" "c" "bylayer" "")
); end of progn
); end of if
(princ)
)