第7章CAD系统的二次开发.pptVIP

第7章 CAD系统的二次开发技术 第7章 CAD系统的二次开发技术 第7章 CAD系统的二次开发技术 内容 7.1 二次开发概述 7.2 AutoCAD软件开发技术概述 7.3 Visual LISP 7.4 VBA 7.1 二次开发概述 7.1.1 二次开发的定义、意义及特点 7.1.2 机械CAD软件的二次开发 1. 二次开发的内容 （1）交互式系统的完善 （2）交互式系统、数据库管理系统、有限元分析系统间的连接和相互调用 （3）参数化设计模块的设计 （4）界面设计。主要包括菜单的设计、对话框设计等 （5）国家标准数据库的建立 （6）工程符号和汉字的处理 二次开发的基本思路： 以交互式图形系统为主要支撑， 以图形系统的用户语言为进程的控制者， 以高级语言为系统连接及数据库转换的枢纽， 开发一个集参数化设计零件、交互式编辑图形、数据的系统管理、零件的有限元分析为一体的机械CAD软件系统。  2. 开发软件应具备的功能 （1）交互图形处理功能 （2）设计计算功能 （3）参数化绘图功能 （4）校核功能 （5）有限元分析功能 （6）数据库管理功能  3. 开发要求 （1）结果正确 （2）操作方便 （3）友好的人机交互界面 7.2 AutoCAD软件开发技术概述 AutoCAD软件二次开发工具： AutoLISP编程语言：嵌入在AutoCAD内部的LISP子集 ADS：C语言编写的开发环境 Visual LISP：为增强AutoLISP程序开发能力而设计 Object ARX：面向对象的应用程序开发环境，C++ Active Automation：一套标准，允许通过外显的对象由一个Windows应用程序控制另一个Windows应用程序 VBA:Visual Basic for Application 7.3 Visual LISP 2. Visual LISP 内嵌在AutoCAD内 为增强AutoLISP程序开发能力，加速AutoLISP程序开发而设计的 通过集成开发环境IDE（Integrated Development Environment）进行编写、修改程序、调试和运行。 7.3.2 Visual LISP的启动 （1）启动AutoCAD （2） 【工具】→【AutoLISP】→【Visual LISP 编辑器】 或在命令提示区输入命令VLISP或VLIDE 7.3.3 Visual LISP的显示界面 7.3.4 AutoLISP语言的常用函数 1 赋值函数 设定变量的函数为(setq)，语句为： (setq 变量名 表达式)，将表达式的值赋给变量。 例：(setq a 5.0) ，结果a=5.0 2 数值计算函数 (1) (+ num1 num2 …) 返回所有数的总和 例：(+ 1 2 3 4.5) 返回10.5 (2) (- num1 num2 …)返回第一个数减去后面所有数的差。 例：(- 50 40.0 2)返回8.0 (3) (* num1 num2 …)返回所有数的乘积。 例(* 1 2 3)返回6 (4) (/ num1 num2 …)返回第一个数除以后面所有数的商。 例：(/ 100 20.0 2)返回2.5 7.3.4 AutoLISP语言的常用函数 2 数值计算函数 (5)求另一点坐标 (Polar P1 ang d)。已知P1点，求与P1点距离为d、角度为ang的另一点P2的坐标 例 (Polar ‘(1.0 1.0) 0.785 1.414) 得(2.0 2.0) 7.3.4 AutoLISP语言的常用函数 3 交互性数据输入函数 （1） 坐标点输入函数：(getpoint [提示]) 例 (setq p0 (getpoint “enter a point:”)) 等待输入点的坐标值，把输入的点的坐标赋给p0 （2） 距离输入函数：(getdist [基点] [提示]) 例 (setq dist (getdist “How far”)) 把输入的距离值赋给dist变量 7.3.4 AutoLISP语言的常用函数 4 存取AutoCAD系统变量值函数 （1）设置系统变量值函数 ： 格式：(setvar varname value) 把值value赋给系统变量varname。 例(setvar “dimtxt” 5)，结果dimtxt=5。 （2）获取系统变量值函数 ： 格式：(getvar varname) 返