Zitat von fräser4711: "ich will das Makro bei mir gar nicht verändern, weil es ja schon über 15 Jahre ohne probleme laüft"
Hi all, die Diskussionen über das Teilkreismakro finde ich teilweise recht amüsant, besonders darum, weil ständig jemand versucht das Makro von "fräser4711" zu verändern und zu verbessern mit dem Erfolg, dass es entweder danach gar nicht mehr läuft oder nach der Änderung auch nicht wesentlich besser funzt.
Aus diesem Grund und weil das so lustig ist habe ich mir gedacht, dass ich es genauso mache und auch mal meine eigene Variante eines Teilkreismakros hier rein stelle.
Habe mit diesem Programm 7 Jahre gearbeitet, übernehme aber trotzdem keine Garantie ;-)
Vielleicht kann es jemand gebrauchen und wünscht mir später "AllesGute", wenn es funzt

)
Vorab erst mal ein Einwurf: Ich finde es einfacher, wenn man ganz normal einen Bohrzyklus programmiert und erst danach das Teilkreismakro aufruft, in dem nichts weiter steht als die Positionen XY. Das hat den Vorteil, dass man nach dem Bohrzyklusaufruf verschieden Teilkreismakros und normale Bohrpositionen kombinieren kann.
Funktionen:
-Es kann mit Anfangswinkel und Fortschaltwinkel oder Endwinkel gearbeitet werden.
-Mit nur einem Teilkreisaufruf kann ein Teilkreis bis zu 7 mal wiederholt werden (Anwendung: Wenn man z.B. mehrere Spannfutter aufgebaut hat.)
-Wenn vor dem Zyklus G91 aktiv ist bezieht sich "XY" inkremental auf die Position des Werkzeugs vor dem Teilkreisaufruf.
-G65P9012 R(Radius) H(Anzahl der Bohr.)
XY(Mittelpunkt des Teilkreis / absolut oder inkremental)
A(Anfangswinkel) B(Fortschaltwinkel) C(Endwinkel)
I(Wiederholung anderer Nullpunkt)
-R immer definieren
-wenn H nicht definiert wird --- H=1
-wenn A nicht definiert wird --- A=0
-wenn B und C nicht definiert werden --- Bohrungen auf 360Grad verteilt
-niemals B und C bestimmen (Fehlermeldung wird ausgegeben)
-
I kann bis zu 6mal bestimmt werden
Programmbeispiel für 3 Teile die den gleichen Lochkreis haben:
-auf 3 Teilkreisen wird nacheinander gebohrt Nullp. G54, G55 und G56
G54
G81R2.Z-10.L0 (L0 bzw. K0 bedeutet an dieser Position nicht bohren)
G65P9012 R10. H4 I55 I56
Viel Spaß!
Gruß Nisse.
%
O9012(BOHR. AUF TEILKR.)
IF[#18EQ#0]GOTO50
IF[#22NE#0]GOTO50
IF[#2NE#0]GOTO1
GOTO2
N1IF[#3NE#0]GOTO50
N2#28=4
#29=#4003
IF[#11NE#0]GOTO10
#11=1
N10IF[#2NE#0]GOTO30
IF[#3NE#0]GOTO20
#2=360/#11
GOTO30
N20#2=[#3-#1]/[#11-1]
N30DO1
#32=0
WHILE[#11GT#32]DO2
#33=#1+#2*#32
#26=#24+#18*COS[#33]
#27=#25+#18*SIN[#33]
X[#26-#30]Y[#27-#31]
IF[#29EQ90]GOTO40
#30=#26
#31=#27
N40#32=#32+1
END2
IF[#[#28]EQ#0]GOTO60
G#[#28]
#30=#30-#24
#31=#31-#25
#28=#28+3
END1
N50#3000=175(G110-R-H/X/Y/A/B ODER C/0-6*I)
N60M99
%