搜索SolidWorks二次開發(fā)——宏的應(yīng)用
2013-07-07 by:廣州Solidworks培訓(xùn)中心 來(lái)源:仿真在線
SolidWorks二次開發(fā)——宏的應(yīng)用
工程軟件二次開發(fā)中,宏的功能非常強(qiáng)大。通過(guò)錄制宏,我們可以在SolidWorks的VBA編輯器中,對(duì)一次參數(shù)設(shè)變量,以便于進(jìn)行值的傳遞。
這是我看書后自己做的一個(gè)非常簡(jiǎn)單的圓柱的宏。其中有兩個(gè)參數(shù),直徑(Diameter)和高度(Height)。如圖
不同控件對(duì)應(yīng)不同的函數(shù),在VBA中輕松制作窗體。設(shè)計(jì)窗體時(shí),對(duì)話框的大小可以調(diào)整,但是完成后,在SolidWorks中無(wú)法調(diào)整大小。
效果圖
附:具體代碼
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("前視基準(zhǔn)面", "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 "*上下二等角軸測(cè)", 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
相關(guān)標(biāo)簽搜索：SolidWorks二次開發(fā)——宏的應(yīng)用 無(wú)錫 紹興 無(wú)錫 SolidWorks培訓(xùn) 機(jī)構(gòu)簡(jiǎn)化 Fluent、CFX流體分析 HFSS電磁分析 Ansys培訓(xùn) Abaqus培訓(xùn) Autoform培訓(xùn) 有限元培訓(xùn) Solidworks培訓(xùn)
