Get Split Bodies Example (VBA)
This example shows how to get split bodies.
'-----------------------------------------------
'
' Preconditions:
' (1)
Part document is open.
' (2)
Split-body feature is selected.
'
' Postconditions: None
'
'-----------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swSplitBodyFeat As SldWorks.splitbodyfeaturedata
Dim v1 As Variant
Dim v2 As Variant
Dim v3 As Variant
Dim i As Long
Dim s As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject5(1)
Set swSplitBodyFeat = swFeat.GetDefinition
swSplitBodyFeat.AccessSelections
swModel, Nothing
swSplitBodyFeat.GetSplitBodies
v1, v2, v3
swSplitBodyFeat.ReleaseSelectionAccess
For i = 0 To UBound(v2)
s
= v2(i)
Debug.Print
s
Next
End Sub