bearbear1 发表于 2010-6-11 09:53:00

让一条直线垂直向上偏移，可偏移不对？？

<p><font face="Verdana">想让一直线200 向上或向下偏移 200的距离，结果是偏移了，可不是想要的结果，请问问题出在什么地方</font></p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">(defun c:wc2()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "osmode" 16383)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "ORTHOMODE" 1) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pa (getpoint "请输入第一点"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq w (getreal "\n线长"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pb (polar pa 0 w))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "pline" pa pb "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq en (entlast))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txgd (getreal "偏移距离"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pup(polar pa (/ pi 2) txgd))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "copy" en "" pa "" pup "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;(command "offset" w en&nbsp; )<br/>&nbsp;;(setq en ())</font></p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">)</font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>

秋枫 发表于 2010-6-11 09:59:00

<p>&nbsp;(command "copy" en "" pa "" pup "")<br/>改为</p>
<p>&nbsp;(command "copy" en "" pa pup "")<br/></p>
<p>另，建议GetReal改为GetDist</p>
<p>&nbsp;</p>
<p>建议你学习使用Vlisp的调试器。</p>

客人 发表于 2010-6-11 10:07:00

<p>非常</p>
<p>感谢</p>

asdfxx 发表于 2010-6-11 10:11:00

页: [1]
查看完整版本: 让一条直线垂直向上偏移，可偏移不对？？