机械cad开发技术

《机械cad开发技术》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、机械CAD开发技术——AutoCAD二次开发入门讲授：吴军课程内容（10+6学时）（1+0学时）（2+2学时）（2+2学时）（1+2学时）（2+0学时）4.对话框的设计5.综合练习6.VBA编程介绍1.AutoLISP编程2.VisualLISP开发3.菜单的设计理论上机第1讲AutoLISP编程1.AutoLISP语法2.AutoCAD命令复习3.AutoLISP与AutoCAD命令的连接4.自动绘制图形5.图形对象选取6.编辑图形穿插讲VisualLisp开发环境的使用AutoLISP编程—语法AutoLISP语法数据类型：常量、变量、空间点语法特点:表

2、()赋值语句：setq数学运算:+、-、*、/、PI函数定义：defun输入语句：getpoint、getdist点的坐标：list、car、cadr、polar流程：判断if与选择whileAutoLISP编程—语法数据类型：整型、实型、字符串、表函数（相对于子程序如：PI、+）图元（图形对象）……等常量数字5、1.5字符串“a”、“ab”“”(空串也是串)—绘图命令中的“确认”！表（数组）：(1,-2,3)(坐标点)变量（全局、局部）赋值语句(setqa1)(setqb(1,2))AutoLISP编程—语法表()(注意：成对出现)操作符操作数1操作数2…

3、…符、数之间必须有空格，以示区分！例：(+12)结果：3()可嵌套()与符、数、()之间可无空格例：(setqa(*(-5(+12))2))结果：a=4连+、-例：(setqa(+1234))结果：a=10AutoLISP编程—语法函数定义：(defunc:hanshu(a)……；注释内容)输入函数：（通过键盘、鼠标）getpoint输入空间点(1，2)getdist输入距离（数字）5例：(setqp(getpoint“请输入圆心坐标：”))(setqr(getdist“请输入圆半径值：”))(command“circle”pr)命令栏提示Auto

4、LISP编程—Autocad命令Autocad命令(注意：观察命令栏的提示)直线line矩形rectangle圆circle圆弧arc(多种方式)正多边形polygon复制copy镜像mirror阵列array对象选择方式“w”“c”“l”…AutoLISP编程—与图形接口绘图命令的接口：command(command“命令”参数1参数2…)(command“line”p1p2“”)(command“line”“0,0”“30,20”“”)(command“circle”por)(command“circle”“0,0”20)(command“arc”“c”

5、pop1p2)AutoLISP编程—与图形接口绘直线为什么要有个空字符“”格式：参数——变量：(command“line”p1p2“”)(command“circle”por)参数——常量(坐标点)：(command“line”“0,0”“30,20”“”)(command“circle”“0,0”20)“”=确认键“”中间不能空格，空格≠空问：例dtr角度转成弧度setvar设置环境变量cmdecho0原函数不起作用，1起作用直线AutoLISP编程语言—流程选择—if单选,二选一(if条件表达式表达式1[表达式2])若条件表达式结果为真，执行表达式1，否

6、则，执行表达式2（或下条语句）。例：(if(>a1)(setqb2))如果a大于1，则b等于2，否则执行下条语句。(if(>a1)(setqb2)(setqb3))如果a大于1，则b等于2，否则b等于3，求值结束。AutoLISP编程语言—流程选择—cond选择分支，多选一(cond(测试表达式1结果表达式1)[(测试表达式2结果表达式2)]…)AutoLISP编程语言—流程(progon多语句)该函数将n个表达式组合起来，作为if函数的一个表达式。例如：(if(>a1)(progn(setqb2)(print(＋ba)))(progn(setqb4)(pr

7、intb)))该程序段的执行过程是，若条件成立，b等于2，然后打印a与b之和，返回a与b之和；若条件不成立，b等于4，然后打印4，返回4。AutoLISP编程语言—流程循环repeatn次循环（次数确定）While满足条件循环（次数不确定）子程序AutoLISP编程语言—举例编程练习矩形框太极图单循环多循环例princ命令栏不显示系统反馈的结果，如：出错圆，循环第2讲VisualLISP开发环境LSP文件的编写、调试、加载()、函数、数值、注释的区分LSP程序的加载与运行LSP程序的自动加载VisualLISP开发环境VisualLISP何用？开发AutoL

8、ISP程序AutoLISP程序与C++、Basic一