jiangzl 发表于 2008-12-22 13:36:00

[求助]请大家帮忙,看一下这个程序怎么用不了?

<p>请大家帮忙,看一下这个程序怎么用不了?急用,可就是运行不了.</p><p>(defun c:tt(/ oldorth oldosmo oldcmd pt ss)<br/>&nbsp; (setq oldorth(getvar "orthomode")<br/>&nbsp;oldosmo(getvar "osmode")<br/>&nbsp;oldcmd (getvar "cmdecho"))<br/>&nbsp; (setvar "Orthomode" 0)<br/>&nbsp; (setvar "osmode" 33)<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (setq pt(getpoint "\n Selection start point:"))<br/>&nbsp; (command "pline" pt)<br/>&nbsp; (while<br/>&nbsp;&nbsp;&nbsp; (command "_circle" pt 2)<br/>&nbsp;&nbsp;&nbsp; (setq ss(entget))<br/>&nbsp;&nbsp;&nbsp; (setvar "osmode" 32) ;设置为交点捕捉,求圆与直线的交点<br/>&nbsp;&nbsp;&nbsp; (setq pt(getpoint pt "\n Selection point:"))<br/>&nbsp;&nbsp;&nbsp; (command "_erase" ss "")<br/>&nbsp;&nbsp;&nbsp; (command pt)&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (command "")<br/>&nbsp; <br/>&nbsp; (setvar "orthomde" oldorth)<br/>&nbsp; (setvar "osmode" oldosmo)<br/>&nbsp; (setvar "cmdecho" oldcmd)<br/>&nbsp; (print)<br/>)</p>

zj-ο○oοo 发表于 2008-12-23 20:34:00

<font color="#ee11ee">看不懂你程序想干什么，说下你程序的意图？</font>

jiangzl 发表于 2008-12-25 18:08:00

<p>我的程序意图是:按指定长段多段线来放线,因为无法控制直线长度,所以只能用相应长度的半径的园来求交点,点取画后多段线.</p><p>如附件图中,兰色的线是我要的目的线,长为L,与白色的线相交,我做程序的想法是用圆去与白色的线相交,再画兰色的线.</p>

kai295701917 发表于 2009-1-3 13:27:00

<p>按照楼主的意思</p><p>(command "_circle" pt 2)</p><p>应该是while的判断式</p><p>但是它总是返回nil</p><p>所以程序无法执行while循环</p>
页: [1]
查看完整版本: [求助]请大家帮忙,看一下这个程序怎么用不了?