11-29-2018
07:05 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-29-2018
07:05 AM
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
Mass Override for Each Model State
Custom Glyph Icon for iMates