yang686526

？？
www.dimcax.com
？？
(defun c:tq(/ pa pc pb ph pf pp py px pr)
(setvar "cmdecho" 0)
(graphscr)
(setq pa (getpoint "\n请输入左下角点:"))
(setq ff (getreal "\n请输入f长度:"))
(setq gg (getreal "\n请输入g长度:"))
(setq hh (getreal "\n请输入h长度:"))
(setq ii (getreal "\n请输入i长度:"))
(setq ww (getreal "\n请输入w长度:"))
(setq pd (polar pa pi 5))
(setq pc (polar pd (/ pi 2) ww))
(setq pb (polar pd (/ pi 2) (/ hh 2)))
(setq ph (polar pb 0 ff))
(setq pg (polar pd 0 (+ ff gg)))
(setq pf (polar pg (/ pi 2) (/ ii 2)))
(setq pp (polar pg (* pi 1.5) (/ ii 2)))
(setq py (polar ph (* pi 1.5) hh))
(setq px (polar pb (* pi 1.5) hh))
(setq pr (polar pb (* pi 1.5) (+(/ hh 2) ww)))
(command "line"pa pc pb ph pf pp py px pr"c")
(prin1)
)
哪位高手能告诉我这个程序哪里错了，到最后一部总是部对

关闭补捉再试