程序运行第一次良好，二次以后出现“参数太多”，或是结果不对
<p> </p><p><font face="Verdana">(<br/>defun c:wc( / hh p1 p2 p3 p4 pa pb pc pd w1 ww)<br/> (setvar "cmdecho" 0 )<br/> (setvar "blipmode" 0 )<br/> (setq pa (getpoint "请输入第一点"))<br/> (setq ww (getreal "\n请输入门洞宽度")) <br/> (setq hh (getreal "\n请输入门洞高度"))<br/> (setq w1 (getreal "\n请输入周边框宽度"))<br/> <br/> <br/> (setq pb (polar pa 0 ww))<br/> (setq pc (polar pb (/ pi 2) hh))<br/> (setq pd (polar pa (/ pi 2) hh)) ;矩形四角点pa,pb,pc,pd<br/> <br/> (setq p1 (polar pa 0 w1))<br/> (setq p2 (polar pa 0 (- ww w1)))<br/> (setq p3 (polar p2 (/ pi 2) (- hh w1)))<br/> (setq p4 (polar p1 (/ pi 2) (- hh w1))) ;内四角点p1,p2,p3,p4<br/> (command "pline" pa pd pc pb p2 p3 p4 p1 "c")<br/><br/> <br/> <br/> <br/> <br/> <br/> (prin1)<br/> <br/>)</font></p>
<p><font face="Verdana">(prompt ***********<< uad wc >>***********)<br/> (prin1)</font></p>
<p> </p>
<p> </p>
<p>问题：第二次再运行 出来的结果是，只画出pa pd pc pb 就结束了，</p>
<p> </p>
<p> </p>
<p><font face="Verdana"><font face="Verdana">file://C:\Documents and Settings\SJ\桌面\未命名.jpg( 如何让截图显示，本人不会发贴子 ，技术问题太弱)</font></font></p>
<p> </p>
<p> </p> <p>图出来了？？呵呵</p> <p>我试了一下，三次运行均正常。 AutoCAD 2010</p> <p>我再试试，我用的2004，</p> 没有问题
(defun c:wc (/ hh p1 p2 p3 p4 pa pb pc pd w1 ww)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq pa (getpoint "请输入第一点"))
(setq ww (getreal "\n请输入门洞宽度"))
(setq hh (getreal "\n请输入门洞高度"))
(setq w1 (getreal "\n请输入周边框宽度"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pa (/ pi 2) hh)) ;矩形四角点pa,pb,pc,pd
(setq p1 (polar pa 0 w1))
(setq p2 (polar pa 0 (- ww w1)))
(setq p3 (polar p2 (/ pi 2) (- hh w1)))
(setq p4 (polar p1 (/ pi 2) (- hh w1))) ;内四角点p1,p2,p3,p4
(command "pline" pa pd pc pb p2 p3 p4 p1 "c")
(princ)
)
(prompt "绘制门洞 wc")
<p>图出来了？？呵呵</p> <font face="Verdana"><font face="Verdana"> (command "_.pline" "non" pa "non" pd "non" pc "non" pb "non" p2 "non" p3 "non" p4 "non" p1 "c")</font></font>
页:
[1]