AnsweredAssumed Answered

Macro to Hide/Show Tables

Question asked by Don Carter on Nov 20, 2018
Latest reply on Nov 21, 2018 by Don Carter

Like • Show 0 Likes0
Comment • 7

Is there a macro or set of macros that could be combined that could:

Hide all tables in a drawing on all sheets;
Show tables having specific names on the first sheet of a drawing, i.e. these three tables "BOM Table" "Revision Table" "TB" (no quotes).

Based on how I've seen other macros work, I would think it easier to hide all tables before showing specific tables, but that is a presumption on my part, not a requirement.

I have no ability to write a macro, so any and all assistance is greatly appreciated !!!

SWx 2017 SP3.0; WIndows 7 and 10

Fifi Riri Nov 21, 2018 12:02 PM

Correct Answer

Here you go

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swDraw As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim swAnn As SldWorks.Annotation

Dim swTableAnn As SldWorks.TableAnnotation

Dim vSheetNames As Variant

Dim swTables As Variant

Dim swTable As Variant

Dim i As Integer

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swDraw = swApp.ActiveDoc

vSheetNames = swDraw.GetSheetNames

For i = UBound(vSheetNames) To 0 Step -1

boolstatus = swDraw.ActivateSheet(vSheetNames(i))

Set swView = swDraw.GetFirstView

If swView.GetTableAnnotationCount <> 0 Then

swTables = swView.GetTableAnnotations

For Each swTable In swTables

Set swTableAnn = swTable

Set swAnn = swTableAnn.GetAnnotation

'Debug.Print swTableAnn.Title

If i <> 0 Or (i = 0 And (swTableAnn.Title <> "BOM Table" And swTableAnn.Title <> "Revision Table" And swTableAnn.Title <> "TB")) Then

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden

Debug.Print "Hide " & swTableAnn.Title

Else

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationVisible

Debug.Print "Show " & swTableAnn.Title

End If

Debug.Print

End If

swDraw.ClearSelection2 True

End Sub

See the reply in context

No one else had this question

Outcomes

Fifi Riri Nov 20, 2018 10:32 PM

Hello, try this:

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swDraw As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim swAnn As SldWorks.Annotation

Dim swTableAnn As SldWorks.TableAnnotation

Dim swFeat As SldWorks.Feature

Dim swGeneralTableFeature As SldWorks.GeneralTableFeature

Dim swBomTableFeature As SldWorks.BomFeature

Dim swRevTableFeature As SldWorks.RevisionTableFeature

Dim swBlockTableFeature As SldWorks.TitleBlockTableFeature

Dim vSheetNames As Variant

Dim swTables As Variant

Dim swTable As Variant

Dim i As Integer

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swDraw = swApp.ActiveDoc

vSheetNames = swDraw.GetSheetNames

For i = UBound(vSheetNames) To 0 Step -1

boolstatus = swDraw.ActivateSheet(vSheetNames(i))

Set swView = swDraw.GetFirstView

If swView.GetTableAnnotationCount <> 0 Then

swTables = swView.GetTableAnnotations

For Each swTable In swTables

Set swTableAnn = swTable

Set swAnn = swTableAnn.GetAnnotation

Select Case swTableAnn.Type

Case swTableAnnotationType_e.swTableAnnotation_General

Set swGeneralTableFeature = swTableAnn.GeneralTableFeature

Set swFeat = swGeneralTableFeature.GetFeature

Case swTableAnnotationType_e.swTableAnnotation_RevisionBlock

Set swRevTableFeature = swTableAnn.RevisionTableFeature

Set swFeat = swRevTableFeature.GetFeature

Case swTableAnnotationType_e.swTableAnnotation_BillOfMaterials

Set swBomTableFeature = swTableAnn.BomFeature

Set swFeat = swBomTableFeature.GetFeature

Case swTableAnnotationType_e.swTableAnnotation_TitleBlock

Set swBlockTableFeature = swTableAnn.TitleBlockTableFeature

Set swFeat = swBlockTableFeature.GetFeature

Case Else

Set swFeat = Nothing

End Select

If swFeat Is Nothing Then

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden

