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

[M_S_ALDT2]

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

[bradeneuropeArthur]

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

[M_S_ALDT2]

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

[bradeneuropeArthur]

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

[M_S_ALDT2]

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

[bradeneuropeArthur]

For me it look like this:

[M_S_ALDT2]

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.

[bradeneuropeArthur]

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

[C_Haines_ENG]

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

[M_S_ALDT2]

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

[C_Haines_ENG]

I saw.