求助？请高手点化一下？不胜感激？谢了？ - AutoCAD三维造型 - AutoCAD论坛 - 明经CAD社区 - ET,请输入,不知道,螺旋线,那里 - Powered by Discuz! Archiver

社区 › AutoCAD三维造型 › 求助？请高手点化一下？不胜感激？谢了？

XYA10 发表于 2006-6-30 14:38:00

求助？请高手点化一下？不胜感激？谢了？

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="skins/default/topicface/face1.gif" border=0> 编了个程序做螺旋线，但是加载时候，提示有错误，不知道在那里，请指点？<B></B><BR>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体>(defun c:luoxian</FONT></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">                    (/)</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq b1 (getpoint"指定螺旋线基点: "))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq r (getreal"请输入螺纹平均半径: "))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq disp (getreal"请输入螺纹节距: "))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq n (getint"请输入每圈细化段数: "))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq delta (/ (*2.0 pi)n))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq j (/ disp n))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq bb (caddr bl))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq and 0)</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (setq jj 0)</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (Command "UCS" "o" b1)</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (command "3dpoly" (list r 0 0))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (repeat n</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-tab-count: 1">    (setq jj (+jj))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-tab-count: 1">    (setq ang (+delta ang))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-tab-count: 1">    (setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-tab-count: 1">    (Command pt2)</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   )</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   (Command"")</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><SPAN style="mso-spacerun: yes">   )</FONT></SPAN></P>
<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></P></TD></TR></TBODY></TABLE>

362810200 发表于 2006-7-1 08:41:00

你来错地方了！

XYA10 发表于 2006-7-1 20:38:00

不好意思,版主,我在那个区发了N天,都没人里我,觉得这里人气好,才发到这里的?请帮帮我吧?谢谢了

guyuxian 发表于 2006-7-2 09:18:00

这些程序我怎么看了就头晕呢？？？？？

xhq1954425 发表于 2006-7-2 10:34:00

先把有可能出错的语句变成注释行，再运行看看，如果还出错就说明变成注释行的语句没错，如果能正常运行就说明变成注释行的语句有错，这是用的排除法，调试程序很费劲，你不是自己调试吧！

362810200 发表于 2006-7-2 16:24:00

<P>我不是怪你，我只想告诉你那里是专门的版块，会的人应该很多的！</P>
<P>只是我一时发快了。没有详细说明白！</P>

XYA10 发表于 2006-7-3 13:11:00

<P>谢谢了　　？</P>

页: [1]

查看完整版本: 求助？请高手点化一下？不胜感激？谢了？