各位大侠：问题一直没有解决，请大家帮忙看一下，以下custom程序有什么问题。拜托！

//M(Mask2_1/"MAHO DMU80P---------------------------------------------------------ATC&刀号设定"/""///10,57)

DEF Xmcsstr=(V///,"MCS机床坐标显示",/wr1///20,20,150/190,20,0/)

DEF Xpos=(R3///,"X",,"mm"/wr1//"/Nck/MachineAxis/actToolBasePos[1]"/20,40,30/70,40,150/7)

DEF Ypos=(R3///,"Y",,"mm"/wr1//"/Nck/MachineAxis/actToolBasePos[2]"/20,60,30/70,60,150/7)

DEF Zpos=(R3///,"Z",,"mm"/wr1//"/Nck/MachineAxis/actToolBasePos[3]"/20,80,30/70,80,150/7)

DEF Bpos=(R3///,"C",,"dec"/wr1//"/Nck/MachineAxis/actToolBasePos[4]"/20,100,30/70,100,150/7)

DEF Apos=(R3///,"A",,"dec"/wr1//"/Nck/MachineAxis/actToolBasePos[5]"/20,120,30/70,120,150/7)

DEF SPpos=(R3///,"SP",,"dec"/wr1//"/Nck/MachineAxis/actToolBasePos[6]"/20,140,30/70,140,150/7)

DEF INT1=(I///,"刀库刀具号",""///"DB2000.DBW12"/300,60,150/430,60,120//)

DEF INT2=(I///,"主轴刀具号","",""///"DB2000.DBW16"/300,80,150/430,80,120//)

DEF INT3=(I///,"手爪新刀具",""///"DB2000.DBW18"/300,100,150/430,100,120//)

DEF INT4=(I///,"手爪旧刀具","",""///"DB2000.DBW20"/300,120,150/430,120,120//)

DEF INT5=(I///,"定位旧刀具","",""///"DB2000.DBW22"/300,140,150/430,140,120//)

DEF ATC_STA=(I///,"ATC互锁解除=",,/wr1//"DB2000.DBX2.5"/20,180,150/190,180,20/)

DEF ATC_S1=(V///,"ATC互锁解除说明：",/wr1///20,220,200/240,220,0/)

DEF ATC_S2=(V///,"1.用于ATC---强制操作",/wr1///20,240,200/240,240,0/)

DEF ATC_S3=(V///,"2.用于设定XZ轴换刀点",/wr1///20,260,200/240,260,0/)

DEF ATC_S4=(V///,"警告:ATC互锁解除后,机械没有任何保护",/wr1///0,280,400/420,280,0/3)

DEF ATC_S5=(V///,"不当的操作会损坏机床,小心操作!",/wr1///20,300,400/420,300,0/3)

DEF XZATC_STA2=(I///,"XZ轴在等待位",/wr1//"DB2000.DBX2.7"/300,180,120/420,180,20/)

DEF XZATC_STA1=(I///,"XZ轴在换刀点",/wr1//"DB2000.DBX2.6"/300,200,120/420,200,20/)

DEF ATC_STA1=(V///,""/wr1//"DB2001.DBX2.0"/300,20,0/300,20,0/)

DEF ATC_STA2=(V///,""/wr1//"DB2001.DBX2.1"/300,40,0/300,40,0/)

DEF ATC_STA3=(V///,""/wr1//"DB2001.DBX2.2"/300,60,0/300,60,0/)

DEF ATC_STA4=(V///,""/wr1//"DB2001.DBX2.3"/300,80,0/300,80,0/)

DEF ATC_STA5=(V///,""/wr1//"DB2001.DBX2.4"/300,100,0/300,100,0/)

DEF ATC_STA6=(V///,""/wr1//"DB2001.DBX2.5"/300,120,0/300,120,0/)

DEF ATC_STA7=(V///,""/wr1//"DB2001.DBX2.6"/300,140,0/300,140,0/)

DEF ATC_STA8=(V///,""/wr1//"DB2001.DBX2.7"/300,160,0/300,160,0/)

DEF ATC_STA9=(V///,""/wr1//"DB2001.DBX3.0"/300,180,0/300,180,0/)

DEF ATC_STA10=(V///,""/wr1//"DB2001.DBX3.1"/300,200,0/300,200,0/)

DEF ATC_STA11=(V///,""/wr1//"DB2001.DBX3.2"/300,220,0/300,220,0/)

DEF ATC_STA12=(V///,""/wr1//"DB2001.DBX3.3"/300,240,0/300,240,0/)

DEF ATC_STA13=(V///,""/wr1//"DB2001.DBX3.4"/300,260,0/300,260,0/)

HS1=("ATC互锁解除")

HS2=("ATC互锁有效")

HS3=("旧刀具返回")

HS4=("#1向刀库")

HS5=("#1原位")

HS6=("#2原位")

HS7=("#2向主轴")

HS8=("返回")

VS1=("ATC门开")

VS2=("ATC门关")

VS3=("Z轴等待位")

VS4=("Z轴交换位")

VS5=("刀具松开")

VS6=("主轴定向")

VS7=("爪向主轴")

VS8=("爪向刀库")

CHANGE(ATC_STA1)

IF  ATC_STA1==1

 VS1.SE=3

ELSE  

 VS1.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA2)

IF  ATC_STA2==1

 VS2.SE=3

ELSE  

 VS2.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA3)

IF  ATC_STA3==1

 VS3.SE=3

ELSE  

 VS3.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA4)

IF  ATC_STA4==1

 VS4.SE=3

ELSE  

 VS4.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA5)

IF  ATC_STA5==1

 VS5.SE=3

ELSE  

 VS5.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA6)

IF  ATC_STA6==1

 VS6.SE=3

ELSE  

 VS6.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA7)

IF  ATC_STA7==1

 VS7.SE=3

ELSE  

 VS7.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA8)

IF  ATC_STA8==1

 VS8.SE=3

ELSE  

 VS8.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA)

IF  ATC_STA==1

 HS1.SE=3

 HS2.SE=1

ELSE  

 HS1.SE=1

 HS2.SE=3

ENDIF

END_CHANGE

CHANGE(ATC_STA13)

ENDIF

IF  ATC_STA13==1

 HS3.SE=3

ELSE  

 HS3.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA9)

IF  ATC_STA9==1

 HS4.SE=3

ELSE  

 HS4.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA10)

IF  ATC_STA10==1

 HS5.SE=3

ELSE  

 HS5.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA11)

IF  ATC_STA11==1

 HS6.SE=3

ELSE  

 HS6.SE=1

ENDIF

END_CHANGE

CHANGE(ATC_STA12)

IF  ATC_STA12==1

 HS7.SE=3

ELSE  

 HS7.SE=1

ENDIF

END_CHANGE

press(VS1)

  WNP("DB2001.DBX0.0",1)

end_press

press(VS2)

  WNP("DB2001.DBX0.1",1)

end_press

press(VS3)

  WNP("DB2001.DBX0.2",1)

end_press

press(VS4)

  WNP("DB2001.DBX0.3",1)

end_press

press(VS5)

  WNP("DB2001.DBX0.4",1)

end_press

press(VS6)

  WNP("DB2001.DBX0.5",1)

end_press

press(VS7)

  WNP("DB2001.DBX0.6",1)

end_press

press(VS8)

  WNP("DB2001.DBX0.7",1)

end_press

press(HS1)

  WNP("DB2000.DBX2.5",1)

 DLGL("ATC互锁解除，按下RESET键或切换到自动方式，ATC互锁自动生效")

end_press

press(HS2)

  WNP("DB2000.DBX2.5",0)

 DLGL("ATC互锁生效")

end_press

press(HS3)

  WNP("DB2001.DBX1.4",1)

end_press

press(HS4)

  WNP("DB2001.DBX1.0",1)

end_press

press(HS5)

  WNP("DB2001.DBX1.1",1)

end_press

press(HS6)

  WNP("DB2001.DBX1.2",1)

end_press

press(HS7)

  WNP("DB2001.DBX1.3",1)

end_press

PRESS(HS8)

EXIT

END_PRESS

//END