Get Coordinates of the Plane's Bounding Box Example (VBA)

This example shows how to get top-left and bottom-right coordinates for a reference plane's bounding box.

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

'

' Preconditions: Model document is open and contains

'                a reference plane feature named RefPlane.

'

' Postconditions: None

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim boolstatus As Boolean

Dim swFeature As SldWorks.Feature

Dim swRefPlane As SldWorks.refPlane

Dim swModelExt As SldWorks.ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim vMathPoints As Variant

Dim vArrayData As Variant

Dim pMathPoint As SldWorks.MathPoint

Dim i As Integer

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelExt = swModel.Extension

    Set swSelMgr = swModel.SelectionManager

    boolstatus = swModelExt.SelectByID2("RefPlane", "PLANE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)

    Set swFeature = swSelMgr.GetSelectedObject5(1)

    Set swRefPlane = swFeature.GetSpecificFeature2

    swModel.ClearSelection2 (True)

    vMathPoints = swRefPlane.BoundingBox 'Two (2) MathPoint objects are always returned

    For i = 0 To UBound(vMathPoints)

        vArrayData = vMathPoints(i).ArrayData

        Debug.Print " Point x = " & vArrayData(0)

        Debug.Print " Point y = " & vArrayData(1)

        Debug.Print " Point z = " & vArrayData(2)

    Next i

End Sub