|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，7 P+ A0 @' T3 L/ p
(defun c:cv(/pa pb). s2 ~6 l' r( S6 h0 V1 X; ?
(setvar"cmdecho"0)+ P: G" C( N+ ^1 m9 Z
(setq pa(getpoint"enter left/low point:"))
7 ?( F) w( A) x8 R- X (set ww(getdist pa"width:"))
/ A# q. K1 p+ ?, A/ h (setq pb(polar pa 0 ww))* A" u/ ~9 C* a9 E' x
("line"pa pb"")3 X- [- I! U* r8 \
(prin1)
' [; H6 b; U& o)" A2 a; a; D7 f. y
(prin1) |
|
发表于 2010-1-13 08:29
楼主