Get Minimum Radius of Bodies Example (VBA)

This example shows how to get the minimum radius of one or more bodies.

'---------------------------------------

'

' Preconditions: A part document is open that

'                contains one or more bodies.

'

' Postconditions: None

'

'---------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swPart As SldWorks.PartDoc

Dim bodies As Variant

Dim vbody As Variant

Dim radius As Double

Sub main()

Set swApp = Application.SldWorks

Set swPart = swApp.ActiveDoc

bodies = swPart.GetBodies2(SwConst.swBodyType_e.swAllBodies, False)

For Each vbody In bodies

    radius = vbody.minimumRadius()

    Debug.Print "  Minimum radius: ", radius

Next vbody

End Sub