Get Parameters of Toroidal Surface Example (VBA)

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

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

'

' Preconditions:

'        (1) Part, assembly, or drawing document is open.

'        (2) Face of toroidal 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 vTorus                  As Variant

    Dim i                       As Long

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFace = swSelMgr.GetSelectedObject5(1)

    Set swSurf = swFace.GetSurface

    If swSurf.IsTorus Then

        vTorus = swSurf.TorusParams

        Debug.Print "File = " & swModel.GetPathName

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

        Debug.Print "  axis           = (" & vTorus(3) & ", " & vTorus(4) & ", " & vTorus(5) & ")"

        Debug.Print "  major radius   = " & vTorus(6) * 1000# & " mm"

        Debug.Print "  minor radius   = " & vTorus(7) * 1000# & " mm"

    End If

End Sub

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