autolisp凸轮设计与仿真

《autolisp凸轮设计与仿真》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、对话框的设计AutoCAD为用户提供的可编程对话框技术是由专用的对话框描述语言（DCL）和AutoLISP驱动函数两部分内容组成的。对话框由框架和包含在框架内的控件组成。一个对话框由位于其中的按钮（单选框、复选框、图像、动作）、文本编辑框、弹出式列表框和滑动条等控件组成。1.控件的定义方式2.1.name:item1[:item2:item3…]{attribute1=value1;attribute2=value2;……;}}一般必须有key属性，驱动时用。对话框例子：pianzhigunzi_dlg:dialog{lab

2、el="解析法设计偏置直动滚子推杆盘形凸轮";:column{label="绘图类型";:image_button{key="pianzhitulun";width=30;height=18;color=-2;//背景为黑色}:edit_box{label="行程h:";key="key_h";width=20;}:edit_box{label="基圆半径r:";key="key_r";width=20;}:edit_box{label="偏距e:";key="key_e";width=20;}:edit_box{label="

3、滚子半径rc:";key="key_rc";width=20;}:edit_box{label="推程运动角alf1:";key="key_alf1";width=20;}:edit_box{label="近休止角alf2:";key="key_alf2";width=20;}:edit_box{label="回程运动角alf3:";key="key_alf3";width=20;}:edit_box{label="远休止角alf4:";key="key_alf4";width=20;}:button{label="绘制理论轮廓

4、";key="draw_lilun";}:button{label="绘制工作轮廓";key="draw_gongzuo";}:button{label="绘制推杆运动规律";key="draw_yundong";}}ok_cancel;}二、对话框驱动(load_dialogdclfile) (new_dialogdlgnamedcl_id)(start_dialog)(unload_dialogdcl_id)装入一个DCL文件至内存。成功：正整数否则：负整数开始一个新的对话框，并显示该对话框显示一个对话框，并开始接受用户的输

5、入。所有对话框的初始化工作，如：设置控件值、生成图像、生成列表框的表以及将各个动作与特定的控件联系起来(用action_tile函数完成）等等，都必须发生在调用new_dialog函数之后，同时也必须发生在调用Start_dialog函数之前。卸装一个DCL文件(defunc:tulun()(setqid(load_dialog"e:\wly\autolispxuexi\autolispstudy\tulun1_dialog"))//装载对话框文件(if(

6、w_dialog"pianzhigunzi_dlg"id))(exit))//对话框文件中名称不存在，退出(f_img"pianzhitulun""e:\wly\autolispxuexi\autolispstudy\tulun1")(set_tile"key_h""50")(set_tile"key_r""50")(set_tile"key_e""20")(set_tile"key_rc""10")(set_tile"key_alf1""120")(set_tile"key_alf2""30")(set_tile"ke

7、y_alf3""60")(set_tile"key_alf4""150")(action_tile"draw_lilun""(getdata)(done_dialog2)")(action_tile"draw_gongzuo""(getdata)(done_dialog3)")(action_tile"draw_yundong""(getdata)(done_dialog4)")(action_tile"accept""(done_dialog1)")(action_tile"cancel""(done_dialog-1)")(

8、setqvalue(start_dialog))//显示对话框，将得到关闭对话框是的状态值(if(=value2)(draw_lilun))(if(=value3)(draw_gongzuo))(if(=value4)(draw_yundong))(princ)