Debug.Print "Hide " & swTableAnn.Title

Else

'Debug.Print swFeat.Name

If i <> 0 Or (i = 0 And (swFeat.Name <> "BOM Table" And swFeat.Name <> "Revision Table" And swFeat.Name <> "TB")) Then

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden

Debug.Print "Hide " & swFeat.Name

Else

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationVisible

Debug.Print "Show " & swFeat.Name

End If

Debug.Print

End If

swDraw.ClearSelection2 True

End Sub

Actions

Don Carter @ Fifi Riri on Nov 21, 2018 10:09 AM

Fifi Riri,

Thanx for your work. Much appreciated .... however, it only hid all tables on the drawing. It did not cause the 3 tables (that I need) to show. The drawing that I tested on is 1 sheet.

With all tables hidden, I ran it again. Nothing happened --- which I expected.

Actions

Fifi Riri @ Don Carter on Nov 21, 2018 10:23 AM

Could you post your files

Actions

Don Carter @ Fifi Riri on Nov 21, 2018 10:26 AM

Standby .... I'm doing my tests on our proprietary files ..... I'll create a dummy set.

Thanx

Actions

Don Carter @ Fifi Riri on Nov 21, 2018 11:41 AM

Sample asm / drawing attached.

I've used the motion path tutorial that comes with SWx 2017. None of the Custom Properties exist or match what we use, so the drawing Title Block, BOM, etc contain a lot of blank fields. However, the BOM recognizes the number of items, so I know that part of SWx is functioning normally.

What you see is an asm drawing with 2 tables visible - a Revision Table and a BOM. A production drawing would have these plus perhaps a hole chart, or some inspection dimensions in a General Table, a CutList, etc.

If you expand the Feature Manager, there is a second BOM and another table called "Title Block Table", both of which are hidden.

You will notice that the Header of each table is hidden/collapsed. The Header of every table has a unique Display Title.

What I want this macro to do is to show or leave visible the 3 tables having the Display Headers of "BOM Table", "Revision Table" and "TB."

Right now, it hides all tables. I've attached the macro also. Did I do that part right?

(FYI, when those 3 tables are visible, we run another macro that exports them as xls files, from which we build our production BOM.)

Attachments

Macro0.swp.zip8.0 KB
motion_path_tutorial.zip1.2 MB

Actions

Fifi Riri @ Don Carter on Nov 21, 2018 12:02 PM

Here you go

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swDraw As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim swAnn As SldWorks.Annotation

Dim swTableAnn As SldWorks.TableAnnotation

Dim vSheetNames As Variant

Dim swTables As Variant

Dim swTable As Variant

Dim i As Integer

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swDraw = swApp.ActiveDoc

vSheetNames = swDraw.GetSheetNames

For i = UBound(vSheetNames) To 0 Step -1

boolstatus = swDraw.ActivateSheet(vSheetNames(i))

Set swView = swDraw.GetFirstView

If swView.GetTableAnnotationCount <> 0 Then

swTables = swView.GetTableAnnotations

For Each swTable In swTables

Set swTableAnn = swTable

Set swAnn = swTableAnn.GetAnnotation

'Debug.Print swTableAnn.Title

If i <> 0 Or (i = 0 And (swTableAnn.Title <> "BOM Table" And swTableAnn.Title <> "Revision Table" And swTableAnn.Title <> "TB")) Then

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden

Debug.Print "Hide " & swTableAnn.Title

Else

swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationVisible

Debug.Print "Show " & swTableAnn.Title

End If

Debug.Print

End If

swDraw.ClearSelection2 True

End Sub

Actions

Don Carter @ Fifi Riri on Nov 21, 2018 1:19 PM

FiFi Riri,

Thanx so much for this. I've tested it on single sheets, multi-sheets, read-only, and it works great on all !!

Let me buy you a cup of coffee. Better yet, take the rest of the day off. You have my permission !! hahaha..

Would you be willing to perform an encore? As a separate macro, would it be possible to change the name of one table that the user can select? In my sample, you see 2 BOMs, each named differently. Sometimes, both BOMs get named the same because they were created from the same template. But our export process only wants one BOM, named "BOM Table". Could a macro be used that would allow the user to pick one of the BOMs and rename it, to "Drawing BOM" is a good choice.

