Solidworks二次开发入门教程[VB实现].docx

《Solidworks二次开发入门教程[VB实现].docx》由会员分享，可在线阅读，更多相关《Solidworks二次开发入门教程[VB实现].docx（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Solidworks 二次开发入门教程：运用 VB 语言实现二次开发Visual Basic简称为 VB是一种可视化的、面对对象和承受大事驱动方式的构造化高级程序设计语言， 可用于开发 Windows 环境下的各类应用程序。它简洁易学、效率高，且功能强大可以与 Windows 专业开发工具 SDK 相媲美。在 Visual Basic 环境下，利用大事驱动的编程机制、颖易用的可视化设计工具，使用 Windows 内部的广泛应用程序接口API函数，动态链接库DLL、对象的链接与嵌入O LE、开放式数据连接ODBC等技术，可以高效、快速地开发 Windows 环境下功能强大、图形界面丰富的应用软件

2、系统。随着版本的提高，Visual Basic 的功能也越来越强。5.0 版以后，Visual Basic 推出了中文版，与前个版本相比，其功能有了很大提升。Visual Basic 6.0 作为 Visual Studio 6.0 的优秀一员，已成为企业级快速开发的利器。Visual Basic 6. 0 在数据访问方面有了很大的改进，的 ADO 组件让对大量数据快速访问成为可能。数据环境和的报表功能也让数据开发有了全的体验。Visual Basic 借助 COM/COM+强大的功能，可以开发具有多层构造的分布式应用程序。同时，Visual Basic 还可以在 IIS 上开发性能超群的 W

3、eb 应用程序。Visual Basic 6. 0 在语言方面和 IDE 方面的改进都不大，但是很多增的组件成为 Visual Basic 开发人员手中的利器，如File System Object 等。的字符串函数 Split 和 Replace 等也给 Visual Basic 的程序员带来很大便利。Visual Basic 6.0 具有下述优点:(1) 面对对象(2) 大事驱动(3) 软件的集成式开发(4) 构造化的程序设计语言(5) 强大的数据库访问功能(6) 支持对象的链接与嵌入技术(7) 网络功能(8) 多个应用程序向导(9) 支持动态交换、动态链接技术(l0) 联机帮助功能VB

4、拥有图形用户界面GUI和快速应用程序开发RAD系统，可以轻易的使用 DAO、RDO、ADO 连接数据库，或者轻松的创立 ActiveX 控件。它不像高级语言 Visual C+那麽简单，但它的功能很全， 程序员可以轻松的使用 VB 供给的组件进展二次开发，快速建立属于自己的应用程序。2 利用 VB 实现圆台交互式绘制的实现过程2.1 启动 VB 程序启动 VB 程序，VB6.0 的主窗口如图 1 所示，可以直观地看到主窗体主要有以下局部组成：标题栏；菜单栏；工具栏；窗体设计器；控件工具箱；弹出式上下文菜单 ；工程治理器窗口 ；属性窗口；对象扫瞄器 ；对象扫瞄器及窗体布局窗口。建立一个的标准 E

5、XE 工程文件，对其进展重命名保存，重命名为“圆台绘制“，将 Form 窗体文件重命名保存为“交互式圆台绘制“，如图 2 所示。特别需要留意的一点是：在标题栏显示的当前的工程名及窗体名是通过修改属性窗口中“名称“属性及“caption“属性得以实现的，与实际的工程名及窗体名并无直接联系， 实际的工程名及窗体名是通过诸如“圆台绘制.vbp“形式表达出来的。图 1VB6.0 主窗口图 2 重命名操作后的工程资源治理器2.2 引用 Solidworks 类型库文件要操作 SW 对象，那么添加 SW 引用是必不行少的。在 VB 里添加引用，单击菜单栏中【工程】【引用】命令，选择“SolidWorks

6、exposed Type Libraries For add-in Use“(SolidWorks 插件库文件)、“Soli dWorks 2007 Type Libray“SolidWorks 库文件和“SolidWorks Consant Type library“SolidW orks 常数库，如图 3 所示。本文其实只用到了“SolidWorks 2007 Type Libray“SolidWorks 库文件， 但为了便利以后的程序扩展，将上述三种常用库文件一并添加。图 3引用 SolidWorks 类型库2.3 编辑窗体界面（1） 拖开工具箱组件板上的 Lable 控件、TextBo

