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培训