《Solidworks的VB二次开发课件》由会员分享，可在线阅读，更多相关《Solidworks的VB二次开发课件（36页珍藏版）》请在金锄头文库上搜索。
1、SolidWorks二次开发基本知识,SolidWorks提供了几百个API（Application Program Interface，应用程序接口），可以使用VB/VB/VC/Delphi等高级语言对SolidWorks进行二次开发，建立符合要求的、专用的SolidWorks功能模块,VBA（Visual Basic for Applications）,VBA（Visual Basic for Applications）是1993年由Microsoft推出的一种可以被多种应用程序共享的、针对应用程序内部可编程的、通用的可视化应用程序编程语言。 VBA是一套完整的应用程序开发环境，它为用户和
2、开发人员提供了一种应用程序间通用的应用程序语言，减少了学习时间和支持费用。,在Microsoft Office中，所有的应用程序都可以使用VBA 在SolidWorks中，VBA最常见的用途即是录制宏。几乎所有用键盘或菜单命令完成的动作均被宏记录下来，然后对不同的数据进行（或播放）同一批操作。,用VB开发Solidworks的一般步骤,SolidWorks的对象、方法很多，其中SldWorks对象有98种方法，ModelDoc对象有477种方法，通常，开发者先录制一段宏，然后将宏代码修改后复制到VB中去。,用VB开发Solidworks的一般步骤,宏是一系列命令的集合，相当于Dos的批处理文件
3、，可以通过录制使用SolidWorks用户界面执行的操作，然后使用SolidWorks宏重新执行这些操作。,用VB开发Solidworks的一般步骤,打开宏录制,1.在Solidworks中，应用纪录宏（【工具】 【宏操作】 【录制】,停止宏保存于文件夹,2.操作、停止并保存,3.编辑宏,VBA套零件的代码,4.执行宏操作,用VB开发Solidworks的一般步骤,将宏录制的代码照搬到VB，并不一定能够绘图，有时会出现错误，需进行修改。,SolidWorks二次开发常用代码,打开SolidWorks新文件 SldWorks:NewPart：打开一个被自动命名的新零件 SldWorks:NewD
4、ocment(模板名，图纸尺寸，用户纸宽，用户纸高)：创建一个具有模板名的新文件 SldWorks:NewAssembly：创建一个被自动命名的装配体文件 SldWorks:NewDrawing2（模板类型，模板名，图纸尺寸，纸宽，纸高）：创建一个新的具有模板或用户图纸的工程图文件，文件名被自动命名。,保存和退出文件,ModelDoc:SaveAs(文件名，版本信息，选项，.)：用不同的名称保存文件 ModelDoc:SaveAs2 (文件名)：用新名字保存文件 SldWorks:ExitApp退出SolidWorks 保存在当前路径：App.path & “文件名”,其他代码,ModelDo
5、c2:InsertSketch2:开始/结束草图绘制 ModelDoc2:ClearSelection()：清除任何选择 ModelDoc2.InsertKetchText(X坐标，Y坐标，Z坐标，文本，文本的对齐方式):插入草图文本 Part.FeatureExtrusion(拉伸方向，终止1，终止2，拉深深度.) 例：Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.017, 0.017, 0, 0,其他代码,Mddeldoc:Featurecut4(单（双）向，反侧切除，方向1，终止1，终止2，切割深度1，切割深
6、度2，拔模):,VB连接Solidworks,Dim swApp As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true),连接Solidworks并新建自动命名的零件模型文件,Private Sub Command1_Click() Dim swApp As Object Dim npart As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) Set npart = swApp.Newpart()
7、 End Sub,连接Solidworks并新建自动命名的装配模型文件,Dim swApp As Object Dim nassembly As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) Set nassembly = swApp.Newassembly(),连接Solidworks并新建工程图文件,Dim swApp As Object Dim pDrawing As Object Set swApp = CreateObject(SldWorks.Application) Set pD
8、rawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159),新建文件例题：,Private Sub Command1_Click() Dim swApp As Object Dim npart As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) Set npart = swApp.Newpart() End Sub Private Sub Command2_Click() Dim swApp As Object Dim pDrawing As Obj
9、ect Set swApp = CreateObject(SldWorks.Application) Set pDrawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159) End Sub Private Sub Command3_Click() Dim swApp As Object Dim nassembly As Object Set swApp = CreateObject(SldWorks.Application) Set nassembly = swApp.Newassembly() End Sub,编程举例,代码,Private Sub
10、 Command1_Click()Dim swApp As ObjectDim Part As ObjectSet swApp = CreateObject(SldWorks.Application)swApp.Visible (True)Set Part = swApp.Newpart()Set Part = swApp.ActiveDocPart.InsertSketchPart.SketchRectangle 0, 0, 0, 0.1, 0.1, 0, 1Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.0174
11、5329251994, 0.01745329251994, 0, 0,代码,代码,Part.SelectByID 前视, PLANE, 0, 0, 0Part.InsertSketchPart.CreateCircle 0.05, 0.05, 0, 0.07, 0.07, 0Part.ShowNamedView2 *等轴测, 7Part.FeatureCut4 1, 0, 0, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1, 0Part.ViewZoomtofit2End Sub,抽壳,Mo
12、deldoc2:insertfeatureshelladdthickness,Private Sub Command1_Click() 在前视面，以左下角为原点生成一个100 x100 x20的长方体 对此长方体进行多厚度抽壳 Dim swApp As Object Dim Part As Object Set swApp = CreateObject(SldWorks.Application) Set Part = swApp.ActiveDoc swApp.Visible (True) Set Part = swApp.newpart() Part.InsertSketch Part.Sk
13、etchRectangle 0, 0, 0, 0.1, 0.1, 0, 1 Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0,Part.SelectByMark 基体-拉伸, BODYFEATURE, 0, 0, 0, 0 Part.AndSelectByMark , FACE, 0.03, 0.03, 0, 1 选择开放面?标号是1 选择两个有不等厚度的非开放面?标号是2 Part.AndSelectByMark , FACE, 0.099
14、99999999991, 0.04121560801519, -0.01272845167375, 2 Part.AndSelectByMark , FACE, 0.05376383570518, 0.09999999999985, -0.01066374420634, 2 为每个面设置厚度 Part.InsertFeatureShellAddThickness 0.005 Part.InsertFeatureShellAddThickness 0.02 生成抽壳特征 Part.InsertFeatureShell 0.001, 0 Part.ShowNamedView2 *Isometric
15、, 7 Part.ViewZoomtofit2 End Sub,参数化设计,打开VB，建立工程并设计相应的窗体，编写代码，调用SolidWorks Dim swApp As Object Dim npart As Object 定义OLE对象变量，分别对应SldWorks和Part对象 Set swApp = CreateObject(SldWorks.Application) 创建SldWorks对象,Set Part = swApp.ActivateDoc(Part1) 在SolidWorks中创建一个新 零件文件，零件名被自动命名 Swapp.visible(true),从 Visual
16、 Basic 连接至 solidworks，并参数化绘图,Option Explicit Dim swApp As Object Dim Part As Object Dim D1 As Double Dim D2 As Double Private Sub Command1_Click() Set swApp = CreateObject(SldWorks.Application) Set Part = swApp.ActivateDoc(“Part1”)当前文件名 Part.Parameter(D1草图1).SystemValue = Val(Text1.Text) Part.Parameter(D2草图1).SystemValue = Val(Text2.Text) Part.Parameter(D1拉伸1).SystemValue = Val(Text3.Text) Part.EditRebuild End Sub,窗体添加预览图形代码,Private Sub Form_Load() Image1.Picture = LoadPict