7、x 控件及 CommandButton 控件到 Form 上。（2） 接下来在属性窗口将 Lable1、Lable2 的属性分别设置为“圆台半径：“、“圆台高度：“；将 Com mandButton1、CommandButton2 的属性分别设置为“启动 SolidWorks 交互式绘图“、“退出 SolidWo rks 软件“。编辑后的窗体界面如图 4 所示。图 4 编辑后窗体界面2.4 编程实现在 VB 编程环境下，引用单元文件，创立相关函数及编写大事处理过程，实现程序功能。绘制圆台的具体程序代码及其注释如下所示：Private Sub Command1_Click Dim swapp A

8、s ObjectDim part As ObjectDim boolstatus As Boolean “定义接口Set swapp = CreateObject(“SldWorks.Application“) Set part = swapp.NewPartswapp.Visible = True“猎取 solidworks 软件接口并建一个零件文件part.InsertSketch2 Trueboolstatus = part.Extension.SelectByID(“前视“, “PLANE“, 0, 0, 0, False, 0, Nothing) part.InsertSketch2

9、 Truepart.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0part.ShowNamedView2 “*上下二等角轴测“, 8part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1 “建立模型End Sub点击“启动 SolidWorks 交互式绘图“后，程序调用 SolidWork

10、s 自动绘制的圆台三维图如图 5 所示。可交互式修改参数，直至到达满足的效果。操作完成后点击“退出 SolidWorks 环境“可以自动关闭并退出 So lidWorks 环境。图 5 交互式绘图后结果3 小结本文同样以一个简洁实例的实现过程为例，承受 VB 语言编制了相关程序，具体介绍了二次开发的具体实现过程，给出了重要文件的引用、属性设置、接口程序的编制和大事处理等过程的完整代码。通过上述实例的实现过程，可以看出： VB 语言简洁易学，学习过程中很简洁上手；功能齐全，程序员可以轻松的使用 VB 供给的组件进展二次开发，快速建立属于自己的应用程序，在其各项高效强大集成功能的支持下， 最终可便

11、利快速地完成二次开发任务。参照连载 1 中的通过宏录制实现的二次开发过程，可以清楚地看到，利用 VB 二次开发实现圆台绘制的具体命令源代码不需要自己编写，可以直接对宏录制的相关源码拷贝过来加以利用即可，只需要修改其中的相关变量参数诸如 Val(R.Text)即可，易于实现，减轻了程序员的工作量，提高了程序的开发速度。简洁说明 SolidWorks API 的应用本文通过介绍“自定义属性”这个程序的开发和使用过程，来简洁地说明 SolidWorks API 的应用， 期望起到抛砖引玉的作用。SolidWorks API 是 SolidWorks 的 OLE 应用程序开发接口，用户可以利用它和支持

12、 OLE 编程的开发工具，如 VB、VBA(Excel,Access)、C、VC+等对 SolidWorks 进展二次开发，建立适合用户需要的、专用的 SolidWorks 功能模块。一、问题的提出大多数工程图纸的标题栏中应当包括一些根本的设计信息，如零件名称、零件代号、材料以及设计人员和设计日期等，其中，零件的名称、代号、材料、数量、重量及一些重要的后处理要求等信息还应当消灭在装配图的材料明细表(BOM)中。这些内容假设在工程图中一一进展编写和修改，其工作量是很大的，并且这种处理方法也不利于保证设计信息的全都性，对模型文件(零件或装配体文件)和图纸文件的治理来讲是脱节的。SolidWorks

13、 是一个全相关的三维机械设计软件，模型文件中的设计数据， 如尺寸、注释、文件属性等内容与工程图相关，因此，我们在处理上述工程图标题栏和材料明细表中的设计数据时，应当将这些内容保存在模型文件中，并且自动显示在工程图相应的位置上。当需要对工程图中的内容进展修改时，直接修改模型文件中的相应数据即可实现。这样的处理方法不仅保证了设计信息的全都性，而且可以大大提高设计效率。依据这个设想，笔者将这些设计信息进展了归纳，并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性(在 Solid Works 中，选择菜单“文件属性”，单击“指定配置”标签，如图 1 所示)中，针对模型文件指定配置的这些属性可

