Unhide solids from assembly 2

[CAD2015]

Hi,

I am working on a large assembly.
At last session I hide a bunch of solids, for easy view.
I didn't pick up the solids from the tree, but using the mouse.
There a lot of planes, curves, axes, etc hiden.
How could I unhide from the assembly only the solids (bodies)?


Thanks


CAD 2015

 

[itsmyjob]

search for Body then select and show

'Part Design'.Body,all

Eric N.
indocti discant et ament meminisse periti ​

 

[CAD2015]

Something like this?

CAD 2015

 

[itsmyjob]

Eric N.
indocti discant et ament meminisse periti ​

 

[ferdo]

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATPrtSearch.MechanicalFeature,all"


    Set visPropertySet1 = selection1.VisProperties
    visPropertySet1.SetShow 0
    selection1.Clear
 

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[CAD2015]

Thank you!


CAD 2015

 

[CAD2015]

Ferdo,

It didn't work...…..:

Selecting "Yes", I got this message:

What was wrong?

CAD 2015

 

[ferdo]

In the header of my code is written CATScript. What you have is a catvbs (pay attention when you open the editor in which kind of file you will create the macro).

To make it work in catvbs just put a "comment" in front of each As word.

That means

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 'As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 'As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATPrtSearch.MechanicalFeature,all"


    Set visPropertySet1 = selection1.VisProperties
    visPropertySet1.SetShow 0
    selection1.Clear
 

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU