|
try this
(defun: c:test()
8 K2 i/ r! ^; q! w. e% w `% B (setq p1 (getpoint"\n enter first point:"))
6 M& Z, R& M R1 u+ ?1 g (setq p2 (getpoint"\n enter second point:"))
3 N3 s% a& C2 s% G5 Z, ~# ]- _: | (setq p3 (getpoint"\n enter third point:"))
3 h( @" C0 H# Q5 ^- Y5 b (Command"line" p1 p2 p3 "c")2 k8 l. b. ^4 w0 i
) |
|