14、以自动带入到工程图的标题栏和材料明细表。对于材料明细表模板进展修改或建立的明细表模板就可以在装配图中的材料明细表中显示所需要的设计信息(工程图格式文件的定义和材料明细表模板的定义，请参阅SolidWorks2001 中文版有用技术精粹一书)。因此，无论何时需要修改设计信息，只需在 SolidWorks 中翻开相应的模型文件，修改指定配置属性即可。然而，即使承受这样的处理方法，在修改文件当前配置属性时仍旧显得有些繁琐，能否为 S olidWorks 建立一个工作界面，可以更加便利地添加和修改这些信息就成了问题的关键。二、自定义属性 Cpbom 为了更大程度地提高工作效率，我们利用 VB6.0 通

15、过 SolidWorks API 建立了自定义属性设置程序Cpbom，这个程序通过一个对话界面直接对当前模型文件的当前配置进展添加或修改，其根本功能如下： 针对配置添加模型文件的自定义属性; 设置的工程包括：零件代号、材料名称、后处理、设计者姓名、设计日期; 确定自定义属性后，自动保存文件;如当前文件还没有保存，提示文件保存路径和文件名称; 针对装配文件，可以选择是否删除“材料”和“后处理”两个属性。本程序利用 VB 进展编译生成可执行文件。自定义属性界面 “自定义属性”程序就是通过 SolidWorks API 对当前模型文件中当前配置的自定义属性的名称和值进展“读”和“写”的操作，程序格外

16、简洁，这里介绍一下该程序中用到的一些SolidWorks API 的对象和方法。1. SolidWorks 对象这里指的是 SolidWorks API 的最高级别的对象。通过该对象可以掌握 SolidWor ks 软件的执行或退出，以及 SolidWorks 文件的建立、翻开、关闭等操作。在 VB 中利用 CreateObject 方法来获得 SolidWorks 对象，利用该对象的 activedoc 方法可以获得当前 SolidWorks 文件对象，文件对象为空时，表示 SolidWorks 没有翻开任何文件。Dim swApp As ObjectDimactiveDocument As

17、 ObjectSet swApp=CreateObject(“SldWorks.Application“)Set activeDocument = swApp.activedocIf (activeDocument Is Nothing) Then Dim Msg, S tyle, title Style = vbExclamationtitle = “模型自定义属性“Msg = “请首先翻开一个 Solidworks 模型文件“Call MsgBox(Msg, Style, title) ” Display error message EndEnd If2. 猎取当前文件信息自定义属性程序是

18、对模型文件设置自定义属性，与工程图文件无关，因此需要利用 GetType 方法获得当前文件的类型，并利用 Gettitle方法和 Getpathname方法获得当前文件的名称和存盘路径。Dim docType As LongDim docName As StringDim filename As StringDimFilePath as StringdocType = activeDocument. GetTypeIf (docType = swDocPART)Then docName = “零件“With CPbomfrm .deldescription.Enabled = False .d

19、elmaterial.Ena bled = FalseEnd With Picture5.Picture = Picture3.PictureElseIf (docType = swDocASSEMBLY) Then docName = “装配“ Picture5.Picture = Picture2.PictureElseIf (docType = swDocDRAWING) Then Style = vbExclamation Msg = “当前文件是工程图文件，请翻开零件或装配文件“Call MsgBox(Msg, Style, title) ” Display error messag

20、e EndEndIf filename = activeDocument.GETTITLE FilePath = activeDocument.getpathname3. 猎取文件配置名称 SolidWorks API 供给了依据配置名称访问自定义属性的方法CustomInfo2 (读取自定义属性的值)、deletecustominfo2(删除指定的自定义属性)、ADDcustominfo3(添加自定义属性的名称和参数值)，这些方法都要求指定文件的配置名称。因此，为了对当前模型文件和当前配置设定自定义属性，必需首先要获得当前配置的名称，利用 GetActiveConfiguration方法可以

21、获得当前模型文件配置的对象，并利用 Name 方法获得当前配置的名称。Dim ConfName As StringSetCurCFG = activeDocument.GetActiveConfiguration ConfName = CurCFG.Name4. 依据配置访问自定义属性在本程序中，笔者对于指定配置的属性设置依据如下的步骤： (1)依据配置名称读取文件中的自定义属性值，并赋值于相应的文本框;(2)判定当前文件和当前配置是否已经转变，如其中之一发生变化，则提示错误信息; (3)依据配置名称删除指定的自定义属性;(4)将相应文本框中的内容依据配置名称添加到模型文件自定义属性名称和参数

