Set lugs automatically as "Cutout with 3 degrees of freedom"

The PVB414 routine can be used to automatically generate a punched section with lugs. This works with standard tools (rectangular) as well as with special tools such as trapezium.

C XS,YS : Starting point of the line

C XE,YE : End point of the line

C   IDN : ID number of the standard tool

C   IDW : ID number of the microlug tool

C   IRL : Side of machining (-1=left, 1=right)

C   IAW : Number of lugs in the middle of the line

C   WEB : Lug width in the middle of the line

C   OVS : Protrusion at the beginning of the line

C   OVE : Protrusion at the end of the line

C   CDS : Distance to the lug at the beginning of the line

C   CDE : Distance to the lug at the end of the line

      CALL PVB414 (XS,YS,XE,YE,IDN,IDW,IRL,

     *IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)

NOTICE! The variables "IDN" and "IDW" are of the string type and must therefore be declared in the program header.

      CHARACTER*80 IDN

      CHARACTER*80 IDW

NOTICE! If only 1 lug is to be set on a section, the value for "Distance at start" must be set to the corresponding dimension for the middle. The routine does not automatically centre a single lug.