|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，
z g# Y# s: V( S/ r(defun c:cv(/pa pb)4 C! W6 f! T2 H# H+ a
(setvar"cmdecho"0)
* ~; d1 `9 H, ]) t' Y- J (setq pa(getpoint"enter left/low point:"))/ H+ `# {5 m! N5 d
(set ww(getdist pa"width:"))
+ Y7 |& ~9 L& ~: z+ D0 V O+ q (setq pb(polar pa 0 ww)), c; ?: ~: S9 z( k' l4 `
("line"pa pb"")- Y6 x; L- }5 N7 J: _
(prin1)
Z7 G0 W& r {). P( j- C) _% R) m3 _" `) v& ]
(prin1) |
|
发表于 2010-1-13 08:29
楼主