I'm thinking the process would be to run the BOM rename macro only when needed, followed by the Hide Tables macro that you just wrote.

Thanks again !!

Actions

7 Replies

Fifi Riri Nov 20, 2018 10:32 PM
Mark Correct
Correct Answer
Hello, try this:

Option Explicit
Dim swApp       As SldWorks.SldWorks
Dim swDraw      As SldWorks.DrawingDoc
Dim swView      As SldWorks.View
Dim swAnn       As SldWorks.Annotation
Dim swTableAnn As SldWorks.TableAnnotation
Dim swFeat      As SldWorks.Feature
Dim swGeneralTableFeature As SldWorks.GeneralTableFeature
Dim swBomTableFeature As SldWorks.BomFeature
Dim swRevTableFeature As SldWorks.RevisionTableFeature
Dim swBlockTableFeature As SldWorks.TitleBlockTableFeature
Dim vSheetNames As Variant
Dim swTables    As Variant
Dim swTable     As Variant
Dim i           As Integer
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
vSheetNames = swDraw.GetSheetNames
For i = UBound(vSheetNames) To 0 Step -1
    boolstatus = swDraw.ActivateSheet(vSheetNames(i))
    Set swView = swDraw.GetFirstView
    If swView.GetTableAnnotationCount <> 0 Then
        swTables = swView.GetTableAnnotations
        For Each swTable In swTables
            Set swTableAnn = swTable
            Set swAnn = swTableAnn.GetAnnotation
            Select Case swTableAnn.Type
            Case swTableAnnotationType_e.swTableAnnotation_General
                Set swGeneralTableFeature = swTableAnn.GeneralTableFeature
                Set swFeat = swGeneralTableFeature.GetFeature
            Case swTableAnnotationType_e.swTableAnnotation_RevisionBlock
                Set swRevTableFeature = swTableAnn.RevisionTableFeature
                Set swFeat = swRevTableFeature.GetFeature
            Case swTableAnnotationType_e.swTableAnnotation_BillOfMaterials
                Set swBomTableFeature = swTableAnn.BomFeature
                Set swFeat = swBomTableFeature.GetFeature
            Case swTableAnnotationType_e.swTableAnnotation_TitleBlock
                Set swBlockTableFeature = swTableAnn.TitleBlockTableFeature
                Set swFeat = swBlockTableFeature.GetFeature
            Case Else
                Set swFeat = Nothing
            End Select
            If swFeat Is Nothing Then
                swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden
                Debug.Print "Hide   " & swTableAnn.Title
            Else
                'Debug.Print swFeat.Name
                If i <> 0 Or (i = 0 And (swFeat.Name <> "BOM Table" And swFeat.Name <> "Revision Table" And swFeat.Name <> "TB")) Then
                    swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden
                    Debug.Print "Hide   " & swFeat.Name
                Else
                    swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationVisible
                    Debug.Print "Show   " & swFeat.Name
                End If
            End If
            Debug.Print
        Next
    End If
