topic Re: Rename sheets with part number, description, rev & sheet number in Inventor Programming Forum

Rename sheets with part number, description, rev & sheet number

M_S_ALDT2 — Thu, 02 Jan 2025 18:20:26 GMT

Hi all

Wondering if someone could just give me a hand? I wrote a ilogic to rename all my sheets with the part number, description and then Revision, then put it in event triggers so on save it would automatically rename.

I use this when doing drawings that contain multi sheets with the assemblies and parts so can run in to 100s of sheets sometimes. This works very well, the one problem i have is when i run my other ilogic for PDF individual sheets. due to some of the sheets being named the same it will only produce 1 of the sheets missing out the or copying over the same named pdf.

Is there any way i can add an additional part to the name so on sheets that are named the same they have sheet 1, sheet 2 etc?

eg.

10000-00001 PUMP ASSEMBLY - REV A - SHEET 1

10000-00001 PUMP ASSEMBLY - REV A - SHEET 2

10000-00002 PUMP PART 1 - REV A

10000-00003 PUMP PART 2 - REV A

10000-00004 PUMP PART 3 - REV A - SHEET 1

10000-00004 PUMP PART 3 - REV A - SHEET 2

Sub Main
    If TypeOf ThisDoc.Document Is DrawingDocument Then
        Dim dwgDoc As DrawingDocument = ThisDoc.Document
        For Each dwgSheet As Sheet In dwgDoc.Sheets
            If dwgSheet.DrawingViews.Count > 0 Then
                modelFile = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.FullDocumentName
                modelDoc = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument
                prtNumber = modelDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value & "  " & _
                    modelDoc.PropertySets("Design Tracking Properties").Item("Description").Value & " -  REV " & _
					modelDoc.PropertySets("Summary Information").Item("Revision Number").Value
                If Not String.IsNullOrEmpty(prtNumber) Then
                    dwgSheet.Name = prtNumber
                End If
            End If
        Next
    End If
End Sub

Re: Rename sheets with part number, description, rev & sheet number

bradeneuropeArthur — Thu, 02 Jan 2025 18:32:23 GMT

Why not naming it like?:

10000-00001 PUMP ASSEMBLY - REV A - SHEET 1

10000-00001 PUMP ASSEMBLY - REV A - SHEET 2

10000-00002 PUMP PART 1 - REV A - SHEET 1

10000-00003 PUMP PART 2 - REV A - SHEET 1

10000-00004 PUMP PART 3 - REV A - SHEET 1

10000-00004 PUMP PART 3 - REV A - SHEET 2

Re: Rename sheets with part number, description, rev & sheet number

M_S_ALDT2 — Thu, 02 Jan 2025 18:39:18 GMT

That would be acceptable, just saw it as pointless if there was only 1 sheet.

Re: Rename sheets with part number, description, rev & sheet number

bradeneuropeArthur — Thu, 02 Jan 2025 18:51:47 GMT

Is this working for your:

Sub Main
    If TypeOf ThisDoc.Document Is DrawingDocument Then
        Dim dwgDoc As DrawingDocument = ThisDoc.Document
		
        For Each dwgSheet As Sheet In dwgDoc.Sheets

            If dwgSheet.DrawingViews.Count > 0 Then
                modelFile = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.FullDocumentName
                modelDoc = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument
                prtNumber = modelDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value & "  " & _
                    modelDoc.PropertySets("Design Tracking Properties").Item("Description").Value & " -  REV " & _
					modelDoc.PropertySets("Summary Information").Item("Revision Number").Value & _
					"SHEET"
                If Not String.IsNullOrEmpty(prtNumber) Then
                    dwgSheet.Name = prtNumber
                End If
            End If
        Next
    End If
End Sub

Re: Rename sheets with part number, description, rev & sheet number

M_S_ALDT2 — Thu, 02 Jan 2025 19:05:51 GMT

That will just add the word SHEET to the end of every sheet.

Re: Rename sheets with part number, description, rev & sheet number

bradeneuropeArthur — Thu, 02 Jan 2025 19:17:30 GMT

For me it look like this:

Re: Rename sheets with part number, description, rev & sheet number

M_S_ALDT2 — Thu, 02 Jan 2025 19:22:37 GMT

that number after the sheet is not part of the string. so would be there on any sheet that has the same name regardless. run the original ilogic and it will have the :1, :2, etc at the end.

Re: Rename sheets with part number, description, rev & sheet number

bradeneuropeArthur — Thu, 02 Jan 2025 19:30:38 GMT

Because that number (:1 ;2) is out of the name properties this seems to be not possible?

Re: Rename sheets with part number, description, rev & sheet number

C_Haines_ENG — Wed, 08 Jan 2025 02:52:01 GMT

The :1 and :2 are just inventors background naming process so that you can always have duplicate named sheets. If you have 44 sheets the name will end in :44

Re: Rename sheets with part number, description, rev & sheet number

M_S_ALDT2 — Wed, 08 Jan 2025 06:35:14 GMT

That's what I have already said above in response....

Re: Rename sheets with part number, description, rev & sheet number

C_Haines_ENG — Wed, 08 Jan 2025 18:06:17 GMT

I saw.