22、值。下面对上述掌握配置自定义属性的三种方法加以介绍。 CustomInfo2：猎取或设置当前文档指定配置的自定义属性的值。value = ModelDoc.CustomInfo2 (configuration, fieldName)其中，configuration 为配置名称; fieldName 为自定义属性的名称。 deletecustominfo2：删除当前文档指定配置的自定义属性的值retval = ModelDoc.DeleteCustomInfo2(configuration, FieldName ) ADDcustominfo3：向当前文档中指定的配置添加自定义属性以及值retv

23、al = ModelDoc.AddCustomInfo3 ( configuration, FieldName, FieldType, FieldValue ) 其中，FieldType 为自定义属性的类型;FieldValue 为自定义属性的值。下面这段代码是单击“确定”的子程序，为了简洁，只给出了其中一个自定义属性的处理过程。Private Sub cmd_OK_ClickOn Error GoTo ERR_91Dim swApp2 As ObjectDim activeDocument2 As ObjectDim curcfg2 As ObjectDim cfgname2 As Stri

24、ngDimretval As BooleanSetswApp2 = CreateObject(“SldWorks.Application“) Set activeDocument2 = swApp2.activedocSet curcfg2 = activeDocument2.GetActiveConfigurationcfgname2 = curcfg2.Name” 推断文件或配置是否转变，如转变，则提示错误。If cfgname2 = ConfName And FilePath = activeDocument2.getpathname Then” 删除属性设置retval = activ

25、eDocument2.deletecustominfo2(ConfName, “PartID“)” 添加属性retval = activeDocument2.ADDcustominfo3(ConfName, “PartID“, swCustomInfoText, frmP artID)” 保存文件retval = activeDocument2.SaveElse Style = vbExclamation title = “模型自定义属性“Msg = “错误：翻开的文件或配置已经转变!“ & Chr(10) & “请重执行本程序“Call MsgBox(Msg, Style, title) E

26、ndEndIfERR_91: Style = vbExclamation title = “模型自定义属性“Msg = “程序运行错误，文件可能已经关闭“ & Chr(10) & “自定义属性无法添加，单击确定退出!“ Call MsgBox(Msg, Style, title)EndEnd Sub三、在 SolidWorks 界面中执行应用程序对于使用 VB 编译的 EXE、DLL 文件，目前 SolidWorks 还不能直接支持这些文件作为插件使用，假设要在 SolidWorks 中直接调用通过 VB 编译的可执行程序，可以使用 SolidWorks“宏”操作来进展。利用“宏”在Solid

27、Works 界面中添加指定的应用程序后，就似乎SolidWorks 调用了自身的功能一样，利用类似的方法，可以在 SolidWorks 添加任何可执行的文件。下面利用“自定义属性”程序来说明一下步骤。1.建立“宏”文件在 SolidWorks 中，我们利用录制并修改“宏” 的方法来建立所需要的“宏”文件。主要步骤如下：(1) 选择菜单“工具宏操作录制”。(2) 停顿录制，并保存宏文件。给定文件名称，如：Cpbom.swp。(3) 选择菜单“工具宏操作编辑”，把 Cpbom.swp “宏”文件录制的内容全部删除，并输入下面的内容。Sub mainMyAppID = Shell(“C:Progra

28、m FilesCPbomCPbom.exe“, 1) AppActivate MyAppIDEnd Sub(4) 保存并退出宏编辑，返回到 SolidWorks 环境。2. 指定“宏”操作在 SolidWorks 中可以指定宏命令的文件位置，并定制工具栏，将所执行的宏操作按钮添加到指定的位置上。(1)选择菜单“工具自定义宏”，在“自定义”对话框中单击“宏”标签。(2)参考图 4 的内容添加宏，单击“应用”完成。(3) 在“自定义”对话框中单击“命令”标签，从“类别”列表框中选择“宏”，将所定义的宏(第 1个)的图标按钮拖到相应的工具栏中，如图 5 所示。(4) 单击“确定”按钮，完成宏定义和工具栏定义。3. 执行应用程序定义“宏”以后，单击相应的图标就可以在SolidWorks 中直接执行应用程序。在 SolidWorks 中执行应用程序四、总结笔者利用这个“自定义属性”程序，明显提高了工作效率。需要说明的是，SolidWorks API 的对象和方法格外丰富，涵盖了全部 SolidWorks 数据模型，这里介绍的只冰山之一角。另外，程序中提及的自定义属性与企业的要求有关，依据自己的需要开发适合需要的自定义属性设置程序。