SolidWorks二次開發(fā)——宏的應用

2013-07-07  by:廣州Solidworks培訓中心  來源:仿真在線

SolidWorks二次開發(fā)——宏的應用

       工程軟件二次開發(fā)中,宏的功能非常強大。通過錄制宏,我們可以在SolidWorks的VBA編輯器中,對一次參數設變量,以便于進行值的傳遞。

       這是我看書后自己做的一個非常簡單的圓柱的宏。其中有兩個參數,直徑(Diameter)和高度(Height)。如圖

       不同控件對應不同的函數,在VBA中輕松制作窗體。設計窗體時,對話框的大小可以調整,但是完成后,在SolidWorks中無法調整大小。

效果圖

附:具體代碼

Dim swApp As Object

Dim Part As Object 

Dim boolstatus As Boolean 

Dim longstatus As Long, longwarnings As Long

Sub main()

Load Frm 

Frm.Show 

End Sub

Private Sub cmdCreate_Click() 

Set swApp = _ 

Application.SldWorks

Set Part = swApp.ActiveDoc 

boolstatus = Part.Extension.SelectByID2("前視基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0) 

Part.SketchManager.InsertSketch True 

Part.ClearSelection2 True 

Dim skSegment As Object 

Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0#, Val(Dia.Text), 0#) 

Part.ShowNamedView2 "*上下二等角軸測", 8 

Part.ClearSelection2 True 

boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0) 

Dim myFeature As Object 

Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, Val(Hei.Text), 0, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False) 

Part.SelectionManager.EnableContourSelection = False 

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Dia_Change()

End Sub

Private Sub hei_Change()

End Sub

Private Sub cmdexit_Click() 

End 

End Sub

Private Sub UserForm_Click()

End Sub

相關標簽搜索：SolidWorks二次開發(fā)——宏的應用 無錫 紹興 無錫 SolidWorks培訓 機構簡化 Fluent、CFX流體分析 HFSS電磁分析 Ansys培訓 Abaqus培訓 Autoform培訓 有限元培訓 Solidworks培訓