|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，
( J+ {* w* |4 W5 r(defun c:cv(/pa pb)% Z& q$ g" f1 N/ a7 n
(setvar"cmdecho"0)
3 k! ?6 _7 Q2 { (setq pa(getpoint"enter left/low point:"))( [& B5 _% N9 N0 M
(set ww(getdist pa"width:"))
5 P9 o& z+ g3 [ (setq pb(polar pa 0 ww))0 \0 x# [$ W/ f) p$ d) @* U
("line"pa pb"")
/ u) c/ d3 _: c) A# p& w% ^" c8 W (prin1)
9 Y. t) X; |0 X) D1 T9 b)
0 r/ j5 g" r! t% F( O2 X6 ?6 d/ n(prin1) |
|
发表于 2010-1-13 08:29
楼主