Mode:
Duration:
1
2
3
4
5
6
7
8
9
(defun c:DrawPolyline ()
(setq pts '())
(prompt "\nPick points, press Enter to finish")
(while (setq pt (getpoint))
(setq pts (append pts (list pt)))
)
(command "_.PLINE" (apply 'append pts) "")
(princ)
)Coding works best on desktop or with an external keyboard.