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