[讨论]带轮参数化设计的lisp驱动程序调试不成功，光把对话框编好了不管用呀！

02071204

 急！！！  在参考带轮参数化设计时，引用了lisp教程中的带轮参数化设计，包括三维绘图的一部分，结果把对话框编出来了，没问题，可是驱动程序却总是调试不成功，真急人，请教高手在所编的对话框的基础上修改lisp程序，谢谢啦！附件中是源程序及幻灯由于我的visualisp学的时间尚浅，希望通过不断交流得到更多收获！02071204@sina.com我的邮箱，请把可以运行的对话框lisp驱动程序发给我，衷心感谢！

02071204

请帮忙啊！

 

02071204

急切希望高手帮忙!!

xxsheng

程序可以画出图了,不过什么是带轮我不懂得,我的参数都是乱给的,画出来有点乱.

还有就是没有测试三维实体.

程序还是要自己调试的比较好啊,调试的过程就是一种学习的过程.

02071204

谢谢xxsheng！

02071204

我觉得“初始化对话框”这部分还是有问题的，开始的函数定义对吗？

(defun initial();/ ddy1_list ddz1_list dda1_list ddb1_list ddc1_list ddd1_list dde1_list)
    ;设置轮直径
    (setq ddy1_list '("28" "31.5" "40" "45" "50" ))
    (setq ddz1_list '("50" "56" "63" "71" "75" "80" "90"))
    (setq dda1_list '("75" "80" "85" "90" "95" "100" "106" "112" "118" "125" "132" "140" "150" "160" "180"))
    (setq ddb1_list '("125" "132" "140" "150" "160" "170" "180" "200" "224" "250" "280"))
    (setq ddc1_list '("200" "212" "224" "236" "250" "265" "280" "300" "315" "335" "355" "400" "450"))
    (setq ddd1_list '("355" "375" "400" "425" "450" "475" "500" "560" "600" "630" "710" "750" "800"))
    (setq dde1_list '("500" "530" "560" "600" "630" "670" "710" "800" "900" "1000" "1120"))
    ;设置轮的齿参数f,e,b0,h,ha
    (setq data_y_list '(6 8 5.3 6 1.6))
    (setq data_z_list '(7 12 8.5 9 2.0))
    (setq data_a_list '(9.5 15 11.0 11.5 2.75))
    (setq data_b_list '(12.5 19 14.0 14.5 3.5))
    (setq data_c_list '(17 25.5 19.0 19 4.8))
    (setq data_d_list '(24 37 27.0 28 8.1))
    (setq data_e_list '(29 44.5 32.0 33 9.6))
    ;设置对话框初始化参数
    (setq category "-1")
    (show "key_image" "dailun")
    )

ZZXXQQ

初始化函数没问题，是设置相关动作有问题。整体调试过的程序：

zhangchao89

急切希望高手帮忙

zhangchao89

发个弄好的！我弄啦半天都不行