Set microjoints automatically with standard tool
Set microjoints automatically with Microtool
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 : Tool identification number
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 PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
The variable IDN is a string variable and therefore must be declared in the program header:
CHARACTER*80 IDN
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.
The following code generates the output below:
IDN = "MICROTOOL_76X5"
IRL = -1
IAW = 3
WEB = 10.0
OVS = 5.0
OVE = 5.0
CDS = 100.0
CDE = 100.0
C line left
XS = 0.0
YS = 0.0
XE = 0.0
YE = YMAIN
CALL PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
C line above
XS = 0.0
YS = YMAIN
XE = XMAIN
YE = YMAIN
CALL PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
C line right
XS = XMAIN
YS = YMAIN
XE = XMAIN
YE = 0.0
CALL PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
C line below
XS = XMAIN
YS = 0.0
XE = 0.0
YE = 0.0
CALL PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
