Vba function to find the name of a solid parent

[Anonymous]

Hello,

With a macro in VBA, I want to recover the name of the original solid D-X7001_.Gen.cen and thus rename the new solids created.

Objectif: 

solid72 becomes D-X7001_.Gen.cen.id1  

solid74 becomes  D-X7001_.Gen.cen.id2

solid75 becomes  D-X7001_.Gen.cen.id2 ....

with AffectedByFeatures .name I manage to find the function of first level (ex: scission3)
but I cannot find the method to be able to go further in the tree structure

what's method to use, please?

Thanks for your help

[marcin_otręba]

hi,

Try this:

It will find last solid body in tree.

Sub main()
	On Error Resume Next
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument


    Dim oPane As BrowserPane
    Set oPane = oDoc.BrowserPanes.Item("Model")
    Dim onode As BrowserNode
	For Each onode In oPane.TopNode.BrowserNodes.Item(2).BrowserNodes
		name = get_name(onode, onode)
		MessageBox.Show(name, "Title")
	Next
End Sub
Function get_name(onode As BrowserNode, lastnode As BrowserNode)
		For Each onode1 As BrowserNode In onode.BrowserNodes
			If onode1.NativeObject.type = 67118896 Or onode1.NativeObject.type = 83915776 Or onode1.NativeObject.type = 50385152 Then
					get_name(onode1, onode)
		    End If
			If onode1.NativeObject.type <> 67118896 And onode1.NativeObject.type <> 83915776 And onode1.NativeObject.type <> 50385152 Then
				get_name = lastnode.fullpath
				Exit For			
			End If
		
		Next
End Function

[Anonymous]

Thank you very much for your quick and accurate response.

t is very interesting and I had not thought of nodes,I did not know.

I will test and come back to you to give you a report.