Placer automatiquement des ponts avec un outil standard
Placer automatiquement des ponts avec Microtool
La routine suivante permet de créer des lignes de grignotage avec des ponts :
C XS,YS : point de départ de la ligne
C XE,YE : point final de la ligne
C IDN : numéro d'identification de l’outil
C IRL : côté de l’usinage (-1=à gauche, 1=à droite)
C IAW : nombre de ponts au milieu de la ligne
C WEB : largeur du pont au milieu de la ligne
C OVS : débord au début de la ligne
C OVE : débord à la fin de la ligne
C CDS : distance par rapport au pont au début de la ligne
C CDE : distance par rapport au pont à la fin de la ligne
CALL PVB413 (XS,YS,XE,YE,IDN,IRL,
* IAW,WEB,OVS,OVE,CDS,CDE,IC,IRET)
La variable IDN est de type chaîne de caractères et doit donc être déclarée dans l'en-tête du programme :
CHARACTER*80 IDN
Si un seul pont doit être placé sur une trajectoire, la valeur « Distance au départ » doit être fixée à la dimension correspondante pour le centre. La routine ne centre pas automatiquement un pont unique.
Le code suivant génère la sortie ci-dessous :
IDN = "MICROTOOL_76X5"
IRL = -1
IAW = 3
WEB = 10.0
OVS = 5.0
OVE = 5.0
CDS = 100.0
CDE = 100.0
C ligne gauche
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 ligne au-dessus
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 ligne droite
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 ligne en bas
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)
