jiangzl 发表于 2009-1-1 16:57: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);;;;运行pline命令<br/>&nbsp; (while<br/>&nbsp;&nbsp;&nbsp; (command "_circle" pt 2)&nbsp;&nbsp;&nbsp;;;;;;作圆<br/>&nbsp;&nbsp;&nbsp; (setq ss(entget))<br/>&nbsp;&nbsp;&nbsp; (setvar "osmode" 32) ;设置为交点捕捉,求圆与直线的交点</p><p>&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;&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><p></p>
页: [1]
查看完整版本: 请高手指点程序，谢谢