11-30-2018
05:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-30-2018
05:58 AM
Try this for Revision Number...
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 = "words to prepend here" & docM.PropertySets.Item("Inventor Summary Information").Item("Revision Number").Value & "words to apend here" Next
Sorry I don't see a marked up drawing... screen shots might help me understand what you want better. I was under the impression you would want the iProperty from the model because it went with the only part on that sheet.
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