Next
swDraw.ClearSelection2 True
End Sub
Like • Show 3 Likes3
Actions
- Don Carter @ Fifi Riri on Nov 21, 2018 10:09 AM
  Mark Correct
  Correct Answer
  Fifi Riri,
  Thanx for your work. Much appreciated .... however, it only hid all tables on the drawing. It did not cause the 3 tables (that I need) to show. The drawing that I tested on is 1 sheet.
  
  With all tables hidden, I ran it again. Nothing happened --- which I expected.
  Like • Show 1 Like1
  Actions
  - Fifi Riri @ Don Carter on Nov 21, 2018 10:23 AM
    Mark Correct
    Correct Answer
    Could you post your files
    Like • Show 1 Like1
    Actions
    - Don Carter @ Fifi Riri on Nov 21, 2018 10:26 AM
      Mark Correct
      Correct Answer
      Standby .... I'm doing my tests on our proprietary files ..... I'll create a dummy set.
      
      Thanx
      Like • Show 1 Like1
      Actions
    - Don Carter @ Fifi Riri on Nov 21, 2018 11:41 AM
      Mark Correct
      Correct Answer
      Sample asm / drawing attached.
      I've used the motion path tutorial that comes with SWx 2017. None of the Custom Properties exist or match what we use, so the drawing Title Block, BOM, etc contain a lot of blank fields. However, the BOM recognizes the number of items, so I know that part of SWx is functioning normally.
      What you see is an asm drawing with 2 tables visible - a Revision Table and a BOM. A production drawing would have these plus perhaps a hole chart, or some inspection dimensions in a General Table, a CutList, etc.
      If you expand the Feature Manager, there is a second BOM and another table called "Title Block Table", both of which are hidden.
      You will notice that the Header of each table is hidden/collapsed. The Header of every table has a unique Display Title.
      
      What I want this macro to do is to show or leave visible the 3 tables having the Display Headers of "BOM Table", "Revision Table" and "TB."
      
      Right now, it hides all tables. I've attached the macro also. Did I do that part right?
      
      (FYI, when those 3 tables are visible, we run another macro that exports them as xls files, from which we build our production BOM.)
      Attachments
      Macro0.swp.zip8.0 KB
      motion_path_tutorial.zip1.2 MB
      Like • Show 1 Like1
      Actions
      - Fifi Riri @ Don Carter on Nov 21, 2018 12:02 PM
        Unmark Correct
        Correct Answer
        Here you go
        
        Option Explicit
        Dim swApp       As SldWorks.SldWorks
        Dim swDraw      As SldWorks.DrawingDoc
        Dim swView      As SldWorks.View
        Dim swAnn       As SldWorks.Annotation
        Dim swTableAnn As SldWorks.TableAnnotation
        Dim vSheetNames As Variant
        Dim swTables    As Variant
        Dim swTable     As Variant
        Dim i           As Integer
        Dim boolstatus As Boolean
        Sub main()
        Set swApp = Application.SldWorks
        Set swDraw = swApp.ActiveDoc
        vSheetNames = swDraw.GetSheetNames
        For i = UBound(vSheetNames) To 0 Step -1
            boolstatus = swDraw.ActivateSheet(vSheetNames(i))
            Set swView = swDraw.GetFirstView
            If swView.GetTableAnnotationCount <> 0 Then
                swTables = swView.GetTableAnnotations
                For Each swTable In swTables
                    Set swTableAnn = swTable
                    Set swAnn = swTableAnn.GetAnnotation
                    'Debug.Print swTableAnn.Title
                    If i <> 0 Or (i = 0 And (swTableAnn.Title <> "BOM Table" And swTableAnn.Title <> "Revision Table" And swTableAnn.Title <> "TB")) Then
                        swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationHidden
                        Debug.Print "Hide   " & swTableAnn.Title
                    Else
                        swAnn.Visible = swAnnotationVisibilityState_e.swAnnotationVisible
                        Debug.Print "Show   " & swTableAnn.Title
                    End If
                    Debug.Print
                Next
            End If
        Next
        swDraw.ClearSelection2 True
        End Sub
        Like • Show 1 Like1
        Actions
        Don Carter @ Fifi Riri on Nov 21, 2018 1:19 PM
        Mark Correct
        Correct Answer
        FiFi Riri,
        Thanx so much for this. I've tested it on single sheets, multi-sheets, read-only, and it works great on all !!
        
        Let me buy you a cup of coffee. Better yet, take the rest of the day off. You have my permission !! hahaha..
        
        Would you be willing to perform an encore? As a separate macro, would it be possible to change the name of one table that the user can select? In my sample, you see 2 BOMs, each named differently. Sometimes, both BOMs get named the same because they were created from the same template. But our export process only wants one BOM, named "BOM Table". Could a macro be used that would allow the user to pick one of the BOMs and rename it, to "Drawing BOM" is a good choice.
        
        I'm thinking the process would be to run the BOM rename macro only when needed, followed by the Hide Tables macro that you just wrote.
        
        Thanks again !!
        Like • Show 1 Like1
        Actions

Macro to Hide/Show Tables

Outcomes

Attachments

Related Content

Recommended Content