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