|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，8 b6 f. r9 n) S1 p0 o0 Z
(defun c:cv(/pa pb)
- {; `* x) y9 D (setvar"cmdecho"0)
! O$ E, H) `/ `) T9 ~: G4 d/ { (setq pa(getpoint"enter left/low point:"))
! O; ]- I! H p; V* |1 m, } (set ww(getdist pa"width:"))5 k1 X% K+ ]; b2 L
(setq pb(polar pa 0 ww))+ X- {/ I. F! L7 b6 m& z5 K
("line"pa pb"")
/ A0 N: o9 b: s4 t( [- Q4 { (prin1)4 Y! F8 ~7 p9 n5 C5 m: w; [
)" X, g6 |8 i* h+ i( J* ^8 @0 r
(prin1) |
|
发表于 2010-1-13 08:29
楼主