Hide or Show First Column in Hole Table (VBA)
This example shows how to delete the first row in a hole table.
'--------------------------------------
' Preconditions:
' 1. Drawing document is open in which a hole table exists.
' 2. The Hole Table feature is selected in
' the
FeatureManager design tree.
'
' Postconditions: First column is hidden if shown,
' and
shown if hidden.
'--------------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swSelMgr As
SldWorks.SelectionMgr
Dim
swHoleTableAnnotation As
SldWorks.HoleTableAnnotation
Dim
swTableAnnotation As
SldWorks.TableAnnotation
Dim
swAnnotation As
SldWorks.Annotation
Dim
swHoleTable As
SldWorks.HoleTable
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
If
(swSelMgr.GetSelectedObjectCount
= 0 Or Not (swSelMgr.GetSelectedObjectType(1) = swSelHOLETABLEFEATS))
Then
MsgBox
"Please select a Hole Table feature in the FeatureManager design
tree."
Exit
Sub
End
If
Set
swHoleTable = swSelMgr.GetSelectedObject6(1,
-1)
Set
swHoleTableAnnotation = swHoleTable.GetTableAnnotations(0)
Set
swTableAnnotation = swHoleTableAnnotation
Set
swAnnotation = swTableAnnotation.GetAnnotation
'
If first column is hidden, then show it
If
(swTableAnnotation.ColumnHidden(0))
Then
Debug.Print
" First column hidden before API call: " & swTableAnnotation.ColumnHidden(0)
swTableAnnotation.ColumnHidden(0) = False
Debug.Print
" First column hidden after API call: "
& swTableAnnotation.ColumnHidden(0)
Else
'
If first column is shown, then hide it
Debug.Print
" First column hidden before API call: " & swTableAnnotation.ColumnHidden(0)
swTableAnnotation.ColumnHidden(0) = True
Debug.Print
" First column hidden after API call: "
& swTableAnnotation.ColumnHidden(0)
End
If
End Sub