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

hello Robert,

 

it's almost the same, this should do it

 

 

           Dim oPartDoc As Inventor.PartDocument = ThisApplication.ActiveDocument

        Dim oText As TextBox = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchTextBoxFilter, "Select a text")

        oText.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter
        'oText.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft
        'oText.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextRight

        'oText.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextBaseline
        oText.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
        'oText.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextMiddle
        'oText.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextUpper

 

If this answers your question then please select "Accept as Solution"
Kudo's are also appreciated Smiley Wink

Succes on your project, and have a nice day

Herm Jan