0 Members and 1 Guest are viewing this topic.
Command: LINESpecify first point:Specify next point or [Undo]:Specify next point or [Undo]:Specify next point or [Close/Undo]:Specify next point or [Close/Undo]:
(defun test ( / oldcol hcol p1 p2)(initget 1 "1 56 136 191") (setq hcol (getkword "\nEnter COLOR [1/56/136/191]: ")) (setq oldcol (getvar 'cecolor)) (setvar 'cecolor" (atoi hcol)) (while (and (or p1 (setq p1 (getpoint "\nSpecify start point: "))) (setq p2 (getpoint p1 "\nSpecify next point: ")) ) (command "line" p1 p2 "") (setq p1 p2) ) (setvar 'cecolor oldcol) (princ))(test)