;;;Convert lines into a polyline.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 04-08-1997
;;;
(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