|
|
try this
(defun: c:test()
; K- l/ _1 W* U. h% F' ^ (setq p1 (getpoint"\n enter first point:"))
! W" G/ c w! C. a5 i, y (setq p2 (getpoint"\n enter second point:"))
V7 v* b% y3 K (setq p3 (getpoint"\n enter third point:"))) [+ a" O. g, T0 A
(Command"line" p1 p2 p3 "c")
. v2 F. b$ e1 X3 N, B! `" B) |
|