// ---------------------------------------- // // The following SmartCAM code generator has been // created to generate NC code for the respective // machine and control combinations listed below. // // Due to differences in programming styles, // controller versions, and optional equipment, // SmartCAMcnc DOES NOT and CANNOT guarantee // that the NC code generated is correct for any // specific machine. Some modification to the code // generator to match your setup and output // requirements is likely necessary. // // Modifications to code generators do not TYPICALLY // require a significant amount of time. SmartCAM // customers with active SSA contracts are entitled // to support for their code generators from the // SmartCAMcnc Support Group. To contact them for // support, please send an email to: // Support@SmartCAMcnc.com. If you would like // information on purchasing SSA for your SmartCAM // products, please contact: Sales@SmartCAMcnc.com // // DISCLAIMER: It is the responsibility of the end // user to confirm and verify that the NC code // created by any code generator is accurate and // will not cause a machine malfunction which // could result in stock, tooling, machine, and/or // personal injury. // // SmartCAMcnc assumes no responsibility or // liability for any damage caused or alleged to // have been caused by the use of any of the code // generators it provides. // ---------------------------------------- HEIDENHEIN DIALOG TNC145 KONDIA 01.02.88 ----------------------------------------------- @START % 0 BEGIN PGM MM #ONBLK TOOL CALL 0 Z S0 L Z#ZPOS R0 F9999 M05 L X#XPOS Y#YPOS R0 F9999 M #EVAL(#V1=#TLDIA/2) TOOL DEF#TOOL L#TLEN R#V1 STOP M TOOL CALL#TOOL Z S#SPEED L X#XPOS Y#YPOS R0 F< #MOV> #SPNDL L Z#ZPOS R0 F M @TOOLCHG L Z#ZHOME R< #DCOMP> F< #MOV> M L X#XHOME Y#YHOME R< #DCOMP> F< #MOV> M5 #EVAL(#V1=#TLDIA/2) TOOL DEF#TOOL L#TLEN R#V1 STOP M TOOL CALL#TOOL Z S#SPEED #SPNDL> L R F M08 @END L X#XPOS Y#YPOS R#DCOMP F< #FEED> M09 L Z#ZPOS R#DCOMP F9999 M05 TOOL CALL 0 Z S0 END PGM MM % @STPROF L X#XPOS Y#YPOS R#DCOMP F< #MOV> M @ENDPROF L X#XPOS Y#YPOS R#DCOMP F< #FEED> M @RAP L X#XPOS Y#YPOS R#DCOMP F9999 M @LINE L X#XPOS Y#YPOS R#DCOMP F#FEED M @ARC CC X#XCTR Y#YCTR C X#XPOS Y#YPOS DR#MOV R#DCOMP F< #FEED> M @ZCLRMV L Z#ZPOS R#DCOMP F9999 M @ZCHKMV L Z#ZPOS R#DCOMP F9999 M @ZDPTHMV L Z#ZPOS R#DCOMP F#FEED M @FXD1 #EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TIEFBOHREN CYCL DEF 1.1 ABST -2.000 CYCL DEF 1.2 TIEFE #ZDPTH >#IF(#V9<>#ZDPTH)< CYCL DEF 1.3 ZUSTLG #ZDPTH CYCL DEF 1.4 V.ZEIT 0 CYCL DEF 1.5 F#FEED >#EVAL(#V9=#ZDPTH) CYCL CALL @FXD2 #EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TIEFBOHREN CYCL DEF 1.1 ABST -2.000 CYCL DEF 1.2 TIEFE #ZDPTH >#IF(#V9<>#ZDPTH)< CYCL DEF 1.3 ZUSTLG #ZDPTH CYCL DEF 1.4 V.ZEIT 0 CYCL DEF 1.5 F#FEED >#EVAL(#V9=#ZDPTH) CYCL CALL @FXD3 #EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 2.0 GEWINDEBOHREN CYCL DEF 2.1 ABST -2.000 CYCL DEF 2.2 TIEFE #ZDPTH >#IF(#V9<>#ZDPTH)< CYCL DEF 2.3 V.ZEIT 0 CYCL DEF 2.4 F#FEED >#EVAL(#V9=#ZDPTH) CYCL CALL @FXD4 #EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TIEFBOHREN CYCL DEF 1.1 ABST -2.000 CYCL DEF 1.2 TIEFE #ZDPTH >#IF(#V9<>#ZDPTH)< CYCL DEF 1.3 ZUSTLG #ZDPTH CYCL DEF 1.4 V.ZEIT 0 CYCL DEF 1.5 F#FEED >#EVAL(#V9=#ZDPTH) CYCL CALL @FXD5 #EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TIEFBOHREN CYCL DEF 1.1 ABST -2.000 CYCL DEF 1.2 TIEFE #ZDPTH >#IF(#V9<>#ZDPTH)< CYCL DEF 1.3 ZUSTLG #PECK CYCL DEF 1.4 V.ZEIT 0 CYCL DEF 1.5 F#FEED >#EVAL(#V9=#ZDPTH) CYCL CALL @