Get Text Items in GTol Frame (VBA)
This example shows how to get each text item (for example, datum tag
text and tolerance value) in a GTol frame.
'-------------------------------------------------------------
'
' Preconditions:
' 1. Open a document with a GTol frame and select that
GTol frame.
' 2. Open an Immediate window.
' 3. Run the macro.
'
' Postconditions: Number of text items and values for
the selected GTol
' frame are printed to the Immediate window.
'
'-------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim selGtol As SldWorks.Gtol
Dim boolstatus As Boolean
Dim idx As Integer
Dim params As Variant
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = 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)
For idx = 1 To selGtol.GetFrameCount
params
= selGtol.GetFrameValues(idx)
Debug.Print
"GetFrameValues(" +
CStr(idx) + ") = " + params(0) + "," + params(1) +
"," + params(2) + "," + params(3) + ","
+ params(4)
Next idx
End Sub