Stege automatisch setzen mit Normwerkzeuge als A3F und Microtool
Stege automatisch setzen mit Standardwerkzeug
Zum Erzeugen von Nibbellinien mit Stegen hilft folgende Routine:
C XS,YS : Startpunkt der Linie
C XE,YE : Endpunkt der Linie
C IDN : Identnummer des Normwerkzeugs
C IDW : Identnummer des Microstegwerkzeugs
C IRL : Seite der Bearbeitung (-1=links, 1=rechts)
C IAW : Anzahl der Stege in der Mitte der Linie
C WEB : Stegbreite in der Mitte der Linie
C OVS : Überstand am Anfang der Linie
C OVE : Überstand am Ende der Linie
C CDS : Abstand zum Steg am Anfang der Linie
C CDE : Abstand zum Steg am Ende der Linie
CALL PVB414 (XS,YS,XE,YE,IDN,IDW,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
Die Variable IDN und IDW ist vom Typ String und muss daher im Programmkopf deklariert werden:
CHARACTER*80 IDN
CHARACTER*80 IDW
Wenn auf einer Strecke nur ein Steg gesetzt werden soll, muss der Wert für Abstand am Anfang auf das entsprechende Maß für die Mitte gesetzt werden. Die Routine setzt einen einzelnen Steg nicht automatisch mittig.
