How do I hide all the 3D dimensions /annotations in CATIA 1

[Simone3121]

I got the CAD file from customer with annotations on each of the parts. I tried to search the annotations by Ctrl+F, couldn't find it. Does anyone know how to search and select all the 3D dimensions?

Thanks,

 

[LWolf]

all the annotations are found in Annotation Sets, so by hiding those, all captures and views will be hidden. Search for WorkBench Type: Functional Tolerancing & Annotation, Type: Annotation Set

regards,
LWolf

 

[jzecha]

Here is the Macro I use to quickly turn off all annotations.

Sub CATMain()

Set  ProductDocument1 = CATIA.ActiveDocument
Set Product1 = ProductDocument1. Product

Dim ProductDoc1_As_Document
Set ProductDoc1 = Catia.ActiveDocument

Dim Selection1_As_Selection
Set Selection1 = ProductDoc1.Selection

selection1.Search "CATTPSSearch.CATFTAElement,all"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

viewer3D1.Reframe 

Set viewpoint3D1 = viewer3D1.Viewpoint3D



End Sub