PMI/ 3D Annotations

[jzecha]

Is there a way to turn on all Information in a Annotation Set?
I have a large model with hundreds of dimensions, notes, and tolerances.
I currently use the search function to select all of each type, but I am looking for faster way.
Possibly a Macro?

Second, I have seen multiple Macros that pull 3D annotation from a CATPart and screenshots them, but has anyone seen a Macro that pulls the annotations from a CATProduct instead?

 

[ferdo]

Hi,

Sorry, not so clear for me...any sample?

Did you searched the forum? I remember there were some threads...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[jzecha]

I havent found anything about turning on the hidden annotations.

On the second half of my post i was referring to something similar to this thread, only with annotations in the product:

http://www.eng-tips.com/viewthread.cfm?qid=371212

 

[ferdo]

Maybe this ? If you modify the code...

I've done in the past an application in vb.net for your second question so it can be done...a lot of work...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[jzecha]

Ill give the first part a shot.

I didnt figure the second part would be easy, just curious if anyone knew of anything that already existed.

 

[jzecha]

I have created this script off of the idea from that thread ferdo.
And it does exactly what i want it to do.

Language="VBSCRIPT"

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 0
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