hallo, fanuc gemeinde
ich habe hier einige beiträge zur makro progammierung gelesen, ist wirklich interessant. ich habe ein rechtecktaschen makro das mir leider keine frk verrechnet und eckenradius kann ich auch nicht angeben.
geht das überhaupt
. wenn ihr mir da weiter helfen könntet
.
ich arbeite an einer 11m.
O9034
IF[#4010EQ99]GOTO5
#19=#5003
GOTO10
N5#19=#18
N10#29=2000+#7
#29=#[#29]
#6#6+0
IF[#6NE0]GOTO11
#6=#29*1
N11#6=ABS[#6]
(FIN.-N15)
#1=#1+0
#2=#2+0
N13#28=#4
IF[#1EQ0]GOTO14
#4=#4-#1
#5=#5-1
N14#27=#26
IF[#2EQ0]GOTO15
#26=#26+#2
N15#20=#4-#29
#21=#24+#20
#20=#24-#20
#22=#5-#29
#23=#25+#22
#22=#25-#22
N20G17G90G00X#24Y#25
Z#18
#13=1#14=9999.
WHILE[#14GT#26]DO1
#14=#18-#17*#13
IF[#14GT#26]GOTO25
#14=#26
(BOTTOM.FIN.-N25)
#26=#27
N25G01Z#14F8
N30#11=[#21-#20]/#6/2
#12=[#23-#22]/#6/2
IF[#11LT#12]GOTO31
#10=FIX[#12]
GOTO32
N31#10=FIX[#11]
N32(TOTAL)#20=#24-#6*#11
#11=#11-#10
#12=#12-#10
#30=9999.
WHILE[#30GT#20DO02
M01
#30=#24-#6*#11
#31=#24+#6*#11
#32=#25-#6*#12
#33=#25+#6*#12
IF[#30GT#20]GOTO35
#30=#20
#31=#21
#32=#22
#33=#23
(NOT.EVERY.FIN.-N40)
IF[#14NE#27]GOTO35
(FIN.-35)
#20=#28-#29
#21=#24+#20
#20=#24-#20
#22=#5+#1-#29
#23=#25+#22
#22=#25-#22
N35G01F#9
Y#32
X#31
Y#33
X#30
Y#32
X#24
#11=#11+1
#12=#12+1
END2
G01X#31
X#24Y#25F[#9*4]
#13=#13+1
END1
G00Z#19
M99
X: MITTE TASCHE VOM NULLPUNK
Y: MITTE TASCHE VOM NULLPUNK
I: HALBE LÄNGE IN X
J: HALBE LÄNGE IN Y
K: ZUSTELLUNG IN X;Y
D: WERKZEUG OFFSET NR. (RADIUS)
Z: ENDPUNKT IN Z
R: STARTPUNKT Z ZUSTELLUNG
Q: ZUSTELLUNG IN Z
A: SCHLICHT AUFMASS IN X;Y
B: SCHLICHT AUFMASS IN Z
E: VORSCHUB IN Z
F: VORSCHUB IN X;Y
zB.: TASCHE X70 Y55 Z-25
G65 P9034 X120 Y20 I35 J27.5 K8 D27 Z-25 R2 Q8 A0.3 B0.2 E50 F120
mfG bernd