Set microjoints automatically with standard tools such as A3F and Microtool
Set microjoints automatically with standard tool
To create nibble lines with microjoints, the following routine helps:
C XS,YS : Starting point of the line
C XE,YE : End point of the line
C IDN : Ident number of the standard tool
C IDW : Ident number of the microjoint tool
C IRL : Side of machining (-1=left, 1=right)
C IAW : Number of microjoints in the middle of the line
C WEB : Microjoint width in the middle of the line
C OVS : Overhang at the beginning of the line
C OVE : Overhang at the end of the line
C CDS : Distance to the microjoint at the beginning of the line
C CDE : Distance to the microjoint at the end of the line
CALL PVB414 (XS,YS,XE,YE,IDN,IDW,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
The variables IDN and IDW are string variables and therefore must be declared in the program header:
CHARACTER*80 IDN
CHARACTER*80 IDW
If only one microjoint is to be set on a path, the value for Distance at the beginning must be set to the corresponding dimension for the centre. The routine does not automatically centre a single microjoint.
