Autolisp讲义.ppt

AutoLISP 美国AutoDesk公司在AutoCAD内部嵌入AutoLISP的目的是使用户充分利用AutoCAD进行二次开发：实现直接增加和修改AutoCAD命令，随意扩大图形编辑功能，建立图形库和数据库并对当前图形进行直接访问和修改，开发CAD软件包等。 数值函数（四则运算） ( + number number … ) ( - number number … ) ( * number number … ) ( / number number … ) 数值函数（其他运算） ( ABS number ) 求该数之绝对值 ( SQRT number ) 求该数之平方根 ( SIN number ) 求该数之正弦值 ( COS number ) 求该数之余弦值 ( ATAN number )求该数之反正切 ( EXPT base power )返回底数的幂次方 赋值函数 ( Setq 变量 表达式) 例如： ( Setq A 8 B 1.2) 结果 整变量A为8，实变量B为1.2 构造表函数 ( List 表达式 表达式…) 例如： ( List 8.1 1.2 3.4) 返回表（8.1 1.2 3.4） 构造表函数 ( List 表达式 表达式…) 例如： ( List 8.1 1.2 3.4) 返回表（8.1 1.2 3.4） 提取表中数据函数举例 (Setq Pt ‘( 3 2 1.0 )) (Setq X (Car Pt) 返回3 (Setq Y (Cadr Pt) 返回2 (Setq Z (Caddr Pt) 返回1.0 函数处理函数 ( defun 函数名 形参表 表达式) 例如：定义一个将度转换成弧度的函数 （defun dtr(a) (* a (/ pi 180.0) ) 调用： Command: (dtr 180) 返回3.14159 Command函数 ( Command 参数 ) 例如： （Command “line” “3.0,4.0” “7.0,9.0” “ ” ) (Command “MOVE” knife “ ” “0,0” “0,-70” ) (C:Rotate3D)函数 Rotate3d并非AutoCAD内嵌命令，需以（C:Rotate3D)函数形式调用，还需初始化，以无参数形式调用，用户需键入回车。 例如： （C:Rotate3D) 坐标系转换函数 （trans 点 from to [位移量]) 该函数可将一个点从一种坐标系变成另一种坐标系 例如： (Setq p0（trans p0 0 1)) 0: WCS 1: 当前UCS 图形实体选择函数 （entlast) 返回最后加入图形数据库的主实体的实体名。 例如： (Command “CYLINER” ‘(0 0 0) 100 300) (Setq base (entlast)) 循环函数 （repeat 数 表达式) 循环已知次数，返回最后计算结果。 （Setq a 10) (Setq b 100) (repeat 4 (Setq a (+ a 10)) (Setq b (- b 10)) ) Command: !a a的值为50 举例-空间圆柱凸轮 举例-空间圆柱凸轮  一些复杂的零件如空间圆柱凸轮，蜗轮涡杆等都具有复杂的空间曲面，因而很难构造它们的立体图。我们可以模仿机械加工的方法来构造零件的立体图。不管零件的形状有多复杂，只要它能被加工出来，就可以仿照其加工的方法和步骤构造出其立体图。 举例-空间圆柱凸轮 其加工过程大约有以下五道工序： 1. 生成铸件（或锻件） 毛坯用CYLINDER命令生成圆柱体A0 2. 加工内孔 用CYLINDER命令生成圆柱体B，再用SUBTRACT命令求差，得A1=A0-B。 3. 倒角 用CONE命令生成圆锥体C1和C2，再用SUBTRACT命令求差，得A2=A1-C1-C2。 举例-空间圆柱凸轮 4. 剃键槽 用BOX命令生成长方体D，再用SUBTRACT命令求差，得A3=A2-D 5. 加工凸轮工作面，要求刀具中心与凸轮轮坯之间的相对运动遵循刀具中心轨迹点坐标的变化规律。 举例-空间圆柱凸轮 下拉菜单: 辅助---Autolisp(s)---加载 举例-空间圆柱凸轮 举例 凸轮—sampl2-04.lsp 齿轮轮廓—sampl1.lsp sampl1.dcl 键槽轮廓—