|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，. n' t; H' K( G; {+ K4 Q. Z5 n
(defun c:cv(/pa pb)3 z$ z) @0 r& a( b' M5 L5 V
(setvar"cmdecho"0)2 J6 P t* C" k/ {$ T) Y
(setq pa(getpoint"enter left/low point:"))2 Q1 |/ X8 A: C% @
(set ww(getdist pa"width:"))5 ^3 ~0 q, v) P6 Q8 a B$ F
(setq pb(polar pa 0 ww))$ I& @5 o) y N9 r2 G( k
("line"pa pb"")
/ q' S |- a' M1 k (prin1)8 M7 g1 A W/ N( A: u' s
); p N, ?# f* F& X
(prin1) |
|
发表于 2010-1-13 08:29
楼主