螺旋面方程建立.docVIP

25 够直接导致设计结果的自动修改。由计算机自动查询图形数据库，由专门的绘图 生成软件在屏幕上自动地设计出图形来，这种方法成为参数化 CAD。 参数化 CAD 设计极大地改善了图形设计的重构能力, 提高了设计的柔性。参 数化设计特别适合于结构形式固定而结构尺寸变化的规格化、系列化产品, 尤其是 机械领域的标准件设计, 如螺栓、螺母、导柱、导套、模具、夹具、组合机床、阀 门等。它不仅可以使 AutoCAD 系统具有交互式绘图功能, 而且还具有自动绘图功 能, 利用参数化的设计手段开发专用的设计系统, 可使设计人员从大量繁琐的绘 图工作中解脱出来, 极大地提高设计速度。其工作原理见图 4-3 所示。 图 4-3 AutoCAD 参数化设计工作原理 4.3.2 参数化曲线的设计 在零件实体的建模过程中, 有时需要先绘制一些特殊曲线, 如绘制齿轮模型 需要渐开线、绘制螺钉螺母模型需要螺旋线、绘制弹簧需要阿基米德螺旋线等。 这些特殊的曲线如果采用 AutoCAD 交互式绘制方式一般是难以完成的。不过这些 曲线一般均有其参数方程, 因此我们可以采用模拟的方式通过编程将其绘出。即把 曲线划分为一系列极微小的曲线段, 每段用一小段直线代替, 以大量的直线段来 模拟曲线, 当精度较高时, 模拟的直线段能很好地逼近真实曲线。另外也可以先计 主参数 参数处理与计算 生成绘图文件 图形显示 设计者 设计者 数据库 数据库算曲线上的控制点，然后利用 AutoCAD 提供的绘制样条曲线的命令，让样条曲线 通过这些控制点从而绘制曲线。第一种方法比较容易实现，不过会生成大量的直 线对象，占用较多的内存和时间。而第二种方法绘制出的曲线比较光滑，不过与 控制点相切的三维矢量不好确定，绘制难度相对较大。本系统采用直线段的方法。 4.3.4 常用件的设计 对于齿轮、带轮、链轮、蜗轮、蜗杆、轴等一些常用控件，尽管其结构没有 像螺栓、螺母那样完全实现标准化，但是从其结构上来看，可以实现部分结构标 准化。比如齿轮，我们只需输入模数、齿数、压力角、齿宽、轴径等参数，便可 编程实现其二维或三维图形的自动绘制。而轴类零件尽管其结构较为简单，一般 由基本图形，如矩形轴段、梯形轴段、倒角、退刀槽、键槽等部分组成。但由于 轴的段数和每段轴的形状都不是固定的, 其结构形状、尺寸等变化较大, 无法采用 一般的参数化编程方法来实现。这里采用拼合法，分别对每个基本图形编程完成 绘制，再用布尔运算合并成一个整体。 5.1 在 VB 中调用 AutoCAD 在 VB 中，界面设计好后就需要连接 AutoCAD，在 CAD 里绘制图形。 因为 VBA 程序和当前的 AutoCAD 图形自动连接，可通过 ThisDrawing 对象 直接访问图形，而 VB 和 AutoCAD 之间通过 COM 技术连接，VB 要通过访问 AutoCAD 的根对象和文档对象来实现对 AutoCAD 的访问，所以 VB 代码要复杂一 些。 VB 连接 AutoCAD 步骤： （1)首先要引用 AutoCAD Type Library，在 VB 中选择“工程”→“引用”， 在“引用”对话框中选择 AutoCAD2004 Type Library 。（和安装的 AutoCAD 版本 有关，如果自己电脑中安装的是 AutoCAD2007，则选择的是 AutoCAD2007 Type Library） (2)为 AutoCAD 当前文档(acadDoc)定义变量，通常定义为全局变量。 Dim acaddoc As AcadDocument （3）访问 AutoCAD，设置应用程序变量（acadApp）为当前的 AutoCAD 应 用程序。如果 AutoCAD 正在运行，则用 GetObject 取得 AutoCAD 应用程序对象； 如果 AutoCAD 没有运行，则返回一个错误并清除它。然后用 CreateObject 方法尝 试创建一个 AutoCAD 应用程序对象。如果成功，则 AutoCAD 启动；如果失败， 则显示一个信息框，返回错误作息。 代码如下： On Error Resume Next ‘获得正在运行的 AutoCAD 应用程序对象 Set acadapp = GetObject(, AutoCAD.Application.16)If Err Then Err.Clear ‘创建一个新的 AutoCAD 应用程序对象 Set acadapp = CreateObject(AutoCAD.Application.16) If Err Then MsgBox Err.Description Exit Sub End If End If ‘显示 AutoCAD 应用程序 acadapp.Visible = True