

各们大师好,我是新新手,入手广告加工中心好久了,直排自动换刀4把,现在总是不够用了,发现机器预留的8个位置,想要加到8把,自己再手工DIY4个刀位,厂家要自己过来,费用2万不止,不划算了,下面是自动换刀LL1.SPF的代码,确是8把刀,但是我新建 的5678刀按循环启动,它就是不动,各们大师有什么办法没有?是不是哪里设置禁止了?
PROC LL1 SAVE
;********************************
IF $P_ISTEST GOTOF _END1
IF $P_SEARCH<>0 GOTOF _END1
IF $C_T>4 GOTOF _END1
IF $A_DBB[2]==1 GOTOF _END2
;********************************
IF $P_TOOLNO==$C_T GOTOF INFO1 ;
IF $A_DBW[0]==4 GOTOF INFO3 ;
;********************************
G290
D0
G153 G00 G90 Z=0
IF ($C_T==0) AND ($P_TOOLNO<>0) GOTOF T_RET
IF ($C_T<>0) AND ($P_TOOLNO==0) GOTOF _GET_T
IF ($C_T<>0) AND ($P_TOOLNO<>0) GOTOF _EXC_T
;********************************
_EXC_T:
M05
GOTOF _T_RET
;*****************************TO
T_RET:
M05
_T_RET:
MSG("Z轴回到换刀位")
G153 G01 G90 D0
;*****************************T1
IF ($P_TOOLNO==1)
G153 G0 X=R101 Y=R173
ENDIF
;*****************************T2
IF ($P_TOOLNO==2)
G153 G0 X=R102 Y=R173
ENDIF
;*****************************T3
IF ($P_TOOLNO==3)
G153 G0 X=R103 Y=R173
ENDIF
;*****************************T4
IF ($P_TOOLNO==4)
G153 G0 X=R104 Y=R173
ENDIF
;*****************************T5
IF ($P_TOOLNO==5)
G153 G0 X=R105 Y=R173
ENDIF
;*****************************T6
IF ($P_TOOLNO==6)
G153 G0 X=R106 Y=R173
ENDIF
;*****************************T7
IF ($P_TOOLNO==7)
G153 G0 X=R107 Y=R173
ENDIF
;*****************************T8
IF ($P_TOOLNO==8)
G153 G0 X=R108 Y=R173
ENDIF
;*****************************T1
IF ($P_TOOLNO==1)
G153 G01 G90 Z=R151 F10000
G153 G01 G90 Y=R131 F=R174
ENDIF
;*****************************T2
IF ($P_TOOLNO==2)
G153 G01 G90 Z=R152 F10000
G153 G01 G90 Y=R132 F=R174
ENDIF
;*****************************T3
IF ($P_TOOLNO==3)
G153 G01 G90 Z=R153 F10000
G153 G01 G90 Y=R133 F=R174
ENDIF
;*****************************T4
IF ($P_TOOLNO==4)
G153 G01 G90 Z=R154 F10000
G153 G01 G90 Y=R134 F=R174
ENDIF
;*****************************T5
IF ($P_TOOLNO==5)
G153 G01 G90 Z=R155 F10000
G153 G01 G90 Y=R135 F=R174
ENDIF
;*****************************T6
IF ($P_TOOLNO==6)
G153 G01 G90 Z=R156 F10000
G153 G01 G90 Y=R136 F=R174
ENDIF
;*****************************T7
IF ($P_TOOLNO==7)
G153 G01 G90 Z=R157 F10000
G153 G01 G90 Y=R137 F=R174
ENDIF
;*****************************T8
IF ($P_TOOLNO==8)
G153 G01 G90 Z=R158 F10000
G153 G01 G90 Y=R138 F=R174
ENDIF
;*****************************
MSG("主轴松刀")
M51
G4 F2
MSG("Z轴退到刀库安全位置")
G153 G00 G90 Z=R172
IF ($C_T<>0) GOTOF T_GET
G153 G00 G90 Y=R173
G153 G00 G90 Z0
GOTOF _END
;******************************
_GET_T:
M05
WAITS
;*****************************T1
T_GET:
IF ($C_T==1)
G153 G00 G90 X=R101
WAITS
G153 G00 G90 Y=R131
ENDIF
;*****************************T2
IF ($C_T==2)
G153 G00 G90 X=R102
WAITS
G153 G00 G90 Y=R132
ENDIF
;*****************************T3
IF ($C_T==3)
G153 G00 G90 X=R103
WAITS
G153 G00 G90 Y=R133
ENDIF
;*****************************T4
IF ($C_T==4)
G153 G00 G90 X=R104
WAITS
G153 G00 G90 Y=R134
ENDIF
;*****************************T5
IF ($C_T==5)
G153 G00 G90 X=R105
WAITS
G153 G00 G90 Y=R135
ENDIF
;*****************************T6
IF ($C_T==6)
G153 G00 G90 X=R106
WAITS
G153 G00 G90 Y=R136
ENDIF
;*****************************T7
IF ($C_T==7)
G153 G00 G90 X=R107
WAITS
G153 G00 G90 Y=R137
ENDIF
;*****************************T8
IF ($C_T==8)
G153 G00 G90 X=R108
WAITS
G153 G00 G90 Y=R138
ENDIF
;*****************************
MSG("主轴松刀")
M51
T_GO_ON:
MSG("Z轴扣刀")
;*****************************T1
IF ($C_T==1)
G153 G01 G90 Z=(R151+20) F10000
G153 G01 G90 Z=R151 F1000
ENDIF
;*****************************T2
IF ($C_T==2)
G153 G01 G90 Z=(R152+20) F10000
G153 G01 G90 Z=R152 F1000
ENDIF
;*****************************T3
IF ($C_T==3)
G153 G01 G90 Z=(R153+20) F10000
G153 G01 G90 Z=R153 F1000
ENDIF
;*****************************T4
IF ($C_T==4)
G153 G01 G90 Z=(R154+20) F10000
G153 G01 G90 Z=R154 F1000
ENDIF
;*****************************T5
IF ($C_T==5)
G153 G01 G90 Z=(R155+20) F10000
G153 G01 G90 Z=R155 F1000
ENDIF
;*****************************T6
IF ($C_T==6)
G153 G01 G90 Z=(R156+20) F10000
G153 G01 G90 Z=R156 F1000
ENDIF
;*****************************T7
IF ($C_T==7)
G153 G01 G90 Z=(R157+20) F10000
G153 G01 G90 Z=R157 F1000
ENDIF
;*****************************T8
IF ($C_T==8)
G153 G01 G90 Z=(R158+20) F10000
G153 G01 G90 Z=R158 F1000
ENDIF
;*****************************
MSG("主轴抓刀")
M50
G4 F2
G153 G01 G90 Y=R173 F=R174
MSG("Z轴退到安全位置")
;*****************************
G153 G00 G90 Z0
_END:
MSG("换刀动作完成")
T=$C_T
MSG("")
M206
;*****************************
M05
STOPRE
D1
M17
;*****************************
INFO1:MSG("**** 无换刀动作 原因:编程刀具号 = 主轴刀具号 ****")
G04F2
MSG("")
GOTOB _END
;*****************************
INFO3:MSG("**** 轴 X Y Z 未回零,不能换刀 ****")
G04F2
MSG("")
_END1:
M17
_END2:
M05
T=$C_T
M206
D1
M17
你好“风雨中行走”与“202309...."兄弟,非常感谢你们,我面你们下面评论有字数限制,也不能跟贴,也不知是电脑问题还是不会操作,话都说不完。我将那个4改成8果然管用,它会放下刀,不过它不去旁边预留的位置,而是X走到头,Y也走到头,好像是0位吧,然后开始降落准备抓刀动作,然后报警700036在监控时间内,主轴无法到达刀具锁紧位置。觉的就是203609.那位兄弟说的位置要设置,能详细说下吗?非常非常感谢,