|
请教高手,这个程序就是画条线,看看哪有问题,运行时CAD提示参数太少,
7 w- F+ u& ~7 B, a2 t(defun c:cv(/pa pb)
! I3 c5 j1 F" G1 ?* L; g6 g (setvar"cmdecho"0)! B, ^0 ]' L9 ~+ B0 [5 b. p
(setq pa(getpoint"enter left/low point:"))
5 R3 W( Q0 N9 }! x (set ww(getdist pa"width:"))
$ P9 s0 v1 ?) |0 j2 i( q (setq pb(polar pa 0 ww))! u. X: p9 b; c, n8 L8 j6 n
("line"pa pb"")
* j$ Q& L* [" |& f0 Z" |$ N* w (prin1)
1 S4 D+ g9 R3 _; U; z)$ x @- ~: I6 o6 n$ q/ D* X
(prin1) |
|