JOIN multiple LINES as a single PLINE

This command join any number of selected LINES as one PLINE.
COMMAND = JPL

;CODING STARTS HERE
(prompt "\nType JPL to run....")

(defun C:JPL (/ jsel)
(setq jsel (ssget))
(if (> (sslength jsel) 1)
(command "pedit" jsel "y" "j" jsel "" "x")
)
(princ)
)
;CODING ENDS HERE

Save this as "JPL.lsp".