11-17-2016
12:19 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-17-2016
12:19 AM
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
Succes on your project, and have a nice day
Herm Jan
Kudo's are also appreciated
Succes on your project, and have a nice day
Herm Jan