autolisp凸轮设计与仿真

一、对话框的设计AutoCAD为用户提供的可编程对话框技术是由专用的对话框描述语言（DCL）和AutoLISP驱动函数两部分内容组成的。

对话框由框架和包含在框架内的控件组成。

一个对话框由位于其中的按钮（单选框、复选框、图像、动作）、文本编辑框、弹出式列表框和滑动条等控件组成。

2.3.name : item1 [ : item2 : item3…]{ attribute1=value1;attribute2=value2;……;} }一般必须有key属性，驱动时用。

对话框例子：pianzhigunzi_dlg:dialog{label="解析法设计偏置直动滚子推杆盘形凸轮"; :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="滚子半径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="绘制理论轮廓";key="draw_lilun";}:button{label="绘制工作轮廓";key="draw_gongzuo";}:button{label="绘制推杆运动规律";key="draw_yundong";}}ok_cancel;}二、对话框驱动(defun c:tulun( )(setq id (load_dialog "e:\\wly\\autolisp xuexi\\autolisp study\\tulun1_dialog")) //装载对话框文件(if (< id 0) (exit)) //如文件不存在，退出(if (not (new_dialog "pianzhigunzi_dlg" id)) (exit)) //对话框文件中名称不存在，退出(f_img "pianzhitulun" "e:\\wly\\autolisp xuexi\\autolisp study\\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 "key_alf3" "60")(set_tile "key_alf4" "150")(action_tile "draw_lilun" "(getdata)(done_dialog 2)")(action_tile "draw_gongzuo" "(getdata)(done_dialog 3)")(action_tile "draw_yundong" "(getdata)(done_dialog 4)")(action_tile "accept" "(done_dialog 1)")(action_tile "cancel" "(done_dialog -1)")(setq value (start_dialog) )//显示对话框，将得到关闭对话框是的状态值(if (= value 2) (draw_lilun))(if (= value 3) (draw_gongzuo))(if (= value 4) (draw_yundong))(princ)(unload_dialog id) //卸载对话框)(defun f_img( key sld);定义初始化图像按钮函数装幻灯片函数(start_image key)(slide_image 0 0 (dimx_tile key) (dimy_tile key) sld)(end_image))函数定义(defun c:My-circle()(setq pt (list 100 100)) ;;; 得到圆心坐标(setq r 50) ;;; 得到半径(command “circle” pt r) ;;; 绘制圆)规则1：以括号组成表达式，左右括号“（”&“）”一定要配对。

表达式是AutoLISP的基本语句，所有表达式都具有以下形式：（函数[参数表]）即由一个函数名和调用这个函数所需的参数表组成。

参数表中的参数也可以是表达式，即AutoLISP的表达式可以嵌套。

规则2：注释以分号“;”开头，它可以单独位于一行，也可以位于某一程序语句的后面。

编写AutoLISP程序时，应添加必要的注释，以说明程序的功能、规则3：“前缀表示法”。

AutoLISP语言的结构与常用高级结构有所区别。

像BASIC、PASCAL、C等语言均采用“中缀表示法”。

当给变量a赋值12.0时，通常为下面的形式：a=12.0;即赋值运算符“=”位于中间。

AutoLISP则采用，即把运算符放在参数表的第一个元素的位置，后面为其参数。

例如，通常用到的表达式X=(A+B)×C在AutoLISP中表示为：（setq X （* (+ A B) C））规则4：运算顺序“由内而外、由左而右”。

在AutoLISP表达式中，函数参数表对表达式的执行过程是从最内层表开始逐步到最外层表，每个表达式都会返回一个值，该值可以被变量或外层表达式引用。

如果没被引用，返回值会显示在AutoCAD 的命令窗口。

（setq x (* h (+ a (* r (cos A))))）x=h(a+r×cosA)条件and 循环指令条件函数（if<条件><表达式1><表达式2>）根据条件计算表达式。

如果<条件>不为nil，计算<表达式1>，并返回计算结果；否则计算<表达式2>，返回计算结果。

（cond （<条件1> <表达式1>）…（<条件n> <表达式n>）（T <其他表达式>））从上往下判断，一旦发现条件满足，计算与该条件对应的表达式并返回计算结果，不再继续判断条件。

循环函数（while <条件> [<标准表>…]）如果<条件>成立，执行各<标准表>，执行后再判断<条件>是否成立。

如果成立，继续执行各<标准表>，如此循环反复，直到条件不成立，并返回最后得到的计算结果。

（repeat <数> <表达式>）重复计算<表达式>，计算次数由<数>确定，返回最后的计算结果。

赋值函数赋值函数是AutoLISP程序中最常用的函数之一。

较为常用的赋值函数是setq，其使用格式为：(setq <符号1> <表达式1> [符号2] [表达式2]…)功能：依次将各表达式的值赋给对应的符号。

例(setq x 30 y 20 r 50)List五对话框编程函数：1，对话框打开和关闭函数done_dialog一. 功能终止一个对话框。

二. 格式(done_dialog [status])三. 说明你必须从一个动作表达式或一个回调函数中调用done_dialog函数（参见action_tile函数的介绍）。

如果你指定了任选变元status﹐它必须是一个正整数(2-32767之间)﹐这个正整数将由Start_dialog函数返回﹐而代替拾取OK按钮返回1或拾取Cancel按钮返回0。

任何大于1的Status值的具体含义﹐取决于你所编制的应用程序。

Done_dialog函数返回一个2D点表﹐该点表示当你退出对话框时该对话框的位置坐标(X ﹐Y)。

该返回点取自对话框上的哪一个点作为参考点是由平台决定的﹐参考点的坐标单位同样也是由平台决定的。

通常情况下﹐参考点是对话框的左上角。

你可以将这个点传给随后调用的new_dialog函数﹐在重新打开对话框时﹐将对话框定位在用户指定的位置上。

如果你为关键字"accept"或"cnacel"的（通常OK和Cancel按钮）提供了一个回调函数﹐那么﹐该回调函数必须显示地调用done_dialog函数﹐如果不这样做﹐用户就会被困在这个对话框中。

如果你不为这些按钮提供一个显式地回调函数﹐而使用标准的退出按钮﹐AutoCAD将自动处理它们。

此外﹐为"accept"按钮提供的一个显式的回调函数必须使其在调用done_dialog时将变元status指定为1（或由应用程序定义的其它值）；否则﹐Start_dialog 函数会返回隐含值0﹐而0意味着用户取消了该对话框。