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: Curtis_Waguespack

Looks like you have to edit the titleblock drawing Definition... something like this

Dim dwgDoc2 As DrawingDocument = ThisDoc.Document
	Dim oPromptEntry As String
	Dim actSheet As Sheet = ThisApplication.ActiveDocument.ActiveSheet
    ActiveSheet = ThisDrawing.Sheet(actSheet.Name)
    Dim oTitleBlock As TitleBlock = actSheet.TitleBlock
	Dim oBlockSketch As DrawingSketch
	oPromptEntry = dwgDoc2.ActiveSheet.Name
	Call oTitleBlock.Definition.Edit(oBlockSketch)
    oTextBoxes=oBlockSketch.TextBoxes
    For Each oTextBox In oTextBoxes
			Select oTextBox.Text
				Case "Unit Address" 
					MessageBox.Show("Phase1.")
					MessageBox.Show (oPromptEntry)
					oOrgText = oTextBox.FormattedText
                                        oNewText = Replace(oOrgText, "Unit Address", oPromptEntry)
                                        oTextBox.FormattedText = oNewText
					MessageBox.Show("Phase2.")
			        End Select
    Next
	oTitleBlock.Definition.ExitEdit
	MessageBox.Show("Phase3.") 

It needs cleaned up a bit but you seem able

If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State

Custom Glyph Icon for iMates