;Convert lines into a polyline.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-20-94
;	Edited:		11-13-96
;
(DEFUN C:LTP ( / tent edtw inxyz line)
(setq tset (ssget '((0 . "LINE"))))
(if tset
  (progn
    (setq tent (entget (ssname tset 0)))
    (setq edtw (entget (cdar tent)))
    (setq inxyz (cdr(assoc 10 edtw)))
    (setq line (list (ssname tset 0) inxyz))
    (command ".pedit" line "Y" "J" tset "" "X")
  );progn
  (princ "\nNo LINES were selected.")
);if
(princ)
);DEFUN