Radius Linear Zeilen.

Moin,

ich bin es mal wieder mit dem Zeilen. Gefühlt ist das manchmal mein Endgegner.

Manchmal komme ich nicht damit klar, wenn ich einen Radius auf eine Schräge mit zeilen muss.
Die Optionen hier im Forum mit Konturzug benutze ich tatsächlich mit Absicht nicht, weil ich mit denen nicht anstellen kann. Deswegen habe ich mir mal was eigenes zusammen gereimt. Allerdings möchte ich gerne mal hier darüber diskutieren, ob das so richtig ist und oder man etwas verbessern kann.
Grundsätzlich habe ich nämlich das Gefühl, etwas falsch zu machen oder irgendwas zu übersehen. Ihr dürft mich gerne korrigieren!

Gezeilt wird mit einen Innenradiusfr. R1,5. (Kugelfräser)
Die Dicke des Stegs ist 4-0,1.
Das Teil wird im gerade Zustand gefräst, aber dann angestellt. Deswegen wird auch in Z programmiert.

Q1600 = +1 ; Radius
Q1601 = +0 ; Startwinkel
Q1602 = +5 ; Winkelschritt
Q1603 = +90 ; Endwinkel
Q1604 = +0 ; Start Achse
Q1605 = +5.4 ; Ende Achse
Q1606 = +1 ; Sicherheitsabstand Achse
Q1607 = +20 ; Sicherheitsabstand Z
Q1608 = -30 ; A-Achse anstellen
Q1609 = -20 ; C-Achse anstellen
Q1610 = NEG Q1608
Q1611 = NEG Q1609
Q1612 = +5 ; Winkel ausrechnen
Q1613 = TAN Q1612 * Q108 ; X-Versatz ausrechnen
Q1614 = Q1613 / +2 ; X-Versatz / 2
;-------------------------------
; Kontur beschreiben Q1630 - Q1699!
Q1630 = -0.875 ; Achse Z
Q1631 = +0 ; Achse X
Q1632 = +9.548 ; Achse X
Q1633 = -0.038 ; Achse Z
Q1634 = +1.975 ; Achse Y
Q1635 = +70 ; Achse X
CALL LBL 8 ; Radius R1 Zeilen

* - LBL8 Radius R1 zeilen /1
LBL 8
; Berechnung einmalig:
FUNCTION TCPM F CONT AXIS POS PATHCTRL VECTOR REFPNT CENTER-CENTER F10000
Q1700 = Q1604 - ( Q108 + Q1606 ) ; Start + Sicherheitsabstand
Q1701 = Q1605 + ( Q108 + Q1606 ) ; Ende + Sicherheitsabstand
Q1702 = Q1630 - Q1600 ; Kreismittelpunkt Z
Q1703 = Q1631 - Q1614 ; X-Versatz
Q1704 = Q1632 - Q1614 ; X-Versatz
Q1705 = Q1633 - Q1600 ; Kreismittelpunkt Z
Q1706 = Q1634 - Q1600 ; Kreismittelpunkt Y
Q1707 = Q1635 - Q1600 ; Kreismittelpunkt X
;-------------------------------
; Vorpositionieren
L XQ1700 YQ1702 R0 FMAX
L ZQ1607 R0 FMAX
L IAQ1608 ICQ1609 R0 F10000
;-------------------------------
; Berechnung Schleife
LBL "S8"
Q1730 = Q1702 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung Z
Q1731 = Q1705 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung Z
Q1732 = Q1706 + ( ( Q108 + Q1600 ) * SIN Q1601 ) ; Zustellung Y
Q1733 = Q1707 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung X
;-------------------------------
; Kontur (ab Q1730) Gleichlauf (RL)
L YQ1732 ZQ1730 F AUTO
L XQ1703
L XQ1704 ZQ1731
CC X+10.419 Z-10
CP IPA+5 DR+
L X+68
CC X+68 Z-2
CP IPA+90 DR+
L Z-Q1701
;-------------------------------
FN 9: IF Q1601 EQU Q1603 GOTO LBL "E8"
Q1601 = Q1601 + Q1602
FN 12: IF Q1601 LT Q1603 GOTO LBL "W8"
Q1601 = Q1603
FN 9: IF Q1601 EQU Q1603 GOTO LBL "W8"
;-------------------------------
; Berechnung Schleife
LBL "W8"
Q1730 = Q1702 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung Z
Q1731 = Q1705 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung Z
Q1732 = Q1706 + ( ( Q108 + Q1600 ) * SIN Q1601 ) ; Zustellung Y
Q1733 = Q1707 + ( ( Q108 + Q1600 ) * COS Q1601 ) ; Zustellung X
;-------------------------------
; Kontur (Ab Q1730) Gegenlauf (RR)
L XQ1733 YQ1732 F AUTO
L Z-2
CC X+68 Z-2
CP IPA-90 DR-
L X+10.419
CC X+10.419 Z-10
CP IPA-5 DR-
L XQ1703 ZQ1730
L XQ1700
;-------------------------------
FN 9: IF Q1601 EQU Q1603 GOTO LBL "E8"
Q1601 = Q1601 + Q1602
FN 12: IF Q1601 LT Q1603 GOTO LBL "S8"
Q1601 = Q1603
FN 9: IF Q1601 EQU Q1603 GOTO LBL "S8"
;-------------------------------
LBL "E8"
L ZQ1607 R0 FMAX
M140 MB+250 F60000
FUNCTION RESET TCPM
L IAQ1610 ICQ1611 R0 F10000
LBL 0


Zeichnung:
 2025_10_18_10_41_09_552.13.3537_Fuehrung_000_03_PF.TIF.png ( 32.35KB ) Anzahl der Downloads: 24


Ergebnis:
 2025_10_18_10_37_06_VirtualBoxVM.png ( 23.95KB ) Anzahl der Downloads: 31

 2025_10_18_10_38_15_VirtualBoxVM.png ( 31.19KB ) Anzahl der Downloads: 20

 2025_10_18_10_38_58_VirtualBoxVM.png ( 10.51KB ) Anzahl der Downloads: 22

 2025_10_18_10_39_40_VirtualBoxVM.png ( 53.49KB ) Anzahl der Downloads: 19




Wie ihr seht nehme ich an der Schräge 5 Grad ein wenig zu viel weg.
Bin übrigens in dem Beispiel in der 2. Spannung. Die andere Seite ist somit schon fertig.

Der Beitrag wurde von Gizer bearbeitet: 18.10.2025, 09:55 Uhr

Hallo Gizer,

das ist ein Interessantes Programm.
Hierfür kannst du dich auch in der Helpline von Heidenhain melden unter 3103@heidenhain.de
Mit freundlichen Gruessen | Best regards

NC-Trainer
DR. JOHANNES HEIDENHAIN GmbH
Dr.-Johannes-Heidenhain-Str. 5 | 83301 Traunreut, Deutschland
nc-trainer@heidenhain.de

www.heidenhain.de | www.klartext-portal.de | www.tnc-club.de

Der Beitrag wurde von nc-trainer_HEIDENHAIN bearbeitet: 20.11.2025, 07:10 Uhr