Publicité
Création de sous programmes appelés par fonctions G
IF
[.IBX2(IY)] = 0 THEN [IY] = [IY]-3
ENDI
(et sur axe outil )
IF [.IBX2(IZ)] = 0 THEN [IZ] = [IZ]+3 [LZ]=[LZ]-3
IF [.IBX2(IZ)] = 0 THEN E.880
ENDI
ENDI
(mettre dans 'ER= la derniere cote Z, retour si ER n'a pas ete programme)
IF [.IBE1(18)] = 0 THEN 'ER = [..IRX(IZ)]
ELSE [E]=[IZ]-1 * 1000+70007
(Si programmation au diametre, correction de 'ER)
IF E[E]=1 THEN 'ER='ER/2
ENDI
ENDI
[LZ]=[LZ]+26 ( LZ pointe les variables L926..L951 )
(sur 1er bloc initialiser la cote de fond de trou)
IF [..BG80] = 1 THEN L[LZ]=[..IRX(IZ)]
ENDI
(si programmee memoriser la nouvelle cote de fond de trou )
IF [.IBX(IZ)] = 1 THEN L[LZ] = [.IRX(IZ)]
ENDI
(test si orientation compatible avec sens usinage)
IF 'ER <> L[LZ] THEN
IF 'ER>L[LZ] AND [.RDX]<0 THEN E.890
ENDI
IF 'ER<L[LZ] AND [.RDX]>0 THEN E.890
ENDI
ENDI
(memoriser le type de positionnement)
[G0/1]=3 * [.BG03][G0/1]=2 * [.BG02]+[.BG01]+[G0/1] [G90/1]=90+[.BG91]
(memoriser vitesse , tempo )
[RF]=[.RF]
(si ED programme on le prend en compte , et si interpo lineaire )
(on force positionnement des axes deja programmes precedemment)
IF [.IBE1(4)] = 1 THEN EDL929
BCLR [.IBE1(4)]
IF [G0/1] < 2 THEN G91 [cote]=0
IF [.IBX1(IX)] = 1 THEN [I]=[IX]+10 G77 H10080 N[I] N[I]
ENDI
IF [.IBX1(IY)] = 1 THEN [I]=[IY]+10 G77 H10080 N[I] N[I]
ENDI
ENDI
ENDI
(memoriser presence puis invalider l'axe d'outil)
[I]=[.IBX(IZ)]+[.IBX(IX)]+[.IBX(IY)] G90
BCLR [.IBX(IZ)]
5 - 15
fr-938872/2
5
Publicité
