|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，
3 L3 }5 e" `* `) K* ~(defun c:cv(/pa pb)
. E9 L. r) g; r1 |( i( K4 R$ a+ x (setvar"cmdecho"0)
* k$ l3 ?) T, Z (setq pa(getpoint"enter left/low point:"))
) ], s5 g! w7 s. D' ^* H* I (set ww(getdist pa"width:"))7 H' S$ ?5 p* @0 d+ T; }1 S
(setq pb(polar pa 0 ww))
0 z R) z. k* P( ?* f: n ("line"pa pb"")
' P3 Z; g7 z2 d- y4 d (prin1)8 q( _5 x5 E% ?0 N, X
)
! r; ~# U9 `5 ~, [(prin1) |
|
发表于 2010-1-13 08:29
楼主