Kleines Makro für 810/840D, ausfraesen von Passungen

Hi!
Habe hier ein kleines makro zum ausfraesen von Passungen..
Das Hauptprogramm sollte so aussehen:
...
N1 R480=20 ;RADIUS 20MM
N2 R482=-18 ;TIEFE 18MM
N3 R406=400 ;VORSCHUB 400MM/MIN
N4 TRANS X50 Y50 ; NPV auf mittelpunkt der Passung z.B. X50 Y50
N5 L666 ; UP-aufruf
N6 TRANS ; NPV aufheben
...

Hier das UP:

%_N_L666_SPF
;$PATH=/_N_SPF_DIR
;*********************************************************
;L666 FUER PASSUNGEN MIT VORBOHRUNG
;IM HAUPTPROGRAMM ANGEBEN:
;R480=X RADIUS
;R482=-X TIEFE
;R406=X VORSCHUB
;*********************************************************
N5 R420=R480*2
N10 MSG ("FRAESE PASSUNG DURCHMESSER "<<R420<<" H7")
N15 R481=R480-0.2
N20 R483=R480-1.5
N25R484=R480+0.8
N30G0G90X0Y0
N35G0Z2 M8
N40G1 Z=R482 F1000
N45 G1 G41 X=R481 Y0 F=R406
N50 G64 G3 X0 Y=R480 CR=R484
N55 G64 G3 X0 Y=R480 I0 J=-R480
N60 G64 G3X0 Y=R480 I0 J=-R480
N65 G64 G3X=-R481 Y0 CR=R484
N70 G0 G40 X0 Y0
N75G0Z2 M9
N80G60
N85M17


... Viel spaß

PS: Solltet ihr was bestimmtes haben und euch mit parameterprogrammierung nicht so gut auskennen, helfe ich euch gerne..
Habe selbst viele solch kleiner helfer geschrieben....

Hallo d..matze,

füre dein Makro, das finde ich ja echt toll, dass du sowas hier anbietest. Ich selbst habe zwar keine Sinumeriks im Einsatz, aber ich denke sowas können sicher auch andere gebrauchen.

weiterso

Zwei Anmerkungen hätte ich dazu:
Auf die R-Parameter hat der Anwender im Programmablauf zugriff, das heisst er könnte durch eingabe von krummen R-Parametern einen ungewollten crash verursachen.

Ersetze doch einfach deine R-Parameter wie folgt:

Im Programmkopf 1. Zeile:

N10 DEF REAL TIEFE, RADIUS, FEEDRATE ; Variablen im Bereich der Reellen Zahlen anlegen
N20 TIEFE=20 ; Werte zuweisen
N30 RADIUS=18
N40 FEEDRATE=400

Im Programm kannst du dann die Variablen genau wie die R-Parameter benutzen, z.Bsp. G1 Z=TIEFE usw.

N50 G64 G3 X0 Y=R480 CR=R484 ; G64 wirkt satzübergreifend - muss also nur einmal angewählt werden

ja habe das programm zuerst auf einer 810M geschrieben, da konnte mann die werte noch nicht zuweisen lassen.. aber ansonsten hast du schon recht...