Ilogic display name

[KenVaessen]

I'm using the next Ilogic rule in a part.

'Title instead Of autorename 
Dim oDoc As Document = ThisApplication.ActiveDocument  
oDoc.DisplayName = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description") 
iProperties.Value("Summary", "Title") = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description")

The problem is that he also renames the displayname of the Assembly where this part is in. Can anybody help me to solve this problem?  He must only use this Rule in the part. The assembly must run the same rule but with the properties of the assembly. 

[JelteDeJong · Accepted solution]

Does this work for you.

'Title instead Of autorename 
Dim oDoc As Document = ThisDoc.Document
oDoc.DisplayName = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description") 
iProperties.Value("Summary", "Title") = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description")

[KenVaessen]

Works great! Thanx (Dank u)!

[KenVaessen]

Is it also possible to get the filenumber for a drawing?

oDoc.DisplayName = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description") 
iProperties.Value("Summary", "Title") = iProperties.Value("Project", "Part Number") & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description")

so instead of "Project", "Part Number" I want the filename 

[JelteDeJong]

you can try this:

Dim oDoc As Document = ThisDoc.Document
Dim fullFileName As String = oDoc.fullfilename
Dim fi As IO.FileInfo = New IO.FileInfo(oDoc.FullFileName)       
Dim title As String = fi.Name & "/"& iProperties.Value("Project", "REVISION NUMBER") & " - " & iProperties.Value("Project", "Description") 

oDoc.DisplayName = title
iProperties.Value("Summary", "Title") = title