xiiing 发表于 2010-4-25 23:19:00

为何autolisp画图错误？

<p>初学autolisp，请多指教！谢谢</p><p>程序如下：</p><p><br/>(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (setvar "blipmode" 0)<br/>&nbsp; ;*************** Input Data<br/>&nbsp; (setq pa (getpoint "左下角点:"))<br/>&nbsp; (setq ww (getdist pa "宽度\n:"))<br/>&nbsp; (setq hh (getdist pa "高度\n:"))<br/>&nbsp; ;***************<br/>&nbsp; (setq pb (polar pa 0 ww))<br/>&nbsp; (setq pc (polar pb (* pi 0.5) hh))<br/>&nbsp; (setq pd (polar pc pi ww))<br/>&nbsp; (command "pline" pa pb pc pd "c")<br/>&nbsp; ;***************<br/>&nbsp; (setq mp1 (polar pa 0 (/ ww 2)))<br/>&nbsp; (setq mp2 (polar pb (* pi 0.5) (/ hh 2)))<br/>&nbsp; (setq mp3 (polar pd 0 (/ ww 2)))<br/>&nbsp; (setq mp4 (polar pa (* pi 0.5) (/ hh 2)))<br/>&nbsp; ;***************<br/>&nbsp; (command "line" mp1 mp3 "")<br/>&nbsp; (command "line" mp2 mp4 "")<br/><br/>&nbsp;&nbsp;<br/>&nbsp; (prin1)<br/>)<br/>(prompt "\n&lt;&lt;C:PBOX&gt;&gt;")<br/>(prompt "\n程序加载OK!!!")<br/>(prin1)<br/>程序的结果应该是如下的田字</p><p>&nbsp;<img alt="" src="http://www.bysyb.cn/up/2.jpg" border="0"/></p><p>但有时候中间的“十”字总是变成“×”，如下图</p><p><img alt="" src="http://www.bysyb.cn/up/1.jpg" border="0"/>&nbsp;</p><p>这是一个例程，程序本身没有问题，在另一台电脑正常，但在我这台电脑就不对了，<br/>请问这是什么原因呢？</p>

masterlong 发表于 2010-4-25 23:44:00

<p>捕捉模式要关掉</p><p>或者</p><p>(command "line" "non" mp1 "non"&nbsp;mp3 "")<br/>(command "line" "non" mp2&nbsp;"non" mp4 "")<br/>下面这句也应该同样处理</p><p>(command "pline" pa pb pc pd "c")<br/></p>

xiiing 发表于 2010-4-26 06:31:00

<p>果然如此，非常感谢！</p>

lenlenq 发表于 2010-6-6 20:00:00

&nbsp;(setvar"osmode" 0)<br/>
页: [1]
查看完整版本: 为何autolisp画图错误？