求助 808D加工中心

各们大师好，我是新新手，入手广告加工中心好久了，直排自动换刀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.那位兄弟说的位置要设置，能详细说下吗？非常非常感谢，