Get Text Items in GTol Frame Example (VBA)

This example shows how to get text items, values, and symbols in a GTol frame.

'-------------------------------------------------------------
' Preconditions:
' 1. Open a document with a GTol frame and select that GTol 
'    frame.
' 2. Open an Immediate window.
'
' Postconditions:
' 1. Gets the text items, values, and symbols in the 
'    selected GTol frame.
' 2. Examine the Immediate window.
'-------------------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim selGtol As SldWorks.Gtol
Dim idx As Long
Dim params As Variant
Dim arrSymbols As Variant

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelExt = swModel.Extension
    Set swSelMgr = swModel.SelectionManager
    Set selGtol = swSelMgr.GetSelectedObject6(1, 0)    

    Debug.Print "GetTextCount = " & CStr(selGtol.GetTextCount)    

    For idx = 0 To selGtol.GetTextCount - 1
        Debug.Print "GetTextAtIndex(" & CStr(idx) & ") = " & selGtol.GetTextAtIndex(idx)
    Next idx    

    Debug.Print "GetFrameCount = " & (CStr(selGtol.GetFrameCount) - 1)    

    For idx = 1 To selGtol.GetFrameCount - 1
        params = selGtol.GetFrameValues(idx)
        Debug.Print "GetFrameValues(" & CStr(idx) & ") = " & params(0) & "," & params(1) & "," & params(2) & "," & params(3) & "," & params(4)
        arrSymbols = selGtol.GetFrameSymbols3(idx)
        Debug.Print "  GetFrameSymbols3(" & CStr(idx) & ") = " & arrSymbols(0) & ", " & arrSymbols(1) & ", " & arrSymbols(2) & ", " & arrSymbols(3) & ", " & arrSymbols(4) & ", " & arrSymbols(5) & ")"
   Next idx

End Sub