How to select all Work Planes in a Product

[T105]

I need to hide all the planes in a product without digging into each part. Sometime in the past I was doing this but now I couldnt find it.

I would be pleased to get some help in the issue.

Best regards

 

[ferdo]

Hi,

Copy-Paste in a CATScript

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 "CatPrtSearch.Plane,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

Regards
Fernando

 

[PeterGuy]

in power input box tlane,all

 

[T105]

Thats great. Thank you very much.

Best regards

 

[ferdo]

Always the simplest solution is best, I completely forgot the power input....... and when you think I worked some time in v4 ...:->

Regards
Fernando