Good Codes Guys, here's my simple addition:
(defun c:test (/ grr ent entlist inp pt1 pt2)
;;
;;
(defun MkLine (p1 p2)
(entmakex (list (cons 0 "LINE")
(cons 10 p1)
(cons 11 p2)
) ;_ list
) ;_ entmakex
) ;_ defun
;;
;;
(if
(and
(setq pt1 (getpoint "\n>>>...Pick Points...>>>: "))
(setq pt2 (getpoint pt1))
(setq ent (mkline pt1 pt2))
(setq entlist (list ent))
) ;_ and
;;
;;
(progn
(while
(progn
(setq grr (grread t 7 0)
inp (car grr)
) ;_ setq
(if (= (length entlist) 1)
(setq entlist (cons (mkline pt2 (cadr grr)) entlist))
) ;_ if
(cond
((= inp 3)
(setq entlist (cons (mkline (cadr grr) pt1) entlist))
(setq pt1 (cadr grr))
)
((or (= inp 25) (= inp 11))
nil
)
((= inp 5)
(foreach x entlist
(entmod
(subst
(cons 11 (cadr grr))
(assoc 11 (entget x))
(entget x)
) ;_ subst
) ;_ entmod
(not (redraw x 3))
) ;_ foreach
)
) ;_ cond
) ;_ progn
) ;_ while
(foreach x entlist
(redraw x 4)
) ;_ foreach
) ;_ progn
;;
;;
) ;_ if
(princ)
) ;_ defun
;;
;;
;;WIZ_24DEC09