Программа шлифовки

[Fanis 18i-MC 1]

Здравствуйте уважаемые коллеги и снова мне нужна ваша помощь, не как не могу задать в программе правку инструмента после черновой обработки, суть проблемы ниже.

Программа:

PROC SHLIFOVKA

DEF INT KAKO

KAKO=R5

SETINT(8) PRIO=1 UL608

IF (KOLICHDET > 0)

IF ((SCHETCHIK MOD KOLICHDET) == 0)

PRAVKA

ENDIF

ENDIF

SUPA

G18

DIAMON

SOFT

TRANS X=KORX/2 Z=KORZ+R20

;prvo se brusi precnik ako treba

IF ((KAKO B_AND 01) <> 0 )

G0 G54 Z=R51+PODHOD X=R10-PODHOD

UL100(R10,R11,R19,R14,R21,R22,R24,R25,R26,R15)

ELSE

;ako se ne brusi precnik a brusi prvo celo - prilaz prvom celu

IF ((KAKO B_AND 2)<>0)

G0 G54 Z=R51+PODHOD X=R50

ELSE

IF ((KAKO B_AND 4) <> 0)

G0 G54 Z=R71+PODHOD X=R70

ENDIF

ENDIF

ENDIF

IF ((KAKO B_AND 2) <> 0)

UL300(R50,R51,R60,R52,R55,R57,R56,R58,R59,R61)

ELSE

IF ((KAKO B_AND 4) <> 0)

UL300(R70,R71,R80,R72,R75,R77,R76,R78,R79,R81)

ENDIF

ENDIF

G0 G54 Z=R51+PODHOD F=RABHOD M11

TRANS

G53 G0 Z0 X0 M5

IF (KAKO>5)

Msg("$66006")

STOPRE

M50

M00

M51

TRANS X=KORX/2 Z=KORZ+R20

G0 G54 Z=R71+PODHOD X=R70

UL300(R70,R71,R80,R72,R75,R77,R76,R78,R79,R81)

G0 G54 Z=R71+PODHOD F=RABHOD M11

TRANS

G53 G0 Z0 X0 M5

ENDIF

SCHETCHIK=SCHETCHIK+1

M02

Цикл UL100 обрабатывает внутренний диаметр

PROC UL100(REAL PREC, REAL POZZ,REAL DUZZ,REAL BROB, REAL DODU, REAL DODF, REAL BRZU, REAL BRZF, REAL IZBR, REAL BRZZ)

G18

DIAMON

SOFT

M=TEST

STOPRE

IF (TEST<11)

M3 S=BROB

ENDIF

;M=TEST

;Zauzimanje pozicije pre starta

SETINT(8) PRIO=1 UL608

G54 G1 Z=POZZ F=RABHOD

;STOPRE

;IF (TEST<11)

;M3 S=BROB

;ENDIF

M90

WHEN ($A_IN[4]==1) DO DELDTG

X=PREC-DODU M=TEST

STOPRE

If ( (DUZZ<>0) AND (BRZZ<>0) )

FA[Z]=BRZZ

OSP1[Z]=POZZ

OSP2[Z]=POZZ+DUZZ

OST1[Z]=-2 OST2[Z]=-2

OSNSC[Z]=0

OSCTRL[Z]=(3,16+32+64)

OS[Z]=1

Endif

msg("$66001")

X=PREC-DODF F=BRZU ;grubo brusenje – черновая обработка

msg("$66003")

X=PREC F=BRZF ;fino brusenje – чистовая обработка

msg("$66004")

G04 F=IZBR ; izbrusavanje - выхаживание

MSG("")

G01 X=PREC-PODHOD F=RABHOD ; povratak na pocetak

WAITP(Z)

CLRINT(8)

M17

Задать в цикле я правку не могу и поэтому вставляю ее в программу шлифовки, но в цикле обрабатывается и черновая и чистовая обработка

А правка мне нужна после черновой обработки, если сталкивались, подскажите.

[Fanis 18i-MC 1]

С проблемой разобрался, подскажу для тех, кто то же столкнется

1. Запрограммировать в цикле правку не возможно ну то есть возможно но первоначально будет выполняться цикл а не правка.

2. Лучшим решением будет создание дополнительного цикла, а правку написать между этими циклами.

3. Но в первых циклах финишную шлифовку и выхаживание сделать не активными

P.S.

Для наглядности выставляю программу

PROC SHLIFOVKA

DEF INT KAKO

KAKO=R5

SETINT(8) PRIO=1 UL608

IF (KOLICHDET > 0)

IF ((SCHETCHIK MOD KOLICHDET) == 0)

PRAVKA

ENDIF

ENDIF

SUPA

G18

DIAMON

SOFT

TRANS X=KORX/2 Z=KORZ+R20

;prvo se brusi precnik ako treba

IF ((KAKO B_AND 01) <> 0 )

G0 G54 Z=R51+PODHOD X=R10-PODHOD

UL100(R10,R11,R19,R14,R21,R22,R24,R25,R26,R15)

ELSE

;ako se ne brusi precnik a brusi prvo celo - prilaz prvom celu

IF ((KAKO B_AND 2)<>0)

G0 G54 Z=R51+PODHOD X=R50

ELSE

IF ((KAKO B_AND 4) <> 0)

G0 G54 Z=R71+PODHOD X=R70

ENDIF

ENDIF

ENDIF

IF ((KAKO B_AND 2) <> 0)

G0 G54 Z=R51+PODHOD X=R10-PODHOD

UL300(R50,R51,R60,R52,R55,R57,R56,R58,R59,R61)

PRAVKA

ELSE

IF ((KAKO B_AND 4) <> 0)

UL300(R70,R71,R80,R72,R75,R77,R76,R78,R79,R81)

ENDIF

ENDIF

IF ((KAKO B_AND 01) <> 0 )

G0 G54 Z=R51+PODHOD X=R10-PODHOD

UL400(R10,R11,R19,R14,R21,R22,R24,R25,R26,R15)

ELSE

;ako se ne brusi precnik a brusi prvo celo - prilaz prvom celu

IF ((KAKO B_AND 2)<>0)

G0 G54 Z=R51+PODHOD X=R50

ELSE

IF ((KAKO B_AND 4) <> 0)

G0 G54 Z=R71+PODHOD X=R70

ENDIF

ENDIF

ENDIF

IF ((KAKO B_AND 2) <> 0 )

G0 G54 Z=R51+PODHOD X=R10-PODHOD

UL450(R50,R51,R60,R52,R55,R57,R56,R58,R59,R61)

ELSE

IF ((KAKO B_AND 4) <> 0)

U450(R70,R71,R80,R72,R75,R77,R76,R78,R79,R81)

ENDIF

ENDIF

G0 G54 Z=R51+PODHOD F=RABHOD M11

TRANS

G53 G0 Z0 X0 M5

IF (KAKO>5)

Msg("$66006")

STOPRE

M50

M00

M51

TRANS X=KORX/2 Z=KORZ+R20

G0 G54 Z=R71+PODHOD X=R70

UL300(R70,R71,R80,R72,R75,R77,R76,R78,R79,R81)

G0 G54 Z=R71+PODHOD F=RABHOD M11

TRANS

G53 G0 Z0 X0 M5

ENDIF

SCHETCHIK=SCHETCHIK+1

M02