|
|
楼主 |
发表于 2017-11-4 13:59:44
|
显示全部楼层
xiaoxuan 发表于 2017-11-4 13:34 
我的对刀后保持不动,不抬刀,是哪里设置问题?
FeedCurrent = GetOemDRO(818) '取出当前给进率
ZCurrent = GetOemDro(802) '取出当前Z高度
Code "G4 P1"
Code "F100"
GageH = GetUserDRO(1152) '从对刀块DRO取出对刀块的厚度
ZNew = ZCurrent - 50 'Z将在当前位置下降50
Code "G31 Z" &ZNew
While IsMoving() '循环等待探针事件触发(触发后停止下降)
Wend
Call SetDro (2,GageH) '停止后设置Z的高度设为对刀块的厚度
Code "G0 Z20" '提刀到20
Code "F" &FeedCurrent '恢复原给进率
论坛的代码
|
|