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

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) :thumbs_up:.

If you want and have time, I would appreciate your Vote(s) for My IDEAS :light_bulb:or you can Explore My CONTRIBUTIONS

Wesley Crihfield

EESignature

(Not an Autodesk Employee)