how to convert lines to polylines

hi all

can anybody help me to write a lisp for converting lines in a layer to polylines

it needs lisp or any command is there for that

thanks in advance

ganesh

You can make it through the command : pedit .... -> join

(defun C:L2P ( / ss)
 ;;; Line 2 Polyline
 (setq ss (ssget "_I"))
 (while (not ss)(setq ss (ssget)))
 (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1))
   (vl-cmdf "_pedit" "_Multiple" ss "" "")
   (vl-cmdf "_pedit" "_Multiple" ss "" "_Y" "")
   )
 )
(defun C:L2PJ ( / ss)
 ;;; Line 2 Polyline + Join (fuzz = 0)
 (setq ss (ssget "_I"))
 (while (not ss)(setq ss (ssget)))
 (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1))
   (vl-cmdf "_pedit" "_Multiple" ss "" "_Join" 0 "")
   (vl-cmdf "_pedit" "_Multiple" ss "" "_Y" "_Join" 0 "")
   )
 )