topic SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ? in Inventor Forum

SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Anonymous — Tue, 08 Dec 2015 17:32:30 GMT

As a former Solidworks user I am trying to find a way to show BOTH the part number and the renamed browser name in the design tree.

I know I can switch back and forth between the two but would like to see both .

Thanks

Steven

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Mark.Lancaster — Tue, 08 Dec 2015 18:28:31 GMT

You would need an iLogic program to do that.. Here's an example I did years ago to show plate stock size as the display name. It would also update (iLogic Trigger) before a save of the file.

Edit: Do you know how to use iLogic within Inventor? (also I'm assuming you have a new version of Inventor, where iLogic is built into it - older versin required an add-on).

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Anonymous — Tue, 08 Dec 2015 18:45:55 GMT

Thanks, yes i know ilogic. But doesnt this just add info from part to browswer name?

maybe this will help, I have parts that I named in the browser side flange, top flange door...ect..but the file names are sht.00001234.ipt.

I would like to see both in the browser tree

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Mark.Lancaster — Tue, 08 Dec 2015 18:58:55 GMT

Yes that ilogic snippet is pulling data from the part. It was just an exmaple (assuming you would modify it to meet your requirements).

Here's a quick one that I did based on your requirements.. I wasn't sure if you wanted file name or part number.. Since you indicated in one posting part number but in another one you said file name. This one combines the current display name with the file name + ext.

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Anonymous — Tue, 08 Dec 2015 19:20:10 GMT

thanks that worked for the assembly name.

can i modify it to show the same info for the parts of the assembly?

as you can see in the bottom half i didnt change the browswer names..the top half i did so i can find the in the assembly easier.

i would like to see the file name next to the browser new name.

Thanks again for the help

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

Mark.Lancaster — Tue, 08 Dec 2015 20:27:39 GMT

It all depends on if you want to change the browser name of the individual parts at the assembly level or the part level.

If you change the individual part browser names at the assembly level you are only changing it in that assembly.

If you make the change at the part level than its across the board.

So at the part level you can use that same iLogic code.

If at the assembly level, that would require additional coding to loop through the entire model structure.

Re: SHOW BOTH PART NUMBER & BROWSER NAME IN DESIGN TREE ?

MechMachineMan — Tue, 08 Dec 2015 21:19:54 GMT

Hi.

Here is a vb.net routine I wrote that can be used as an external rule to accomplish such a feat from the assembly level:

Note: the plethora of checks are required so that it doesn't go through library parts or STANDARD content center parts renaming browser nodes..

Option Compare Text
Imports System.IO

Public Sub Main()
    Dim asmDoc As AssemblyDocument
    asmDoc = ThisApplication.ActiveDocument
    
    asmDoc.DisplayName = BuildName(asmDoc)
    

    Dim doc As Document
    For Each doc In asmDoc.AllReferencedDocuments
		doc = ThisApplication.Documents.Open(doc.FullFileName, False)

		For Each oLibPath In ThisApplication.DesignProjectManager.ActiveDesignProject.LibraryPaths
			If (doc.FullFileName Like "*" & oLibPath.Path & "*")
				oDONOTTOUCH = True
			End If	
		Next		 

		Dim fInfo As New FileInfo(doc.FullFileName)
		If (doc.FullFileName Like "*Content*")  Or (doc.IsModifiable = False) Or (fInfo.IsReadOnly)
			oDONOTTOUCH = True	 
		End If
		
		'If Not doc.PropertySets.Item("Design Tracking Properties").Item("PartNumber").Value Like "#-#-#"
		'	oDONOTTOUCH = True
		'End If


		If oDONOTTOUCH = True
		Else
			If Not (doc.FullFileName Like ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath & "*")
				If MsgBox(doc.FullFileName & " not found in workspace!" & vbLf & vbLf & "Continue?", MsgBoxStyle.YesNo) = MsgBoxResult.No
					doc.ReleaseReference
					Continue For
				End If
			End If
		End If

		If oDONOTTOUCH = False
		Try
        		doc.DisplayName = BuildName(doc)
		Catch
			'MsgBox(doc.FullFileName)
		End Try
		End If

		doc.ReleaseReference

    Next
End Sub

Private Function BuildName(doc As Document) As String
    Dim name As String
    Dim designTrackProps As PropertySet
    designTrackProps = doc.PropertySets.Item("Design Tracking Properties")
    
	If designTrackProps.Item("Part Number").Value Is Nothing
		BuildName = doc.DisplayName
	Else
    name = designTrackProps.Item("Part Number").Value & " - [" & _
           designTrackProps.Item("Description").Value & "]"
           
    BuildName = name
	End If
End Function