Get Parameters of Conical Surface Example (VBA)

This example shows how to get the parameters of a conical surface.

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

'

' Preconditions:

'         (1) Model document is open.

'         (2) Conical surface 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 swSurf                  As SldWorks.Surface

    Dim vCone                   As Variant

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFace = swSelMgr.GetSelectedObject5(1)

    Set swSurf = swFace.GetSurface

    If swSurf.IsCone Then

        vCone = swSurf.ConeParams

        Debug.Print "Origin         = (" & vCone(0) * 1000# & ", " & vCone(1) * 1000# & ", " & vCone(2) * 1000# & ") mm"

        Debug.Print "Axis           = (" & vCone(3) & ", " & vCone(4) & ", " & vCone(5) & ")"

        Debug.Print "Radius         = " & vCone(6) * 1000# & " mm"

        Debug.Print "Half angle     = " & vCone(7) * 57.3 & " degrees"

    End If

End Sub