habe ich in CPL sehr wenig geschreiben
Kreistasche helix/Gewindefraesen programmieren wir durch Satzwiederholung..
z.B. N .. G17 G2 X.. Y.. Z.. I.. J.. F.. S.. M.. L4 (5 Gewindegaenge)
und Konturfraesen/Planfraesen durch einfaches UP
ein Beispiel des Hauptprogramms
(DFS,P13,HAUPTPROGRAMM,RWED)
T0 S2000
G17 G53 G90
D1 H0 F1000 M3
1 CALL 25[2,10,0,4,50,0]
M30
ein Beispiel der Kontur
(DFS,P14,KONTUR,RWED)
1 EIL=P1 : VOR=P2
G0 G90 X0 Y0
G0 Z[EIL]
G1 Z[VOR] F..
G41 X.. Y.. F..
..
G40 X.. Y..
G0 Z[EIL]
M30
UP "Konturwiederholung"
(DFS,P25,KONTURWIEDERHOLUNG,RWED)
1 BEVZ=ABS(P1) : HLFR=ABS(P2) : STVY=P3 : HLPR=ABS(P4) : BEVY=P5 : ATVY=ABS(P6)
2 IF BEVY<STVY THEN BEVY=STVY+BEVZ ENDIF
G0 Z[BEVY]
3 KOHL=STVY-HLFR : AKVY=STVY
4 .WIED
5 VYNA=AKVY+BEVZ : AKVY=AKVY-HLPR
6 IF KOHL>=AKVY THEN AKVY=KOHL ENDIF
7 CALL 14[VYNA,AKVY]
8 IF ATVY=1 THEN
G0 Z[BEVY]
8 ENDIF
9 IF KOHL<AKVY THEN GOTO .WIED ENDIF
G0 Z[BEVY]
M30
wenigstens so
Angehängte Datei(en)
UP25.JPG ( 13.11KB )
Anzahl der Downloads: 33