- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
I've got a head scratcher.
I have an emboss feature with 10 text boxes in the sketch. I want to be able to link the font size of all of the text boxes to a control parameter. I've got the code below but it doesn't work and doesn't seem to update the emboss feature either.
Dim oPartDoc As PartDocument
oPartDoc = ThisDoc.Document
Dim oCompDef As ComponentDefinition
oCompDef = oPartDoc.ComponentDefinition
Dim oSketchText As Inventor.TextBox
Dim oSketch As PlanarSketch
Dim oFontSize = text_height / 10
For Each oSketch In oCompDef.Sketches
For Each oSketchText In oSketch.TextBoxes
oSketchText.FormattedText = "<StyleOverride FontSize = '" & oFontSize & "'>" & "</StyleOverride>"
Next
Next
iLogicVb.UpdateWhenDone = True
Any help would be gratefully received.
Solved! Go to Solution.