VB連接Solidworks2012課件

1、SolidWorks二次開發(fā)基本知識（開發(fā)人員提供）SolidWorks提供了幾百個API（Application Program Interface，應用程序接口），可以使用VB/VB/VC/Delphi等高級語言對SolidWorks進行二次開發(fā)，建立符合要求的、專用的SolidWorks功能模塊VBAVBA（Visual Basic for ApplicationsVisual Basic for Applications）VBAVBA（Visual Basic for ApplicationsVisual Basic for Applications）是是19931993年由年由Mic

2、rosoftMicrosoft推出的一種可以被多推出的一種可以被多種應用程序共享的、針對應用程序內部可種應用程序共享的、針對應用程序內部可編程的、通用的可視化應用程序編程語言。編程的、通用的可視化應用程序編程語言。VBAVBA是一套完整的應用程序開發(fā)環(huán)境，它為是一套完整的應用程序開發(fā)環(huán)境，它為用戶和開發(fā)人員提供了一種應用程序間通用戶和開發(fā)人員提供了一種應用程序間通用的應用程序語言，減少了學習時間和支用的應用程序語言，減少了學習時間和支持費用。持費用。在Microsoft Office中，所有的應用程序都可以使用VBA在SolidWorks中，VBA最常見的用途即是錄制宏。幾乎所有用鍵盤或菜單命

3、令完成的動作均被宏記錄下來，然后對不同的數(shù)據(jù)進行（或播放）同一批操作。SolidWorks的對象、方法很多，其中SldWorks對象有98種方法，ModelDoc對象有477種方法，通常，開發(fā)者先錄制一段宏，然后將宏代碼修改后復制到VB中去。宏是一系列命令的集合，相當于Dos的批處理文件，可以通過錄制使用SolidWorks用戶界面執(zhí)行的操作，然后使用SolidWorks宏重新執(zhí)行這些操作。1.在Solidworks中，應用紀錄宏（【工具】 【宏操作】 【錄制】停止宏停止宏保存于文件夾保存于文件夾2.操作、停止并保存3.編輯宏4.執(zhí)行宏操作將宏錄制的代碼照搬到VB，并不一定能夠繪圖，有時會出現(xiàn)

4、錯誤，需進行修改。SolidWorks二次開發(fā)常用代碼打開SolidWorks新文件SldWorks:NewPart：打開一個被自動命名的新零件SldWorks:NewDocment(模板名，圖紙尺寸，用戶紙寬，用戶紙高)：創(chuàng)建一個具有模板名的新文件SldWorks:NewAssembly：創(chuàng)建一個被自動命名的裝配體文件SldWorks:NewDrawing2（模板類型，模板名，圖紙尺寸，紙寬，紙高）：創(chuàng)建一個新的具有模板或用戶圖紙的工程圖文件，文件名被自動命名。保存和退出文件ModelDoc:SaveAs(文件名，版本信息，選項，.)：用不同的名稱保存文件ModelDoc:SaveAs2 (

5、文件名)：用新名字保存文件SldWorks:ExitApp退出SolidWorks保存在當前路徑：App.path & “文件名”其他代碼ModelDoc2: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

6、, 0.017, 0, 0 其他代碼Mddeldoc:Featurecut4(單（雙）向，反側切除，方向1，終止1，終止2，切割深度1，切割深度2，拔模):VB連接SolidworksDim swApp As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)連接Solidworks并新建自動命名的零件模型文件Private Sub Command1_Click()Dim swApp As ObjectDim npart As ObjectSet swApp = CreateObject(SldWork

7、s.Application)Swapp.visible(true)Set npart = swApp.Newpart()End Sub連接Solidworks并新建自動命名的裝配模型文件Dim swApp As ObjectDim nassembly As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)Set nassembly = swApp.Newassembly()連接Solidworks并新建工程圖文件Dim swApp As ObjectDim pDrawing As ObjectSet

8、swApp = CreateObject(SldWorks.Application)Set pDrawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159)新建文件例題：Private Sub Command1_Click()Dim swApp As ObjectDim npart As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)Set npart = swApp.Newpart()End SubPrivate Sub Command2_Click()D

9、im swApp As ObjectDim pDrawing As ObjectSet swApp = CreateObject(SldWorks.Application)Set pDrawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159)End SubPrivate Sub Command3_Click()Dim swApp As ObjectDim nassembly As ObjectSet swApp = CreateObject(SldWorks.Application)Set nassembly = swApp.Newassembly(

10、)End Sub編程舉例代碼Private Sub 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,

11、 0.02, 0, 0, 0, 0, 0.01745329251994, 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.ViewZ

12、oomtofit2End Sub 抽殼Modeldoc2:insertfeatureshelladdthicknessPrivate Sub Command1_Click()在前視面，以左下角為原點生成一個100 x100 x20的長方體對此長方體進行多厚度抽殼Dim swApp As ObjectDim Part As ObjectSet swApp = CreateObject(SldWorks.Application)Set Part = swApp.ActiveDocswApp.Visible (True)Set Part = swApp.newpart()Part.InsertSke

13、tchPart.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.01745329251994, 0.01745329251994, 0, 0Part.SelectByMark 基體-拉伸, BODYFEATURE, 0, 0, 0, 0Part.AndSelectByMark , FACE, 0.03, 0.03, 0, 1 選擇開放面?標號是1 選擇兩個有不等厚度的非開放面?標號是2Part.AndSelectByMark , FACE,

14、 0.09999999999991, 0.04121560801519, -0.01272845167375, 2Part.AndSelectByMark , FACE, 0.05376383570518, 0.09999999999985, -0.01066374420634, 2 為每個面設置厚度Part.InsertFeatureShellAddThickness 0.005Part.InsertFeatureShellAddThickness 0.02 生成抽殼特征Part.InsertFeatureShell 0.001, 0Part.ShowNamedView2 *Isometri

15、c, 7Part.ViewZoomtofit2End Sub參數(shù)化設計打開打開VB，建立工程并，建立工程并設計相應的窗體，設計相應的窗體，編寫代碼，調用編寫代碼，調用SolidWorksDim swApp As ObjectDim npart As Object 定義OLE對象變量，分別對應SldWorks和Part對象 Set swApp = CreateObject(SldWorks.Application)創(chuàng)建SldWorks對象Set Part = swApp.ActivateDoc(Part1)在SolidWorks中創(chuàng)建一個新零件文件，零件名被自動命名Swapp.visible(true)Option ExplicitDim swApp As ObjectDim Part As ObjectDim D1 As DoubleDim D2 As DoublePrivate Sub Command1_Click()Set swApp = CreateObject(SldWorks.Application)Set Part = swApp.ActivateDoc(“Part1”)當前文件名當前文件名Part.Parame