Gruppe: Mitglied
Mitglied seit: 02.08.2023
Beiträge: 1
Hallo zusammen. Ich versuche, einen Parameter hinzuzufügen, der in der endgültigen Datei für die Maschine durch eine Variable reflektiert wird, aber aus irgendeinem Grund funktioniert es nicht. Um damit zu beginnen, werde ich Ihnen zeigen, was funktioniert, aber die Wiederholung des Prinzips der leeren Zeile in der Post-Prozess implementiert... das funktioniert bei der Ausgabe habe ich Werte BM="LS" usw. Datei: MPR.SRC :SECTION=DRILLING_CYCLE :T:
SECTION
:SECTION=CALC_SINGLE_DRILL_MILL
:C: IF SECTIONEXIST(DEBUG) THEN
:C: DEBUG=17 CALL(DEBUG)
:C: ENDIF
:C: IF SEQ<>0 THEN
:C: EA={EA="}
:C: EE={EE="}
:C: IF SAVE_AXIS_TYPE=0 THEN
:C: CALL(ROUTING_CONTOUR)
:C: ELSE
:C: CALL(5AXIS_ROUTING_CONTOUR)
:C: ENDIF
:C: SEQ=0
:C: ENDIF
:C: X_POS=ABS_X_END
:C: Y_POS=ABS_Y_END
:C: IF drilling_cycle=1 THEN D_CYCLE={BM="LS"} ENDIF
:C: IF drilling_cycle=2 THEN D_CYCLE={BM="XP"} ENDIF
:C: IF drilling_cycle=3 THEN D_CYCLE={BM="YP"} ENDIF
:C: IF drilling_cycle=4 THEN D_CYCLE={BM="XM"} ENDIF
:C: IF drilling_cycle=5 THEN D_CYCLE={BM="YM"} ENDIF
:C: IF drilling_cycle=6 THEN D_CYCLE={BM="LSLU"} ENDIF
:C: IF OPR_AXIS_TYPE>THREE_AXIS OR OPR_AXIS_TYPE=FIVE_AXIS THEN
:C: CALL(5AXIS_DRILLING)
:C: RETURN
:C: ENDIF
:C: CALL(DRILLING_CYCLE)
file GENERAL.LIB
ATTRIBUTES
:ATTRNAME=DEBUG
:ATTRTYPE=POST
:ATTRVTYPE=INTEGER
:ATTREMARK=Debug
:CODETYPE=SELECT
:SELECT=0
:CODE=|||||Start|of|Tape
bla bla bla
:SELECT=17
:CODE=|||||Single|Drill
thats no works
file: MPR.SRC
:SECTION=DRILLING_CYCLE
:T:
file MPR.LIB
ATTRIBUTES
:ATTRNAME=drilling dr
:ATTRTYPE=SELECT
:ATTREMARK=Drill DR
:ATTRSEL=N
:ATTRTITLE=Drill DR
:ATTRSELSTR=Top (<102|Bohrvert)
:ATTRSELSTR=Side (<103|Bohrhoriz)
:ATTRDEFAULT=1
:ATTRUSED=1
:ATTREND
SECTION
:SECTION=CALC_SINGLE_DRILL_MILL
:C: IF SECTIONEXIST(DEBUG) THEN
:C: DEBUG=34 CALL(DEBUG)
:C: ENDIF
:C: IF SEQ<>0 THEN
:C: EA={EA="}
:C: EE={EE="}
:C: IF SAVE_AXIS_TYPE=0 THEN
:C: CALL(ROUTING_CONTOUR)
:C: ELSE
:C: CALL(5AXIS_ROUTING_CONTOUR)
:C: ENDIF
:C: SEQ=0
:C: ENDIF
:C: X_POS=ABS_X_END
:C: Y_POS=ABS_Y_END
:C: IF drilling_dr=1 THEN DR_CYCLE={"<102|Bohrvert"} ENDIF
:C: IF drilling_dr=2 THEN DR_CYCLE={"<103|Bohrhoriz"} ENDIF
:C: IF OPR_AXIS_TYPE>THREE_AXIS OR OPR_AXIS_TYPE=FIVE_AXIS THEN
:C: CALL(5AXIS_DRILLING)
:C: RETURN
:C: ENDIF
:C: CALL(DRILLING_CYCLE)
file GENERAL.LIB
ATTRIBUTES
:ATTRNAME=DEBUG
:ATTRTYPE=POST
:ATTRVTYPE=INTEGER
:ATTREMARK=Debug
:CODETYPE=SELECT
:SELECT=0
:CODE=|||||Start|of|Tape
bla bla bla
:SELECT=34
:CODE=|||||Single|Drill
Um unsere Webseite für Sie optimal zu gestalten und fortlaufend verbessern zu können, verwenden wir Cookies. Durch das Anklicken des „Akzeptieren“-Buttons erklären Sie sich ausdrücklich mit dem Einsatz von Cookies einverstanden. Weitere Informationen zu Cookies erhalten Sie in unserer Datenschutzerklärung.