Sinumerik 840 D sl токарка сдвиг полюса.

[GlassMetal 0]

Доброго времени суток.

Понадобилось подправить программу для алмазной обработки изделий из стекла (не ЧПУшник, сильно не бить) созданную сумрачным картофельным гением. Сейчас всё увидите.

В данном фрагменте предцикловая подготовка и цикл чистовой обработки внутренней полусферы R=2. Понадобилось углубить обработку вглубь детали на 0,2 мм, т.е. сделать эллипс H0,2+R2, чтобы в дальнейшем заглублять на нужную величину.

Игры с G111 -> G110 не дают результата, недосмотрел что то.

Буду благодарен развернутому ответу.

 

N10 DEF REAL Prbeg=2,SDIS=8,LdLDet=56.7,LRObDet=2,UgDet=5.4167,LPShist
N20 DEF REAL LTShern=0.02,LTShist=0.01,LPSum=1.1
N30 DEF REAL LTProx,LperT=0.25,UgPerebeg=5
N40 DEF REAL FScher, FSchist,FSchistPP
N50 DEF REAL DLTVRZ,VXSHL,RezROUND,DLTVRZP,KX,KZ,KX1,KX2,RKrg
N60 DEF REAL KZK,KXK
N70 DEF INT ITN,UPRAV,NomKrg,TPerOp,UslVrZ=1
N80 DEF STRING[50] FAZASTR
N90 
N100 DEFINE ProxInt AS REPEAT LSTProxInt LENDProxInt
N110 DEFINE LROUND AS REPEAT LSTROUND LENDROUND
N120 DEFINE CYCSHLIF AS REPEAT LSTARTCYCSHLIF LENDCYCSHLIF
N130 DEFINE CYCSFERAKRUG AS REPEAT LSTARTCYCSFERAKRUG LENDCYCSFERAKRUG
N140 

 

N1650 T5
N1660 G506
N1670 MIRROR Z0
N1680 M3 S500;vkljuchit' vraschenie detali
N1690 M2=3 S2=18000;vkljuchit' vraschenie instrumenta 
N1700 NomKrg=5
N1710 RKrg=$TC_DP6[NomKrg,1]
N1720 ;opredelit' parametry dlja tekuschego perehoda
N1730 ;-----------------------------
N1740 LRObDet=2 Prbeg=2 
N1750 LTShist=0.25 FSchist=0.4 FSchistPP=0.3
N1760 ;---------------------------
N1770 M7
N1780 
N1790 KZK=LRObDet-RKrg
N1800 KZ=0
N1810 ;ust max pripusk
N1820 DLTVRZP=LRObDet-RKrg; -LPShist
N1830 FAZASTR="CHISTOVAJ FAZA POLUSFERA: "
N1840 VXSHL=FSchist LTProx=LTShist
N1850 ProxInt;vychislenie chisla prohodov
N1860 ;novaj sxema
N1870 G1 F500 G94 Z=RKrg+Prbeg
N1880 X0
N1890 G1 Z=KZ F=VXSHL*50
N1900 
N1910 CYCSFERAKRUG
N1920 STOPRE

 

N2820 ;CYCSFERAKRUG
N2830 LSTARTCYCSFERAKRUG:
N2840  REPEAT
N2850   IF (ITN > 0)
N2860    MSG(FAZASTR<<"OSTALOS "<<ITN<<" CYCLOV")
N2870 
N2880    IF(ITN==1)
N2890     KZ=KZK
N2900     VXSHL=FSchistPP
N2910    ELSE
N2920     KZ=KZ+DLTVRZ
N2930    ENDIF
N2940    G1 Z=KZ F=VXSHL*50
N2950    ;duga ekvidistanty
N2960    G111 X0 Z=0;KZ
N2970    G2 AP=180 RP=ABS(KZ) F=VXSHL
N2980    G1 Z=KZ F=VXSHL*50
N2990 
N3000   ; IF(TPerOp==1);chernovaj obrabotka
N3010   ;  G1 X=0 F500
N3020   ; ELSE
N3030   ;  G3 AP=180 RP=ABS(KZ)
N3040   ; ENDIF
N3050 
N3060    STOPRE
N3070    ITN=ITN-1
N3080   ENDIF
N3090  UNTIL (ITN==0)
N3100 MSG("")
N3110 LENDCYCSFERAKRUG: