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

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

 

Robert

If you find this reply helpful ? It would be nice if you use the Accept as Solution or Kudos button below.