Code
&ACCESS RVP
&REL 24
DEF CAL ( )
;Start---------------------------------------
$OUT[127]=TRUE ;ProgramRunning
BAS(#VEL_PTP,40)
BAS(#ACC_PTP,25)
$APO.CPTP=100
BAS(#VEL_CP, 0.500)
BAS(#ACC_CP,100)
$APO.CDIS=10
$FILTER=16
$ACC_EXTAX[1]=5
$VEL_EXTAX[1]=5
$ACC_EXTAX[2]=5
$VEL_EXTAX[2]=5
$tool=TOOL_DATA[1]
$base=BASE_DATA[2]
xcurpos=$Pos_Act
PTP xcurpos
PTP {A1 -90.77, A2 -22.77, A3 108.01, A4 -0.62, A5 95.11, A6 179.8, E1 997.28} ;sta
;Start Find Z location of Laser=============================================================================
$CYCFLAG[112]=(Measur_OUT1 >= 0)
INTERRUPT DECL 11 WHEN $CYCFLAG[112]==True DO subBrakez()
INTERRUPT ON 11
SubFindposZ()
END
DEF SubFindposZ()
LIN {Z 50}
WAIT SEC 0
END
DEF subBrakez()
INTERRUPT OFF 11
BRAKE
RESUME
END
Display More
Here is the code now, it still does not want to stop motion, it wants to reach -50mm before motion will stop, but again i see my CYCflag change when condition is met.