Text dotazu:
Dobrý den,

upravuji CATscript pro generování rámečku a razítka pomocí "Frame and Title Block" v Sheet Backgroundu. Potřeboval bych však změnit styl písma a použít 2 tloušťky čar. Nevíte někdo jak to přidat do definice funkce?

Function CreateLine( iX1 As Double, iY1 As Double, iX2 As Double, iY2 As Double, iName As String) As Curve2D  

  '-------------------------------------------------------------------------------

  ' Creates a sketcher lines thanks to the current 2D factory Set to the global variable Fact

  ' The created line is reneamed to the given iName

  ' Start point  and End point are created and renamed iName&"_start", iName&"_end"

  '-------------------------------------------------------------------------------

  Set CreateLine = Fact.CreateLine( iX1, iY1, iX2, iY2)

  CreateLine.Name = iName

  Set point=CreateLine.StartPoint 'Create the start point

  point.Name = iName&"_start"

  Set point=CreateLine.EndPoint 'Create the start point

  point.Name = iName&"_end"

End Function

Function CreateTextAF(iCaption As String, iX As Double, iY As Double, iName As String, iAnchorPosition As CatTextAnchorPosition, iFontSize As Double) As DrawingText

  '-------------------------------------------------------------------------------

  'How to create a text

  '-------------------------------------------------------------------------------

  Set CreateTextAF = Texts.Add(iCaption, iX, iY)

  CreateTextAF.Name           = iName

  CreateTextAF.AnchorPosition = iAnchorPosition

  CreateTextAF.SetFontSize      0, 0, iFontSize  

End Function