|
|
try this
(defun: c:test()
) c" u, @- p; c2 }! L- A (setq p1 (getpoint"\n enter first point:"))
) L6 p7 A7 O0 o0 r2 ? (setq p2 (getpoint"\n enter second point:"))+ q* i" y( Y! Z7 r
(setq p3 (getpoint"\n enter third point:"))
$ [' W$ a, z3 V9 @ P& f (Command"line" p1 p2 p3 "c")$ A; w3 F0 L: y7 w
) |
|