机械CAD开发技术课件.pptVIP

机械CAD开发技术 ——AutoCAD 二次开发入门 课程内容 （10+6学时） （1+0学时） （2+2学时） （2+2学时） （1+2学时） （2+0学时） 第1讲 AutoLISP编程 1. AutoLISP语法 2. AutoCAD命令复习 3. AutoLISP与AutoCAD命令的连接 4. 自动绘制图形 5. 图形对象选取 6. 编辑图形 AutoLISP编程—语法 AutoLISP 语法 数据类型：常量、变量、空间点 语法特点: 表 ( ) 赋值语句：setq 数学运算: +、-、*、/、PI 函数定义：defun 输入语句：getpoint、getdist 点的坐标：list、car、cadr、polar 流程：判断if与选择while AutoLISP编程—语法 数据类型：整型、实型、字符串、表 函数（相对于子程序 如：PI、+） 图元（图形对象）……等 常量 数字5、1.5 字符串 “a”、 “ab” “”(空串也是串)— 绘图命令中的“确认”！ 表（数组）： (1, -2, 3) (坐标点) 变量 （全局、局部） 赋值语句 (setq a 1) (setq b (1, 2)) AutoLISP编程—语法 表 ( ) (注意：成对出现) 操作符 操作数1 操作数2…… 符、数之间必须有空格，以示区分！ 例：(+ 1 2) 结果：3 ( )可嵌套 ( )与符、数、( )之间可无空格 例：(setq a(*(- 5 (+ 1 2)) 2) ) 结果：a=4 连+、- 例：(setq a( + 1 2 3 4)) 结果：a=10 AutoLISP编程—语法 函数定义：(defun c:hanshu(\a) …… ；注释内容 ) 输入函数：（通过键盘、鼠标） getpoint 输入空间点 (1，2) getdist 输入距离（数字） 5 例： (setq p (getpoint “\n请输入圆心坐标：”)) (setq r (getdist “\n请输入圆半径值：”)) (command “circle” p r) AutoLISP编程—Autocad命令 Autocad命令 (注意：观察命令栏的提示) 直线 line 矩形 rectangle 圆 circle 圆弧 arc (多种方式) 正多边形 polygon 复制 copy 镜像 mirror 阵列 array 对象选择方式 “w” “c” “l”… AutoLISP编程—与图形接口 绘图命令的接口：command (command “命令” 参数1 参数2 …) (command “line” p1 p2 “”) (command “line” “0,0” “30,20” “”) (command “circle” po r) (command “circle” “0,0” 20) (command “arc” “c” po p1 p2) AutoLISP编程—与图形接口 格式： 参数——变量： (command “line” p1 p2 “”) (command “circle” po r) 参数——常量(坐标点) ： (command “line” “0,0” “30,20” “”) (command “circle” “0,0” 20) 例 AutoLISP 编程语言—流程 选择 —if 单选,二选一 (if 条件表达式 表达式1 [表达式2]) 若条件表达式结果为真，执行表达式1，否则，执行表达式2（或下条语句）。 例：(if ( a 1) (setq b 2) ) 如果a 大于 1，则b等于2，否则执行下条语句。 (if ( a 1) (setq b 2) (setq b 3) ) 如果a 大于 1，则b等于2，否则b等于3，求值结束。 AutoLISP 编程语言—流程 选择 —cond 选择分支，多选一 (cond (测试表达式1 结果表达式1) [(测试表达式2 结果表达式2)] …) AutoLISP 编程语言—流程 (progon 多语句)