|
|
请教高手，这个程序就是画条线，看看哪有问题，运行时CAD提示参数太少，. [! r- T ]/ N4 m [
(defun c:cv(/pa pb)
- N, \6 L/ j; [* B (setvar"cmdecho"0)( t, Z& f5 p, F/ D i
(setq pa(getpoint"enter left/low point:"))
3 Y7 X2 w/ H" q# m; V x (set ww(getdist pa"width:"))- R$ Y- t7 f8 w8 x* k$ ?
(setq pb(polar pa 0 ww))9 ~/ o+ |, l# J/ I8 c: ?
("line"pa pb"")0 [& S1 e$ C. F l1 U* P) X
(prin1)
; W8 [" b! i- B. P/ e)5 \. A" ^( D0 D! Z/ E* J- M
(prin1) |
|
发表于 2010-1-13 08:29
楼主