Publicité
l:MACRO/SUP,Al,A2,A3
2:VECT/Z,A3,RET
3:VECT/X,Al,Y,A2
4:TERMAC
5:FROM/X,O,Y,O,Z,l
6:GOTO/X,lO,Y,l5
7:CALL/SUP,2,3,-5
8:GOTO/X,O,Y,O,Z,l
9:GOTO/X,lO,Y,40
lO:CALL/SUP,3,4,-6
ll:GOTO/X,lO,Y,40,Z,l
l2:END
Definition des parametres du Macro SUP
Usinage lineaire jusqu' au point Z-A3
Usinage lineaire jusqu'au point X-Al, Y-A2
Fin du Macro SUP
Debut du programme principal
Deplacement sans usinage
Execution du Macro SUP avec Al-2, A2-3, A3--5
Deplacement sans usinage
Deplacement sans usinage
Execution du Macro SUP avec Al-3, A2-4, A3--6
Deplacement sans usinage
Fin du programme
Publicité
