Signiertext (mit Signierwerkzeug) erzeugen

Wenn Sie mit dieser Funktion Zahlenwerte aus Real- oder Integervariablen ausgeben möchten, müssen diese zuerst in Text konvertiert werden. Verwenden Sie dazu die Funktion Zahl in Text (String) umwandeln. Siehe auch: Zahl in Text (String) umwandeln.

C     Aufruf:

C     CALL PVB411 (RX,RY,RH,ANG,WDD,TEXT,IREF,IMIR,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     RX,RY : Koordinate für den Textreferenzpunkt

C     RH    : Texthöhe

C     ANG   : Winkel des Textes

C     WDD   : Durchmesser des Signierwerkzeugs

C     TEXT  : Text, der signiert werden soll

C     IREF  : Referenzpunkt für den Text

C              0 = zentriert

C              1 = rechts oben

C              2 = links oben

C              3 = lnks unten

C              4 = rechts unten

C             12 = Referenzpunkt Oberkante mittig

C             23 = Referenzpunkt linke Kante mittig

C             34 = Referenzpunkt Unterkante mittig

C             41 = Referenzpunkt rechte Kante mittig

C     IMIR  : Text spiegeln

C              0 = Text wird nicht gespiegelt

C              1 = Text wird in Y-Richtung gespiegelt

C              2 = Text wird in X-Richtung gespiegelt

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     HINWEIS: Die Textvariable TEXT muss im Programmkopf deklariert werden!

C     CHARACTER *80 TEXT

C     

C     Beispiel:

C     ---------------------

C     Signiertext erstellen

C     ---------------------

      RX = 100.0

      RY = 100.0

      RH = 15.0

      ANG = 0.0

      WDD = 1.11

      IREF = 3

      IMIR = 0

      TEXT = 'ABC123'

      CALL PVB411 (RX,RY,RH,ANG,WDD,TEXT,IREF,IMIR,IRET)