06-21-2021
11:46 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-21-2021
11:46 AM
Here's something you can try:
Sub Main
Dim oDoc As DrawingDocument = ThisDoc.Document
oModel = ThisDoc.ModelDocument
Dim oSheets As Sheets
Dim oSheet As Sheet = oDoc.Sheets
Dim oViews As DrawingViews
Dim oView As DrawingView
If MsgBox("All Sheets [Yes] Or ActiveSheet [No]?", vbYesNo + vbQuestion,"") = vbYes Then
For Each oSheet In oSheets
oViews = oSheet.DrawingViews
UpdateLabels(oViews)
Next
Else
oSheet = oDoc.ActiveSheet
oViews = oSheet.DrawingViews
UpdateLabels(oViews)
End If
End Sub
Sub UpdateLabels(oVws As DrawingViews)
For Each oView As DrawingView In oVws
If oView.ViewType = 10501 Then
oView.ShowLabel = True
oView.Label.FormattedText = String1 & String2 & "<Br/>" & String4 &"<Br/>" & String3
End If
Next
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS)
.
If you want and have time, I would appreciate your Vote(s) for My IDEAS
or you can Explore My CONTRIBUTIONS
Wesley Crihfield
(Not an Autodesk Employee)