Change Titleblock Number per page without using Prompted Entry

[C_Haines_ENG]

I am trying to have each page have a semi unique number. Essentially I want the TitleBlock to include a number that will increase linearly per page but sometimes will duplicate. So: 1, 2, 3, 3, 4, 5, 5, etc.

I would like to achieve this without using prompted entry. 

[dalton98 · Accepted solution]

I think your best bet would be the 'Sheet Revision Number'. You can add it to your title block under sheet properties.

Heres an example that checks if the previous sheet's drawing view matches the current sheet's

Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim j As Integer = 1
On error resume next
For i = 1 To oDoc.Sheets.Count
	If oDoc.Sheets(i).DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument.DisplayName = _
	oDoc.Sheets(i - 1).DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument.DisplayName
		oDoc.Sheets.Item(i).Revision = j
	Else
		j = j + 1
		oDoc.Sheets.Item(i).Revision = j
	End If
Next 

[C_Haines_ENG]

I was also looking into using "Stock Number" because the attached model directly correlates to the model. However it seems like your code just re-writes all pages to revision 1. 

[dalton98]

If it does that then it mean the first view on each sheet is the same as the previous sheet. I would need more info on what a duplicate sheet means.

Stock number is referenced to the part not the individual sheet, so that would be difficult to manage.

[C_Haines_ENG]

A duplicate numbered sheet happens when the same model is on both Sheets.

For example if I have 3 parts, PART_A, PART_B, PART_C on the layout shown below

Sheet 1 - PART_A (Page REV 1)

Sheet 2 - PART_B (PAGE REV 2)

Sheet 3 - PART_B (PAGE REV 2)

Sheet 4 - PART_C (PAGE REV 3)

Is that possible to do?

[dalton98]

Hmm thats what it does for me. Is the 'DisplayName' the same for each of your parts? Try changing 'DisplayName' to "FullFileName"

[C_Haines_ENG]

There we go that works.

Thank you!