How to select all Work Planes in a Product
How to select all Work Planes in a Product
(OP)
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
I would be pleased to get some help in the issue.
Best regards





RE: How to select all Work Planes in a Product
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
RE: How to select all Work Planes in a Product
RE: How to select all Work Planes in a Product
Best regards
RE: How to select all Work Planes in a Product
Regards
Fernando