搜索SolidWorks二次開發——宏的應用
2013-07-07 by:廣州Solidworks培訓中心 來源:仿真在線
SolidWorks二次開發——宏的應用
工程軟件二次開發中,宏的功能非常強大。通過錄制宏,我們可以在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二次開發——宏的應用 無錫 紹興 無錫 SolidWorks培訓 機構簡化 Fluent、CFX流體分析 HFSS電磁分析 Ansys培訓 Abaqus培訓 Autoform培訓 有限元培訓 Solidworks培訓
