Change Weld Bead Faces Example (VBA)
This example shows how to change the faces of an existing fillet weld
bead.
'-----------------------------------
'
' Preconditions: Fillet weld bead exists and is selected
in
' the
open part document.
'
' Postconditions: Fillet weld bead is recreated on the
' the
selected faces.
'
'------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim SwFeat As SldWorks.Feature
Dim swWeldBead As WeldmentBeadFeatureData
Dim SwModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swComp As SldWorks.Component2
Dim f1 As Variant
Dim f2 As Variant
Dim fa1(0) As Object
Dim fa2(0) As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set SwModel = swApp.ActiveDoc
Set swSelMgr = SwModel.SelectionManager
'Select the fillet weld bead feature
Set SwFeat = swSelMgr.GetSelectedObject5(1)
Set swWeldBead = SwFeat.GetDefinition
'Roll back the model to the feature just above the weld
bead feature
boolstatus = swWeldBead.AccessSelections(SwModel,
swComp)
'Use both sides of the fillet weld bead
swWeldBead.UseOtherSide
= True
'Set the type of weld bead to intermittent
swWeldBead.BeadType(swWeldBeadOtherSide)
= swWeldBeadTypeIntermittent
'Select the two faces to which you want to apply the weld
bead
Set fa1(0) = swSelMgr.GetSelectedObject5(1)
Set fa2(0) = swSelMgr.GetSelectedObject5(2)
f1 = fa1
f2 = fa2
'Use the selected faces for the weld bead
boolstatus = swWeldBead.SetFaces(swWeldBeadOtherSide,
(f1), (f2))
'Modify the weld bead using the just selected faces
boolstatus = SwFeat.ModifyDefinition(swWeldBead,
SwModel, swComp)
End Sub