11-17-2016
01:50 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-17-2016
01:50 AM
Hi Herm Jan,
Thanks for the help.
I have now what I like to have:
SyntaxEditor Code Snippet
Dim oDoc As PartDocument = ThisDoc.Document Dim oDef As SheetMetalComponentDefinition = oDoc.ComponentDefinition Dim oSK As Sketch = oDef.FlatPattern.Sketches(1) TempPartNo = Replace(iProperties.Value("Project", "Part Number"), ".", "") TempPartNo = "<StyleOverride Font='ISOCP_IV25' FontSize='0.5' Bold='False' Underline='False'>" & TempPartNo & "</StyleOverride>" oSK.TextBoxes.Item(1).HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft oSK.TextBoxes.Item(1).FormattedText = TempPartNo '.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter '.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft '.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextRight '.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextBaseline '.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower '.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextMiddle '.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextUpper