|
发表于 2021-4-7 09:00:44
|
显示全部楼层
Code "G4 P1" '暂停1秒
) i- ] m* \4 D' p; r% ~Code "G91 G28 Z0" 'Z返回机床原点Z0" V) p6 T; Y$ U6 f: W# a
Code "G4 P1" '暂停1秒' g% W# t1 P/ ~6 N+ e+ k& H, H. c
Code "G90"8 \; N5 [' E! T; H. e. B5 N
Code "G01 G53 X-62 Y146 Z-50 F3000" '机床坐标系下进入对刀仪上方安全位置坐标% v h" _ D+ o% J$ z
Code "G54"
) M' s1 o+ O6 D* Y'Rem Probe Down by PEU (Based on Erniebro Work)2 f+ N6 E! Q8 P0 v7 l$ I. m+ R
GageH = GetOEMDRO (1151)
6 x$ \, }+ _+ p" p'Rem Probe Down by PEU (Based on Erniebro Work)
7 [8 F7 {4 A5 M9 ` OFeedCurrent = GetOemDRO(818) '保存当前进给设置
$ a$ l6 B/ \3 E( PZCurrent = GetOemDRO(802)' L4 h$ `1 A% f1 c
Code "G4 P1" '暂停 1 秒" {( |0 X9 }/ T& J
Code "F100" '给进速度 100 MM/MIN; g4 z" E& |+ a9 k7 Z
ZNew = ZCurrent - 40' S+ F+ y% P/ q8 @% y" T
Code "G90" ' y; ^" o& ^3 t8 o% i; O% q
Code "G31 Z" &ZNew1 T) n+ }; B3 m
While IsMoving() '循环等待探针事件触发(触发后停止下降)1 V, `0 o1 J0 U: p5 t1 P
Wend
' e! x. ]0 o3 E/ ?7 o6 t" i- ~Call SetDro (2,GageH) '停止后设置Z的高度设为工件原点平面与对刀面高度差; q. h5 \9 ^2 J Z
FinalMove = GageH * 1
& h/ H0 r$ u% z7 @- B$ HCode "G0 Z" &FinalMove. F7 S: e% u" p6 k; u. E2 h; Z3 C
Code "G0 Z" &80 'Z轴上抬至工件原点平面上方的高度(★★★★★)2 _4 \7 _, \% {4 A) X" X
Code "F" &FeedCurrent '恢复原有进给设置 2 o. k9 N+ \, R8 S+ `( a- Q* m; m1 s
0 p& ^8 m9 ^1 F, d& v% r7 ?请教湖湖大师,使用这段对刀程序可以执行,但是实际动作是Z轴回机械原点后,三轴联动定位到对刀仪上方,我想修改为XY快速定位到对刀仪上方,Z轴下降到对刀仪上方制定位置,这个怎么改,尝试过修改,没能成功,麻烦指导下吧 |
|