Get Structural Member Body Sketch Segments Example (VBA)

This example shows how to get the sketch segments that define the path of a body in a structural member.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\api\weldment_box3.sldprt.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Gets the feature definition of Structural Member1.
' 2. Selects body, Structural Member1[1].
' 3. Gets the number of sketch segments that define the path of the
'    selected body.
' 4. Examine the Immediate window.
'
' NOTE: Because the part is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean

Dim swFeat As SldWorks.Feature
Dim featData As SldWorks.StructuralMemberFeatureData
Dim selMan As SldWorks.SelectionMgr
Dim swBody As SldWorks.Body2
Dim vSeg As Variant

Option Explicit
Sub main()

    Set swApp = Application.SldWorks
   

    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("Structural Member1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    Set selMan = Part.SelectionManager
    Set swFeat = selMan.GetSelectedObject6(1, -1)
    Set featData = swFeat.GetDefinition
   

    Part.ClearSelection2 True
   

    ' Select a body in Structural Member1
    boolstatus = Part.Extension.SelectByID2("Structural Member1[1]", "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0)
    Set swBody = selMan.GetSelectedObject6(1, -1)
   

    ' Get the sketch segments that define the path of the selected body
    vSeg = featData.GetSketchSegments(swBody)
    Debug.Print " Number of sketch segments: " & UBound(vSeg) + 1

End Sub