[讨论]带轮参数化设计的lisp驱动程序调试不成功，光把对话框编好了不管用呀！
<P></P><P> 急！！！ 在参考带轮参数化设计时，引用了lisp教程中的带轮参数化设计，包括三维绘图的一部分，结果把对话框编出来了，没问题，可是驱动程序却总是调试不成功，真急人，请教高手在所编的对话框的基础上修改lisp程序，谢谢啦！附件中是源程序及幻灯由于我的visualisp学的时间尚浅，希望通过不断交流得到更多收获！<A href="mailto:02071204@sina.com" target="_blank" >02071204@sina.com</A>我的邮箱，请把可以运行的对话框lisp驱动程序发给我，衷心感谢！</P> <P>请帮忙啊！</P>
<P> </P> 急切希望高手帮忙!! <P></P>
<P>程序可以画出图了,不过什么是带轮我不懂得,我的参数都是乱给的,画出来有点乱.</P>
<P>还有就是没有测试三维实体.</P>
<P>程序还是要自己调试的比较好啊,调试的过程就是一种学习的过程.</P> 谢谢<A name=16159><FONT color=#000066><B>xxsheng</B></FONT></A>！ <P>我觉得“初始化对话框”这部分还是有问题的，开始的函数定义对吗？</P>
<P>(defun initial();/ ddy1_list ddz1_list dda1_list ddb1_list ddc1_list ddd1_list dde1_list)<BR> ;设置轮直径<BR> (setq ddy1_list '("28" "31.5" "40" "45" "50" ))<BR> (setq ddz1_list '("50" "56" "63" "71" "75" "80" "90"))<BR> (setq dda1_list '("75" "80" "85" "90" "95" "100" "106" "112" "118" "125" "132" "140" "150" "160" "180"))<BR> (setq ddb1_list '("125" "132" "140" "150" "160" "170" "180" "200" "224" "250" "280"))<BR> (setq ddc1_list '("200" "212" "224" "236" "250" "265" "280" "300" "315" "335" "355" "400" "450"))<BR> (setq ddd1_list '("355" "375" "400" "425" "450" "475" "500" "560" "600" "630" "710" "750" "800"))<BR> (setq dde1_list '("500" "530" "560" "600" "630" "670" "710" "800" "900" "1000" "1120"))<BR> ;设置轮的齿参数f,e,b0,h,ha<BR> (setq data_y_list '(6 8 5.3 6 1.6))<BR> (setq data_z_list '(7 12 8.5 9 2.0))<BR> (setq data_a_list '(9.5 15 11.0 11.5 2.75))<BR> (setq data_b_list '(12.5 19 14.0 14.5 3.5))<BR> (setq data_c_list '(17 25.5 19.0 19 4.8))<BR> (setq data_d_list '(24 37 27.0 28 8.1))<BR> (setq data_e_list '(29 44.5 32.0 33 9.6))<BR> ;设置对话框初始化参数<BR> (setq category "-1")<BR> (show "key_image" "dailun")<BR> )</P> <P>初始化函数没问题，是设置相关动作有问题。整体调试过的程序：</P> 急切希望高手帮忙 发个弄好的！我弄啦半天都不行
页:
[1]