0 Members and 1 Guest are viewing this topic.
first off all, go to diagnostic and have a look for the digiitze Signal,does it come up if you hold your clamp to the cutter?
Rem VBScript To center probe inside a pipeDist= 20.0 'Maximum detection depth 20.0ZDist = 4.0 'When finished, put a knife 4.0If GetOemLed (825) <> 0 Then 'Check the probe if it is disconnected Code "(Probe plate is grounded, check connection and try again)"Else DoSpinStop() FeedCurrent = GetOemDRO(818) 'Save the feed rate XCurrent = GetDro(0) YCurrent = GetDro(1) ZCurrent = GetDro(2) Code "G4 P1" 'Pause 1s Code "F25" 'Adjust the speed more slowRem Probe left XNew = Xcurrent - Dist 'probe 20mm to left Code "G31 X" &XNew While IsMoving() 'wait for the move to finish Wend XPos1 = GetVar(2000) 'get the probe touch location Code "G0 X" &XCurrent While IsMoving () Wend 'rapid move back to start pointRem Probe right XNew = XCurrent + Dist 'probe 20mm to right Code "G31 X" &XNew While IsMoving() Wend XPos2 = GetVar(2000) XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2 Code "G0 X" &XCenter While IsMoving () Wend 'rapid move to the x center locationRem Probe up YNew = YCurrent + Dist Code "G31 Y" &YNew While IsMoving() Wend YPos1 = GetVar(2001) Code "G0 Y" &YCurrent While IsMoving () WendRem Probe down YNew = YCurrent - Dist Code "G31 Y" &YNew While IsMoving() Wend YPos2 = GetVar(2001) YCenter = (YPos1 + YPos2) / 2Rem move to the center Code "G0 Y" &YCenter While IsMoving () Wend Code "F" &FeedCurrent 'restore starting feed rate ZClear = Zcurrent + ZDist Code "Z" &ZClearEnd If