HCL Technologies Germany GmbH
CAMWorks
CamWorks Variable
17.09.2023, 17:07 Uhr
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:
file MPR.LIB
ATTRIBUTES
:ATTRNAME=drilling cycle
:ATTRTYPE=SELECT
:ATTREMARK=Drill Mode
:ATTRSEL=N
:ATTRTITLE=Drill Mode
:ATTRSELSTR=Top (LS)
:ATTRSELSTR=Left (XP)
:ATTRSELSTR=Front (YP)
:ATTRSELSTR=Right (XM)
:ATTRSELSTR=Back (YM)
:ATTRSELSTR=Bottom
:ATTRDEFAULT=1
:ATTRUSED=1
:ATTREND
:ATTRNAME=D CYCLE
:ATTRTYPE=POST
:ATTRVTYPE=CHARACTER
:ATTREMARK=
:ATTRINLEN=25
:CODETYPE=FORMAT
:WORD_ADDRESS_BEF=
:WORD_ADDRESS_AFT=
:LEFT_PLACES=0
:RIGHT_PLACES=0
:UNITFLAG=NON_CONVERT
:ATTRSPACES=YES
:MODAL=NO
:ATTRUSED=1
:ATTREND
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
:ATTRNAME=DR CYCLE
:ATTRTYPE=POST
:ATTRVTYPE=CHARACTER
:ATTREMARK=
:ATTRINLEN=25
:CODETYPE=FORMAT
:WORD_ADDRESS_BEF=
:WORD_ADDRESS_AFT=
:LEFT_PLACES=0
:RIGHT_PLACES=0
:UNITFLAG=NON_CONVERT
:ATTRSPACES=YES
:MODAL=NO
: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
wo habe ich einen Fehler gemacht
file MPR.LIB
ATTRIBUTES
:ATTRNAME=drilling cycle
:ATTRTYPE=SELECT
:ATTREMARK=Drill Mode
:ATTRSEL=N
:ATTRTITLE=Drill Mode
:ATTRSELSTR=Top (LS)
:ATTRSELSTR=Left (XP)
:ATTRSELSTR=Front (YP)
:ATTRSELSTR=Right (XM)
:ATTRSELSTR=Back (YM)
:ATTRSELSTR=Bottom
:ATTRDEFAULT=1
:ATTRUSED=1
:ATTREND
:ATTRNAME=D CYCLE
:ATTRTYPE=POST
:ATTRVTYPE=CHARACTER
:ATTREMARK=
:ATTRINLEN=25
:CODETYPE=FORMAT
:WORD_ADDRESS_BEF=
:WORD_ADDRESS_AFT=
:LEFT_PLACES=0
:RIGHT_PLACES=0
:UNITFLAG=NON_CONVERT
:ATTRSPACES=YES
:MODAL=NO
:ATTRUSED=1
:ATTREND
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
:ATTRNAME=DR CYCLE
:ATTRTYPE=POST
:ATTRVTYPE=CHARACTER
:ATTREMARK=
:ATTRINLEN=25
:CODETYPE=FORMAT
:WORD_ADDRESS_BEF=
:WORD_ADDRESS_AFT=
:LEFT_PLACES=0
:RIGHT_PLACES=0
:UNITFLAG=NON_CONVERT
:ATTRSPACES=YES
:MODAL=NO
: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
wo habe ich einen Fehler gemacht
1 Besucher lesen dieses Thema (Gäste: 1)
0 Mitglieder: