Editing a text box within a specific sketch within a drawing sheet
I'm about to leave my office for the day, but here's some code I threw together to hopefully get you started in the right direction.
It first checks to see if a sketch by that specified name already exists or not. If not, it lets you know, and asks you if you want to create one. If it is found, it continues to the next block, which searches to see if the TextBox already exists or not. (I searched for it by its Name property. If you didn't give it a name, or only have one TextBox in this sketch, you can replace the sample name I used with the Integer 1. If it is not found, it lets you know, and asks you if you want to create it. The rest you likely already have code for.
Dim oSketches As DrawingSketches = ThisDrawing.Document.ActiveSheet.Sketches
Dim oSketch As DrawingSketch
If oSketches.Item("TitleSketch") IsNot Nothing Then
oSketch = oSketches.Item("TitleSketch")
Else
oAns1 = MsgBox("Sketch not found. Create it?", vbYesNo + vbQuestion, " ")
If oAns1 = vbYes Then
oSketch = oSketches.Add
Else
Exit Sub
End If
End If
Dim oTBox As Inventor.TextBox
If oSketch.TextBoxes.Item("TextBoxName") IsNot Nothing Then
oTBox = oSketch.TextBoxes.Item("TextBoxName")
Else
oAns2 = MsgBox("TextBox not found. Create it?", vbYesNo + vbQuestion, " ")
If oAns2 = vbYes Then
'>>>>> fill in the lines below the way you want them <<<<<
oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(3,4)
oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(5,6)
sText = InputBox("Enter new Title Text","Secondary Title")
oTBox = oSketch.TextBoxes.AddByRectangle(oPoint1,oPoint2,sText)
' oTBox = oSketch.TextBoxes.AddFitted()
End If
End IfWesley Crihfield
(Not an Autodesk Employee)
It this sketch the only sketch on the sheet, or are there multiple sketches?
If there are multiple sketches, is this sketch the only one with a TextBox in it?
If there are multiple sketches that have TextBoxes in them, is this the only sketch that has just one TextBox in it?
Does the sketch that contains the target TextBox contain more than that one TextBox?
If this Sketch & TextBox already exist, what would the TextBox always contain, if anything? (I could use this to check if the TextBox.Text.Contains("Expected Text"), to help identify the right one.)
Is the sketch always going to be on the active sheet, or should this code be looping through all sheets.
If identifying the sketch by it's name won't work for you, how else do you believe the correct sketch can be identified?
Once more of these questions are answered, a more precise code can be crafted to meet your needs.
For now though, here is a more careful and detailed approach to getting the correct (existing) sketch, and correct (existing) textbox, to allow you to edit it.
Dim oSheet As Inventor.Sheet = ThisDrawing.Document.ActiveSheet
If oSheet.Sketches.Count > 0 Then
For Each oSketch As DrawingSketch In oSheet.Sketches
'If oSketch.Name.Contains("TitleSketch") Then ' it's the right one
If oSketch.TextBoxes.Count > 0 Then
For Each oTextBox As Inventor.TextBox In oSketch.TextBoxes
'If the text box may not contain anything, then delete or comment out this next line
If oTextBox.Text.Contains("Some text that is always in it.") Then '<<<< EDIT THIS
oNewText = InputBox("Enter new Title Text.", "Secondary Title.", oTextBox.Text)
'Could check to see if nothing was entered here, before proceeding.
Try
oTextBox.Text = oNewText
Catch oEx As Exception
MsgBox("Error occurred while trying to set the value of the entered text to the TextBox." & vbCrLf & _
oEx.Message & vbCrLf & oEx.StackTrace, vbOKOnly, " ")
End Try
End If
Next
Else
MsgBox("No TextBoxes were found in the sketch named: " & oSketch.Name,vbOKOnly," ")
End If
Next
Else
MsgBox("No sketches were found on the Active Sheet. Exiting.", vbOKOnly, " ")
Return 'or Exit Sub
End IfWesley Crihfield
(Not an Autodesk Employee)
Hmmm... That's odd. It's almost like the it's write protected or reserved for some reason then.
That's a tough nut to crack.
All I can likely do at this point is offer a slightly different route to getting to that point that leaves it open for creating them if their not there.
I also put a few extra notes in there for you to consider.
Dim oSheet As Inventor.Sheet = ThisDrawing.Document.ActiveSheet
Dim oSketch As DrawingSketch
Dim oTextBox As Inventor.TextBox
Dim oExistingText As String
Dim oNewText As String
'set the value of the oSketch variable
If oSheet.Sketches.Count = 0 Then
oNewSketch = MsgBox("No sketches found on Active Sheet. Create one?", vbYesNo + vbQuestion, " ")
If oNewSketch = vbNo Then Return 'or Exit Sub (we don't need to check for vbYes now)
oSketch = oSheet.Sketches.Add
Else
' oSketch = oSheet.Sketches.Item(1) 'since you said it will be the first sketch on the sheet
For Each oSketch In oSheet.Sketches
If oSketch.Name.Contains("Title") Then 'I believe this is Case-Sensitive
Exit For 'it will retain the right sketch as the value of oSketch
End If
Next
End If
'set the value of the oTextBox variable
If oSketch IsNot Nothing Then
If oSketch.TextBoxes.Count = 0 Then
oNewTextBox = MsgBox("No TextBoxes exist in this sketch. Create one?", vbYesNo + vbQuestion, " ")
If oNewTextBox = vbNo Then Return 'or Exit Sub (we don't need to check for vbYes now)
oNewText = InputBox("Enter new Title Text.", "Secondary Title.")
' oTextBox = oSketch.TextBoxes.AddFitted()
'You could call a Function here that checks sheet size & orientation, border configuration, etc
'and returns the needed Point2d coordinates for the rectangle.
'To return more than one object, set your Function's return data type to some sort of collection,
'then add the points to the collection within the Function, and return the collection
'then you may or may not need to redefine those objects as Point2d to use them.
oTextBox = oSketch.TextBoxes.AddByRectangle() '<<<<< FILL THIS IN HOW YOU WANT IT >>>>>>
Else
oTextBox = oSketch.TextBoxes.Item(1) 'since it is going to be the only TextBox in the sketch
If oTextBox.Text = "" Then
oNewText = InputBox("Enter new Title Text.", "Secondary Title.")
Else
oExistingText = oTextBox.Text
' MsgBox("A TextBox was found, and it contains the following:" & vbCrLf & oExistingText, vbOKOnly, " ")
oNewText = InputBox("Enter new Title Text.", "Secondary Title.", oExistingText)
Try
oTextBox.Text = oNewText
' oTextBox.Text.Replace(oTextBox.Text,oNewText)
Catch oEx As Exception
'You could ask the user if they want to just delete and recreate the TextBox, then loop or GoTo
MsgBox("Error occurred while trying to set the value of the entered text to the TextBox." & vbCrLf & _
"The Error Message Is as follows:" & vbCrLf & _
oEx.Message & vbCrLf & vbCrLf & _
"The StackTrace is as follows:" & vbCrLf & _
oEx.StackTrace, vbOKOnly, " ")
End Try
End If
End If
End If
Wesley Crihfield
(Not an Autodesk Employee)
I don't know why I didn't think of this in the first place. You have to put the sketch in 'Edit' mode before it will accept edits.
Use oSketch.Edit
To enter edit mode before trying to change the text, or creating a new TextBox within it. Then use
oSketch.ExitEdit
To exit the sketch edit mode, before exiting the code.
Wesley Crihfield
(Not an Autodesk Employee)
