Count Geometric Sets in Part Tree Root

[CheeseMaker13]

So the tree is:

Part
- xy plane
- yz plane
- zx plane
- Axis Systems
- PartBody
- Geo Set 1
- Geo Set 2
- Geo Set N

Basically, all I want is a count of how many geometrical sets there are (they are all named differently).

Tried to use code from here:

http://www.coe.org/p/fo/et/thread=26239,

but it didn't do what I wanted.

Thanks Again Guys!!

 

[ferdo]

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.OpenBodyFeature,all"

MsgBox "Number of geometrical sets in this active CATPart: " & selection1.Count

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

 

[CheeseMaker13]

Hi,

Thanks Fernando. That works but also brings out geometrical sets inside the PartBody.

Perhaps I could do this search, then take away the Geometrical sets inside the PartBody?

Cheers

 

[CheeseMaker13]

Whilst poking about with it running I found that the following brings out what I wanted:

oDocument.Part.HybridBodies.Count

Which is nice!

 

[ferdo]

Fo rthis, you need to create another search criteria. Do it like bellow

'Part Design'.'Geometrical Set'.Visibility=Shown

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

 

[ferdo]

I forgot to mention that you ned first to hide the PartBody....

Regards
Fernando

https://picasaweb.google.com/102257836106335725208