Guten Abend,
Willst du wissen, wie man ein NC-Code ins Dialog bekommt?
Oder ist die Frage wie man ein Unterprogramm mit Variablen schreibt?
Oder beides?
Na jedenfalls könnte so ein Unterprogramm aussehen,
Du erstellst dir eine Nc-Datei die mit .SSB endet.
Als Beispiel Könnte es Helix.SSB heißen.
Da kopierst du dir den Ganzen Text von (HELIX) bis RTS rein.
Dann nimmst du Alles was
FETT geschrieben ist und fügst es in dein Hauptprogramm ins
Dialog ein und passt dir deine Variablen an wie du sie brauchst.
Die Variablen die im Unterprogramm stehen und die du kopiert hast dienen nur als Vorlage,
Die haben keinen Einfluss auf das Unterprogramm solang bis diese ins Hauptprogramm kommen.
Die Bezeichnungen der Variablen sind bei
Okuma sehr offen z.B. ist
BDM = 10.5 einfach von mir ausgedacht weil ich es mag. Die Variable hätte auch ABCD oder EFGH heißen können.
(HELIX)
(**************************************************)
HELIX FRAESEN MIT M-WERKZEUG
VERSION: 2019-12-29 VENNS
(**************************************************)
(**************************************************)
NAT95 (HELIX FRAESEN / RADIAL)
(UNTERPROGRAMM LAEUFT MIT!!! RADIUSKOMPENSATION)
TWK = 095095 (WERKZEUGKORREKTUR)
BDM = 10.5 (BOHRUNGSDURCHMESSER)
XZS = 1.00 (STEIGUNG)
XAD = 70.00 (ANFAHRTSDURCHMESSER)
XSP = 32.00 (STARTDURCHMESSER)
XEP = 1.30 (BOHRUNGSGRUND IM RADIUS - X)
YSP = 0.00 (STARTPUNKT - Y)
ZSP = -43.00 (STARTPUNKT - Z)
CSP = 00.00 (STARTPUNKT - C)
SDZ = 3000 (DREHZAHL)
FSB = 300 (VORSCHUB)
AWB = 0 (FOLGT WEITERE BOHRUNG? JA=1 / NEIN=0)
CALL OHFRR (HELIX FRAESEN /RADIAL)
OHFRR (HELIX FRAESEN / RADIAL)
M110
G138
G19
XAP= XSP/2 (AKTUELLE X-POSITION)
G0 M8 X=XAD/2 Z=ZSP C=CSP G94 SB=SDZ M13 M16
Y=YSP
M147
G1 X=XAP F2000
G1 Y=YSP-BDM/2 Z=ZSP G41
G3 X=XAP Y=YSP-BDM/2 Z=ZSP J=BDM/2 F=FSB
NLOP
XAP=XAP-XZS
IF [XAP LE XEP] NEXT
G3 X=XAP Y=YSP-BDM/2 Z=ZSP J=BDM/2 F=FSB
GOTO NLOP
NEXT
G3 X=XEP Y=YSP-BDM/2 Z=ZSP J=BDM/2
G3 X=XEP Y=YSP-BDM/2 Z=ZSP J=BDM/2
G3 X=XEP Y=YSP-0.5 Z=ZSP-BDM/2+0.5 J=BDM/2-0.5
G1 Y=YSP Z=ZSP G40
G0 X=XAD
M146
IF [AWB EQ 1] NEND (ABFRAGE: FOLGT WEITERE BEARBEITUNG)
G136
G0 X1500 Z100 G95 M9 M12 M146 M174
M109
NEND
RTS