Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
clutsa
in reply to: farmerstain

It would look something like this.

Dim app As Application = ThisApplication
Dim doc As DrawingDocument = app.ActiveDocument
Dim oSheet As Sheet
Dim oView As DrawingView 
Dim docM As Document
For Each oSheet In doc.Sheets
	oView = oSheet.DrawingViews(1)
	docM = oView.ReferencedDocumentDescriptor.ReferencedDocument
	oSheet.Name = docM.PropertySets.Item("Design Tracking Properties").Item("Part Property Revision Id").Value 'I couldn't find "Version Number" in "Project" but I'm in 2018
	'oSheet.Name = docM.PropertySets.Item("User Defined Properties").Item("Version Number").Value 'This would be for a custom property
Next
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State

Custom Glyph Icon for iMates