论文-基于SolidEdge三维造型系统.doc

苏州大学本科生毕业设计(论文)目录中文摘要关键词1英文摘要关键词2前言3第一章 绪论4第1.1节 CAD概论4第1.2节 CAD软件的二次开发4第二章 Solid Edge 二次开发基础6第2.1节 Solid Edge 二次开发的理论基础6第2.2节 Solid Edge 二次开发的技术基础7第三章 Solid Edge 变量化设计与开发10第3.1节 参数化设计与变量化设计10第3.2节 变量化设计的实现方法10第3.3节 变量化设计的意义11第四章 ZLY系列焊接式减速齿轮零件库设计12第4.1节 齿轮轮廓曲线近似生成原理12第4.2节 VB界面设计及说明14第4.3节 关键程序的说明22总结34参考文献35致谢36附录37附录一：中间轴传动齿轮参数（部分）37附录二：输出轴传动齿轮参数（部分）38附录三：输入轴参数（部分）39附录四：中间轴参数（部分）41附录五：Solid Edge三维零件模型42摘要本课题研究基于Solid Edge三维造型系统，应用Visual Basic开发平台，设计ZLY系列焊接式减速器齿轮零件库。在建立零件库所需电子表格数据的基础上，所设计的程序能正确调用库内标准系列对应的各种齿轮及齿轮轴（高速级、低速级），并在Solid Edge系统内正确生成对应的三维形体。变量化设计是通过建立CAD模型的参数之间的变量关系，驱动整个模型，达到快速设计的目的。针对系列化得产品设计，变量化技术是提高设计效率、保证设计质量的重要手段。在零件、装配、工程图等环境下，Solid Edge都提供了变量表功能，允许用户在二维、三维交互环境下通过设置模型的变量表，完成产品的变量化设计。同时可以通过VB应用程序、Excel表连接或创建Solid Edge变量表中的变量，通过对变量对象和尺寸变量进行编辑，实现变量化的设计开发。变量化设计与开发的实现，使系列化产品的设计程序化、规范化，增强了设计管理的可控性，使原来只能由专业设计人员担当的工作，转由一般辅助人员即可胜任，使更多的设计人员从重复劳动中解放出来，投入到新产品的开发中。实践证明，变量化设计与开发具有重要的推广作用。利用变量化设计快速设计ZLY系列焊接式减速器齿轮零件将会缩短零件的设计周期，减轻设计人员的工作量，降低设计成本，有利于产品快速投入到市场，能带来很好的经济效益。因此我们有必要对此课题进行研究。关键词：Solid Edge；Visual Basic；变量化设计；二次开发；齿轮零件库AbstractThis topic research according to Solid Edge 3D shape system, applied Visual Basic develop terrace and design ZLY the series weld type deceleration machine wheel gear spare parts database. In the foundation of building up electronics form data that spare parts database needs, the procedure ability exactitude designed adjusts to use standard series inside the database to should of various wheel gear and wheel gear stalk(high-speed, low speed class), and correct and born rightness of in the system of Solid Edge should of 3D body.Change the quantity turn a design is pass to build up CAD model of the changing of parameter measure a relation and drive the whole purpose that model attain a rapid design. Aim at series to turn product design, change quantitys turning a technique is the important means that raises a design efficiency and promises design quality. In the spare parts, assemble, engineering diagram etc. under the environment, Solid Edges all provided to change to measure form function and allowed a customer in the two dimensions, 3D hand over an environment bottom to pass constitution changing of model to measure form with each other, complete changing of product the quantity turn a design. Can pass a VB application in the meantime procedure, Excel form conjunction or establish Solid, Edge changes to measure form in of change to measure, pass to carry on editor towards changing to measure object and size to change measuring, the realization changes the design development that the quantity turns.Change the quantity turn to design with development of realization, make the series turned the design process of product to turn, the norm turns and strengthened to design management of can control sex, make originally can from profession design the personnel take of work, turn from general assistance the personnel can immediately be competent and make more design personnel the liberation come out and throw in the development of new product from repeated the labor. Practice a proof, change the quantity turn design and development to have an important expansion function.The exploitation changes the quantity turn to design rapid design ZLY the series weld type deceleration machine wheel gear spare parts to shorten the design period of spare parts and ease the workload of designing the personnel and lower design cost and be quickly advantageous to a product to throw in a market, can bring good economic efficiency.Therefore we have a necessity to carry on a research to this topic.Keywords: Solid Edge; Visual Basic; the design of changeable quantity; the second development; wheel gear spare parts database前言Solid Edge软件是由美国EDS公司开发的中端CAD软件包，是EDS PLM系统的一个分支，在机械设计、模具设计和钣金设计方面有独到之处，它是基于Windows操作系统开发的，采用最新的STREAM技术，完全与Microsoft产品相兼容的真正技术指标化的三维实体造型系统。基于特征的参数化、变量化设计技术，使其操作方便，简单易学。设计人员可以利用Solid Edge方便地进行零件三维造型、二维工程图生产、装配、爆炸图生成以及运动仿真等操作。此外，Solid Edge还为用户提供了采用标准Windows“对象链接与嵌入(OLE)”技术和“部件对象模式(COM)”技术的应用程序接口，若想充分发挥Solid Edge强大的功能，还需对软件进行二次开发，二次开发是解决用户特殊需求的十分有效的途径。Solid Edge提供了包括Visual Basic、Visual C+等在内的多种开发工具，使用户拥有充分地扩展通用软件系统功能的空间。Solid Edge三维软件的普及，对企业开发新产品，形成自己的特色，提高效率有很大帮助。本次课题和论文是在顾德裕老师的精心指导下完成的，在此对顾德裕老师表示衷心的感谢。论文中引用了很多著作和资料，对其作者表示感谢。在论文完成过程中，对帮助和关心我的老师、同学和朋友表示谢意。由于水平有限，程序和论文中错误与不足之处在所难免，敬请批评指正！第一章 绪论1.1 CAD概论1.1.1 CAD的概念和相关技术计算机辅助设计（Computer Aided Design，简称CAD）是一种用计算机硬件、软件系统辅助人们对产品或工程进行设计的方法与技术。广义CAD包含设计与分析两个方面。设计是指构造零件的几何形状、选择零件的材料，以及为保证整个设计的统一性而对零件提出的功能要求和技术要求等。分析是指运用数学建模技术（如有限元、优化设计技术），从理论上对产品的性能进行模拟、分析和测试，以保证产品设计的可靠性。CAD设计过程包括设计、绘图、工程分析与文档制作等设计活动，是一门多学科综合应用的新技术，其主要技术有：（1） 图形处理技术（2） 工程分析技术（3） 数据管理与数据交换技术（4） 文档处理技术（5） 软件设计技术CAD技术是一种现代设计方法，它通过计算机和CAD软件对“产品”进行分析、计算与仿真、产品结构和性能的调整与优化、工程绘图，把设计人员具有的最佳特性（创新性思维、形象思维与经验知识、综合判断.与分析能力），同计算机强大的记忆与检索信息能力、大量信息的高速精确计算与处理能力、易于修改、工作状态稳定且不疲劳的特性结合起来，从而大大提高实际速度与效率，提高设计质量，降低设计成本。1.1.2 CAD软件系统CAD技术的实现要借助于具有特定功能的计算机系统，即CAD系统。CAD系统由硬件系统与软件系统组成。CAD硬件系统包括计算机及其网络、图形处理的专用设备等。CAD软件通常包括软件系统支撑软件和应用软件3部分。1.2 CAD软件的二次开发1.2.1 二次开发的意义及特点CAD应用软件是在系统软件、支撑软件的基础上，针对某一专用的产品或行业专门研制的软件，这类软件由用户根据实际设计工作需要自行开发研制。这个开发研制工作可以从基层开始，也可以利用已有的支撑软件进行“二次开发”。因此说，软件的二次开发就是指在下现有软件的基础上，为使软件的功能更加符合用户需要而做的软件研制工作，这种方法具有以下一些特点。1， 提高与继承性2， 专业性3， 相对简单性4， 实用性1.2.2 软件二次开发的基本方式把一个从市场上买到的CAD支撑软件开发成符合企业所要求的应用软件，虽然不是从头开始，但也应该对开发的目标、系统功能结构进行详细分析，进行应用系统的详细设计并按实际需要组织实施，保证开发、应用、维护的完整性。产品类型不同，开发应用软件的方式与原理也有所不同，常用的有以下几种。1， 参数化CAD开发方式2， 成组CAD开发方式3， 交互式CAD开发方式1.2.3 CAD软件二次开发的基本内容现行的机械CAD软件二次开发的基本思路是：以交互式图形系统为主要支撑，以图形系统的用户语言为进程的控制者，以高级语言为系统及数据连接转换的枢纽，开发一个完善的、符合我国国情及用户需要的机械CAD软件。该软件可以帮助机械设计师完成从设计计算、造型设计到数据管理、校核计算、有限元分析等一系列繁琐的工作，从而大大地缩短设计周期，减轻设计人员的劳动强度。CAD软件开发包括以下一些主要内容。（1） 完善交互系统的图形处理功能（2） 建立产品开发标准数据库（3） 建立产品的图形库（4） 交互式系统、数据管理系统、有限元分析系统间的连接和相互调用（5） 参数化设计和模块设计（6） 工程分析和优化设计（7） 界面设计1.2.4 CAD软件二次开发的方法一个功能完善的CAD应用软件，包括图形处理、数据管理、校核计算、有限元分析等几大部分。如何把这几大部分有效地结合起来，即如何实现它们之间数据传输的正确和畅通（接口技术），是开发CAD应用软件要解决的问题。解决问题的途径主要有四种：1 数据文件共享方式2 通过对通用CAD系统的用户化开发3 通过通用CAD系统提供的嵌入式语言开发4 通过高级语言和通用CAD系统所提供的软件接口进行开发第二章 Solid Edge 二次开发基础2.1 Solid Edge 二次开发的理论基础Solid Edge是EDS公司推出的普及型主流CAD软件包，是EDS PLM系统的一个分支。基于特征的参数化、变量化设计技术，使其操作方便，简单易学。此外，Solid Edge还为用户提供了采用标准Windows“对象链接与嵌入(OLE)”技术和“部件对象模式(COM)”技术的应用程序接口，开发者和用户能够通过使用Visual Basic、Visual C+以及任何一种支持ActiveX Automation技术的工具，对Solid Edge进行二次开发，来适应用户的一些特殊要求，减少重复性建模制图工作，全面扩展Solid Edge的功能或将其功能集成到客户应用程序中，以实现Solid Edge的完全客户化。本文介绍了基于ActiveX Automation技术开发Solid Edge的基本原理。2.1.1 ActiveX Automation技术ActiveX Automation是Microsoft公司提出的一个基于COM的技术标准，以前被称为OLE技术，其宗旨是在windows系统的统一管理下，协调不同的应用程序，准许这些应用程序之间相互沟通、相互控制。它通过在两个程序间安排对话，达到一个程序控制另一个程序的目的。其过程为：首先一个应用程序决定引发ActiveX Automation操作，这个应用程序自动成为C1ient，被它调用的应用程序成为Server。Server收到对话请求后，决定暴露哪些对象给C1ient。在给定时刻，由C1ient决定实际使用哪些对象，然后ActiveX Automation命令被传给Server，由Server对命令做出反应。Client可以持续地发出命令，Server忠实地执行每一条命令，最后由Server提出终止对话。这里将So1id Edge理解为一个服务程序(Server)，而二次开发出来的程序为客户程序(C1ient)。用户只要在客户程序上进行操作，客户程序将驱动So1id Edge完成相关的工作，用户无需全面掌握Solid Edge。2.1.2 So1id Edge的对象层次结构 对象之间通过被称为对象模型或对象层次结构的形式相互联系。So1id Edge的对象层次结构可以描述为自上而下的树结构（模型树），如图2-1所示。其根节点对象就是一个应用So1id Edge应用对象（Application），它是整个对象树的基础，称为根对象，根对象Application下面有一个集合对象（Documents），这个集合对象（Documents）称为Applicant对象的下级对象，在这个集合对象下面还有5个文档对象零件文档对象(PartDocument)、装配文档对象(AssemblyDocument)、钣金文档对象(SheetMetalDocument)、工程图文档对象(DraftDocument)、焊接文档对象（WeldmentDocument）。每个文档对象都包含很多的属性和方法，这些属性又包含了很多的子属性和方法，它们具有严格的隶属关系。 编程时需注意：若使用某一对象，必须将其所有上级对象按层次结构顺序一同列写，或者将所有上级对象声明成一个对象来替代使用。图2-1 对象层次结构2.2 Solid Edge 二次开发的技术基础2.2.1 引用Solid Edge类型库Solid Edge通过类型库提供了大量的内部功能，以便于从Visual Basic（以下简称VB）等开发工具中，通过ActiveX Automdion访问这些功能。Solid Edge提供的类型库包括：Assembly.tlb(装配类型库)、constant.tlb(常数类型库)、Drdttlb（制图类型库）、propauto.dll(文件属性对象库)、framewrk.rlb(框架结构类型库)、geometry.tlb(几何类型库)、part.tlb(零件和板金类型库)等。若以VB作为开发工具，首先必须在其环境中引用Solid Edge的有关类型库，才能通过ActiveX Automation访问Solid Edge提供的主要对象。在VB的集成环境中，通过“工程”菜单中的“引用”命令，将所要用的库选中，即可调用对应的类型库，如图2-2所示，并且可以在VB的对象浏览器中查看对象库、类型库、类、属性、方法以及事件，如图2-3所示。图2-2 选中所需要的库图2-3 VB的对象浏览器2.2.2 调用Solid Edge应用程序当选择VB为一个支持ActiveX Automation的应用程序进行编程开发时，就必须和该程序进行通讯。Solid Edge提供的应用对象（Application）为实现这种通讯提供了可能。应用对象是惟一一个允许Visual Basic程序直接访问的对象，它位于层次结构树的顶部，可以也只能通过该对象才能访问其下级的所有其他对象。VB提供了两个函数调用Solid Edge：CreateObject和GetObject。 Dim objApp as ObjectSet objApp=CreateObject(“SolidEdge.Application”)Set objApp =GetObject(“”，“SolidEdge.Application”)两个语句都创建不可见的Solid Edge应用对象。下面的语句使用GetObject连接到已经存在的Solid Edge实例：Set objApp=GetObject(，“SolidEdge.Application”) 该语句会搜索已经存在的Solid Edge实例，如果找到，变量objApp指向该实例；否则，命令失败。在使用CreateObject或者GetObject来驱动Solid Edge的应用时，该应用不会自动创建文档对象，必须使用文档集合对象的Add方法来建立一个文档对象。Add方法是有参数的，该参数用于确定所创建的文档对象的类型或者使用的模板。如果参数为空，程序会提示用户选择一个模板。下面语句的功能是在新建的应用中建立一个零件文档对象：Set objApp=GetObject(，“SolidEdge.Application”)Set objDocument=objApp.Document.Add(“SolidEdge. PartDocument”)要将一个Solid Edge的应用实例从内存中移除，则需要使用应用对象的Quit方法：ObjApp.Quit2.2.3 程序运行方式用VB技术和Solid Edge二次开发接口开发的应用程序有两种运行方式：一是将应用程序作为可执行文件直接运行，由程序控制Solid Edge的调入和退出。二是将程序作为一条宏命令嵌入到Solid Edge中。具体方法是：在VB的“文件”菜单中选择“制作 .exe”，将应用程序编译生成ActiveX Automation程序。打开Solid Edge的“工具条”对话框，按照提示新建一个工具条，确定后在出现的“自定义”对话框中选择“宏”，单击“浏览”，找到刚才编译的EXE程序，拖放到新建的工具条上，并选择合适的图标。用户在Solid Edge环境下，只要点击该工具条即可运行程序。第三章 Solid Edge 变量化设计与开发3.1 参数化设计与变量化设计参数化设计有时也称为尺寸驱动， 参数化设计是一种基于用户操作层次的设计方法。它利用参数驱动机制可以对图形数据进行操作， 在满足图形几何约束的条件下，通过施加尺寸约束，对图形的几何数据进行修改， 从而得到所需的设计图形。采用参数化设计， 可以大大提高绘图效率。但是采用参数设计方法，只是提高了“ 绘图”效率， 而没有提高 “设计”效率。变量化设计是一种基于用户设计层次的设计方法。它将图形的尺寸关系和几何关系以变量的形式来表示， 通过对图形变量的赋值，以实现图形的生成或修改， 从而得到所需的设计图形。采用变量化设计具有以下特点：1，可以提高设计效率；2，以变量为桥梁，将设计计算与零件三维模型设计有机地融合在一起；3，使得CAD 软件不仅仅是一个“ 绘图”软件, 更是一个“设计”软件。3.2 变量化设计的实现方法3.2.1 Solid Edge变量化设计过程：1)实体建模或者工程图绘制，Solid Edge允许在二维或者三维环境中，实现变量化；2)变量化操作，明确变量间的关系；3)在后续的产品设计中，利用已有的变量化模型或者图样，进一步设计。变量化的最终目的是在以后的工作中再次使用。3.2.2 利用Solid Edge 的变量表实现变量化设计Solid Edge 在它的零件设计模块中提供了一个可供用户操作的变量表，通过变量表可以定义或编辑零件模型中各图形元素的尺寸关系。变量表中的变量分为尺寸变量和用户变量， 尺寸变量来源于设计过程，并且可以直接控制设计中的各个图形元素，用户变量是用户在变量表中自己增加的变量，它们虽然不能直接控制设计中的各个图形元素， 但可以通过变量表中的数学关系式将其与尺寸变量联系起来，从而间接控制设计中的各个元素。在Solid Edge 中利用变量表实现变量化设计，用户无须编程， 直接通过设计变量，操作变量表，即可控制零件模型的形状和尺寸； 但是操作较为复杂、设计效率低。该方法一般用于变量的数量较少，各变量及尺寸之间的关系较为简单的场合，对于某些与图形尺寸没有直接关系的变量，变量表则无法处理。3.2.3 通过Solid Edge 程序开发实现变量化设计通过Solid Edge 程序开发实现变量化设计， 也就是利用Solid Edge 提供的二次开发接口， 将零件模型的结构和尺寸全部以变量的形式，由程序控制零件模型的设计计算、二维轮廓的生成以及各种特征的构建。程序设计时无须考虑各个尺寸的具体大小，全部用变量来表示， 最后通过一个用户界面获得用户输入的数据，由程序驱动Solid Edge 得到所需零件的三维模型。通过Set objApp =CreateObject ( “SolidEdge. Application”) 或Set objApp= GetObject ( ,“SolidEdge. Application”) 方法获得或创建Solid Edge 的Application 对象，用Set objDoc =objApp. Documents. Add （“SolidEdge. PartDocument” ）方法创建Solid Edge 零件文档。采用Solid Edge 二次开发程序进行零件设计， 是一种完全的变量化设计， 一个应用程序可以生成一系列相似的零件，且界面清晰、操作方便；但是编程工作量大， 程序适用面窄。该方法一般用于零件设计计算复杂， 涉及条件、判断等逻辑处理， 而零件的结构则较为简单的场合， 例如齿轮、齿条、凸轮的设计。3.2.4 将Solid Edge 变量表与程序开发相结合实现变量化设计该方法是前两种方法的综合，它首先利用SolidEdge 的特征造型技术建立一个能够反映同类零件所有特征的复合零件的三维模型， 通过变量表操作建立设计变量， 再采Solid Edge 二次开发程序， 通过用户界面获得用户输入的设计数据并进行设计计算， 然后用objApp.Documents. Open( ) 方法打开复合零件的三维模型， 用Set objvars = objApp. ActiveDocument.Variables 方法获得变量表中的所有设计变量，给各变量的值( objvars( i) . value) 赋予设计计算结果, Solid Edge 便自动修改生成新的零件模型。该方法综合了前两种方法的优点, 它将复杂的零件三维造型交给Solid Edge 来完成，将复杂的设计计算交给二次开发程序来完成， 变量表中的设计变量则是它们之间的桥梁。该方法程序设计简单， 界面清晰、操作方便。将它和数据库技术结合起来， 可用于各种设计中所使用的标准零件及各种通用件等系列化零件的变量化设计。3.3 变量化设计的意义变量化设计就是将产品研发过程中的知识和经验通过变量的形式进行关联，驱动整个产品数字化模型，达到快速完成产品研发的目的。变量化的设计针对系列化的产品研发，能够保留和凝结企业已有的产品研发知识和经验、缩短研发周期、降低工作强度、提高设计质量、节约成本，增强管理的可控性。Solid Edge 的变量化设计将成熟的产品研发知识充分吸收，使之程序化、规范化，实施使用后可以避免产生许多认为的错误。使许多原来只能由经验丰富的设计专家担当的工作，转为由一般工程师即可胜任，使具有丰富经验的设计专家从重复劳动力中解放出来，投入到新产品研发和丰富完善变量设计知识库的工作中，使产品研发能力上一个崭新的台阶。实践证明，Solid Edge 的变量化设计具有极大的推广价值。第四章 ZLY系列焊接式减速齿轮零件库设计4.1 齿轮轮廓曲线近似生成原理 由于用三维软件绘制齿轮时并不需要十分精确地绘制渐开线齿廓，所以我们一般采用曲线或圆弧近似代替渐开线齿廓，只要曲线或圆弧跟渐开线足够相似，这样不仅可以满足我们的设计要求，而且可以大大地减小绘图的难度。渐开线齿轮齿廓近似生成有若干种方法：（1） 曲线（SPLINE曲线）：精确，但需要许多点，不易控制（2） 圆弧：单圆弧（精度低，简单）、双圆弧（精度高，复杂）4.1.1 单圆弧绘法三点圆弧近似（1） 以齿轮轴孔中心建立坐标系XOY（2） 计算齿廓上三个特定点：1，2，3的坐标：，其中 （3） 求通过该三点的圆弧方程，得到半径及圆心点4：设，取，解得，（4） 将圆心点4绕O反向旋转角度，得到最终圆心坐标点C：（此法适宜生成切割轮廓）4.1.2 渐开线齿轮轮廓的双圆弧近似绘法已知齿轮参数：模数m，压力角，螺旋角，齿数z首先计算中心半角：，得到P的左侧位置。设，是渐开线齿廓在基圆上的两个曲率中心，角，其中为齿顶压力角，取位于之间的中点，则由余弦定理求出：PT之间的渐开线的近似圆弧半径，中心为；然后由弦切线定理求半径PG之间的渐开线的近似圆弧半径，中心为。在草图设计时，PT段圆弧起点在齿顶圆上，终点为分度圆上的点P，P由半角约束，附加尺寸约束，又圆心位置约束在基圆上，可得到圆心，同理可得到圆心。绘制半径为0.3m的圆，对此圆进行位置约束，让它同时与齿根圆和PG段圆弧相切，可得切点G和Q，点Q在齿根圆上，这样半边齿廓就绘制好了，最后对这半边齿廓进行镜像复制可得一个完整的齿廓。由于方法二计算不大，精度较高，所以使用双圆弧近似代替渐开线，因此采取第二种方法绘制齿轮轮廓。4.2 VB界面设计及说明经过仔细的分析研究，最终决定设计5个窗体，依次是FormFold、FormInfo、FormMain、FormPrgBar、FormShaft。4.2.1 窗体FormFold此窗体用于选择目标文件夹，即选择生成零件的存放位置。1，“确定”按钮用来确定最终选择的文件夹，其程序如下：Private Sub OKButton_Click()TargetPath = Trim(TextPath.Text)IsOK = TrueUnload MeEnd Sub2，“取消”按钮用来取消选择的文件夹，其程序如下：Private Sub CancelButton_Click()Unload MeEnd Sub3，“DrvList”用来选择磁盘位置，其程序如下：Private Sub DrvList_Change()DirList.Path = DrvList.DriveEnd Sub4，“DirList”用来显示磁盘上的文件夹，单击一个文件夹时，文件夹显示到“TextPath”中，其程序如下：Private Sub DirList_Change()TextPath.Text = DirList.Path OKButton.Enabled = TrueEnd Sub4.2.2 窗体FormInfo此窗体用于提醒用户，程序正在处理用户的数据，请用户耐心等待。4.2.3 窗体FormMain此窗体主要用于根据用户输入的数据生成圆柱齿轮。1，“Picture1”用于显示圆柱齿轮简图，其图如下：2，“创建”按钮用来生成用户需要的齿轮，单击这个按钮，程序开始处理用户的数据，并在内部启动Solid Edge新建了一个零件文件，其程序如下：Private Sub CmdCreate_Click()Dim TargetPart As StringIf TextPart.Text = Then MsgBox 非法文档名称 Exit SubEnd IfCmdCreate.Enabled = FalseCmdClose.Enabled = FalseCall CreatePart(TextPart, ComboM, TextZ, TextBeta, TextD0, TextW, TextH, TextB, TextC, CheckQuick.value)CmdOpen.Enabled = TrueCmdCreate.Enabled = TrueCmdClose.Enabled = TrueEnd Sub3，“打开”按钮用来打开刚才生成的Solid Edge零件文档，单击该按钮，Solid Edge自动启动，并自动打开零件文档，其程序如下：Private Sub CmdOpen_Click()mSolidApp.Visible = TrueEnd Sub4，“关闭”按钮用来停止VB程序的运行，其程序如下：Private Sub CmdClose_Click()Unload MeEnd Sub5，“ComboGearType”用于让用户选择齿轮类型，用户可以选择中间轴传动齿轮或者输出轴传动齿轮，当用户选择中间轴传动齿轮时，“ListDatas”显示中间轴传动齿轮参数，当用户选择输出轴传动齿轮时，“ListDatas”显示输出轴传动齿轮参数，其程序如下：Private Sub ComboGearType_Click()If ComboGearType.ListIndex = 0 Then CopyToListView App.Path + Datas + Gear1.dat, Me.ListDatasElse CopyToListView App.Path + Datas + Gear2.dat, Me.ListDatasEnd IfEnd Sub其中Gear1.dat为中间轴传动齿轮参数文件，Gear2.dat为输出轴传动齿轮参数文件。6，“ListDatas”显示齿轮参数，当用户单击某一行参数时，相应的参数值显示在与之对应的文本框中，其程序如下：Private Sub ListDatas_ItemClick(ByVal Item As MSComctlLib.ListItem)nIndex = Item.IndexTextZ.Text = Item.SubItems(2)ComboM.Text = Item.SubItems(3)TextBeta.Text = Item.SubItems(4)TextB.Text = Item.SubItems(5)TextD0.Text = Item.SubItems(6)TextH.Text = Item.SubItems(7)TextW.Text = Item.SubItems(8)TextC.Text = Item.SubItems(9)CmdCreate.Enabled = TrueEnd Sub7，“CmdPath”按钮用来选择文件夹，当用户单击该按钮时，系统打开FormFold窗体，让用户选择零件的生成位置，其程序如下：Private Sub CmdPath_Click()Dim frmPath As New FormFoldfrmPath.Show vbModalIf frmPath.IsOK Then TextPart.Text = frmPath.TargetPath + NewPart.parEnd IfEnd Sub8，“TextPart”文本框用来显示生成零件的存放位置。9，“ComboM”用于让用户选择齿轮模数10，“TextZ”用于显示齿轮齿数，用户可以修改数值。11，“TextBeta”用于显示齿轮螺旋角，用户可以修改数值。12，“TextB”用于显示齿轮齿宽，用户可以修改数值。13，“TextD0”用于显示齿轮孔径，用户可以修改数值。14，“TextW”用于显示齿轮键槽宽，用户可以修改数值。15，“TextH”用于显示齿轮键槽高，用户可以修改数值。16，“TextC”用于显示齿轮倒角，用户可以修改数值。17，“CheckQuick”用于让用户选择是否及时更新，当用户选择及时更新时，处理速度相对较慢，反之，则相对较快。4.2.4 窗体FormPrgBar此窗体主要用于提醒用户程序正在运行，并让用户及时了解数据更新的进度。4.2.5 窗体FormShaft此窗体主要用于根据用户输入的数据生成齿轮轴。1，“ComboShaftType”主要用来让用户选择齿轮轴的类型，用户可以选择输入轴或者中间轴，当用户选择了输入轴时，“PictureShaft”中显示输入轴简图，“ListDatas”中显示输入轴参数，其图如下：当用户选择了中间轴时，“PictureShaft”中显示中间轴简图，“ListDatas”中显示中间轴参数，其图如下：其程序如下：Private Sub ComboShaftType_Click()Dim v As Variant, i As Integer, MyItem As ObjectIf ComboShaftType.ListIndex = 0 Then PictureShaft.Picture = LoadPicture(App.Path + Datas + shaft1.bmp) 输入轴数据 CopyToListView App.Path + Datas + shaft1.dat, Me.ListDatas 输入轴图片Else PictureShaft.Picture = LoadPicture(App.Path + Datas + shaft2.bmp) 中间轴数据 CopyToListView App.Path + Datas + shaft2.dat, Me.ListDatas 中间轴图片End Ifv = GetColumnHeaders(Me.ListDatas) 取得控件ListDatas的列标题ListEditBox.ListItems.Clear 清除原有数据For i = 1 To UBound(v) 将上述列标题填入控件ListEditBox中 Set MyItem = ListEditBox.ListItems.Add(, , i) MyItem.SubItems(1) = v(i)Next iSet MyItem = NothingEnd Sub2，“CmdPath”按钮用来选择文件夹，当用户单击该按钮时，系统打开FormFold窗体，让用户选择零件的生成位置，其程序如下：Private Sub CmdPath_Click()Dim frmPath As New FormFoldfrmPath.Show vbModal 显示文件选择对话框If frmPath.IsOK Then 选择成功 TextPart.Text = frmPath.TargetPath + NewPart.parEnd IfEnd Sub3，“TextPart”文本框用来显示生成零件的存放位置。4，“ListDatas”显示齿轮轴参数，当用户单击某一行参数时，相应的参数值显示在“ListEditBox”中，其程序如下：Private Sub ListDatas_ItemClick(ByVal Item As MSComctlLib.ListItem)Dim n As Integer, k As Integer, i As Integern = Item.ListSubItems.CountReDim varray(n - 1) As Stringk = 1For i = 2 To Item.ListSubItems.Count 复制一行数据至varray中 varray(k) = Item.SubItems(i) k = k + 1Next iFor i = 1 To k - 1 将varray填入ListEditBox中 ListEditBox.ListItems.Item(i).SubItems(2) = varray(i)Next iCmdCreate.Enabled = TrueEnd Sub5，“ListEditBox”用来显示齿轮轴各个参数值，当用户单击某一行参数时，该参数显示到“TextEdit”文本框中，用户可以对其进行修改，用户敲击回车键后，修改后的值重新显示到“ListEditBox”相应位置处，其程序如下：Private Sub ListEditBox_ItemClick(ByVal Item As MSComctlLib.ListItem)nIndex = Item.IndexTextEdit.Text = Item.SubItems(2)LabelVar.Caption = Item.SubItems(1) + =End Sub6，“TextEdit”文本框主要用来显示齿轮轴某一个选定的参数值，用户可以对其进行修改，用户敲击回车键后，修改后的值重新显示到“ListEditBox”相应位置处，其程序如下：Private Sub TextEdit_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 回车键响应，确认操作 ListEditBox.ListItems(nIndex).SubItems(2) = TextEdit.Text CmdUpdate.Enabled = TrueEnd IfEnd Sub7，“CheckQuick”用于让用户选择是否及时更新，当用户选择及时更新时，处理速度相对较慢，反之，则相对较快。8，“创建”按钮用来生成用户需要的齿轮轴，单击这个按钮，程序开始处理用户的数据，并在内部启动Solid Edge新建了一个零件文件，其程序如下：Private Sub CmdCreate_C