|
try this
(defun: c:test()
5 G$ ^4 t( j) ^) L* J (setq p1 (getpoint"\n enter first point:")). F6 o4 z$ t2 L/ g. S
(setq p2 (getpoint"\n enter second point:"))
: k$ k- O5 V0 C (setq p3 (getpoint"\n enter third point:"))
$ W* f9 W) \/ T5 ? (Command"line" p1 p2 p3 "c")6 D3 h9 s$ P8 k# b. g* k# t2 S
) |
|