Get Normal of Planar Face Example (VBA)

This example shows how to get the normal parameters of a planar face.

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

'

' Preconditions:

'        (1) Model document is open.

'        (2) Planar face is selected.

'

' Postconditions: None

'

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

Option Explicit

Sub main()

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.ModelDoc2

    Dim swSelMgr            As SldWorks.SelectionMgr

    Dim swFace              As SldWorks.face2

    Dim vNorm               As Variant

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFace = swSelMgr.GetSelectedObject5(1)

    vNorm = swFace.Normal

    Debug.Print "Normal = (" & vNorm(0) & ", " & vNorm(1) & ", " & vNorm(2) & ")"

    End Sub