Get General Table Feature Example (VBA)
This example shows how to get a general table feature and its properties.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swGeneralTableFeature As SldWorks.GeneralTableFeature
Dim swTableAnnotation As SldWorks.TableAnnotation
Dim nbrTableAnnotations As Long
Dim vTableAnnotations As Variant
Dim i As Long
Dim anchorAttached As Boolean
Dim anchorType As Long
Dim nbrColumns As Long
Dim nbrRows As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
' Select general table feature in FeatureManager design
tree
Set swGeneralTableFeature = swSelMgr.GetSelectedObject6(1,
0)
nbrTableAnnotations = swGeneralTableFeature.GetTableAnnotationCount
Debug.Print "Number of annotations = " &
nbrTableAnnotations
vTableAnnotations = swGeneralTableFeature.GetTableAnnotations
For i = 0 To (nbrTableAnnotations - 1)
Set
swTableAnnotation = vTableAnnotations(i)
anchorAttached
= swTableAnnotation.Anchored
Debug.Print
"Table anchored =
" & anchorAttached
anchorType
= swTableAnnotation.anchorType
Debug.Print
"Anchor type =
" & anchorType
nbrColumns
= swTableAnnotation.ColumnCount
Debug.Print
"Number of columns =
" & swTableAnnotation.ColumnCount
nbrRows
= swTableAnnotation.RowCount
Debug.Print
"Number of rows =
" & nbrRows
Next i
End Sub