;; | ----------------------------------------------------------------------------
;; | PL_UpdateLine
;; | ----------------------------------------------------------------------------
;; | Function : Update a line object with the two new end points.
;; |            All line properties, including the handle are maintained
;; | Arguments:
;; |           'ename'  - Line Object
;; |           'pt1'    - Start point of line
;; |           'pt2'    - End   point of line
;; | Action   : Updates the existing line
;; |            Both handle as well as Xdata is retained
;; | Updated  : August 21, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_UpdateLine ( ename pt1 pt2 / entl )

(setq
	entl (entget ename)
	entl (subst (cons 10 pt1) (assoc 10 entl) entl)
	entl (subst (cons 11 pt2) (assoc 11 entl) entl)
)
(entmod entl)
)