工具交換シーケンスの修正

先日作ったスクリプト。

本日早速問題が出たので修正。

問題はプログラムによっては工具交換指令を受け付けない、高さ違いのワークに交換して数値を入力しても反映されなかった等。

これで解決。

勝手に命名

「Auto Surface」

＝＝＝＝＝＝＝＝＝＝

Rem VBScript To probe top edge

If GetOemLED (825) <> 0 Then

DoSpinStop()

 Code "(The probe is already gournded.)"

 

Else

z = GetUserDRO( 1202 ) 「Ｚ軸の原点に戻る」

Code "G0"

Code "G53Z" & Z

Code "G4 P1"

Code "(Finding surface...)"

Code "G53 X176.3 Y-11.5" 「ツールセッターの絶対座標ＸとＹ軸」

Code "G4 P1"

Code "G53 Z-127" 「ツールセッターの絶対座標Ｚ軸」

While IsMoving()

Wend

End If

If GetOemLed (825) <> 0 Then 

Code "(Probe plate is grounded, check connection and try again)"

Else

Offset = 7.88 ' Tool setter Hight to surface 「ツールセッターと加工面との高さ」

Hight = 30.20 'WCS Hight to surface 　「ワーク高さ　加工開始前に変更すること」

ZOffset = - (Hight - Offset) '+ WCS Hight + Offset, Will possition the Proble  over the Material.

ZCurrent = GetOemDro(802)

Code "G4 P1" 

Code "F160" 

ZNew = ZCurrent - 73

Code "G31 Z" &ZNew

While IsMoving()

Wend

ZPos1 = GetVar(2002)

Code "G0 Z" &(ZPos1 + 1.0)

Code "G4 P1" 

Code "F10" 

ZNew = ZCurrent - 73

Code "G31 Z" &ZNew

While IsMoving()

Wend

ZPos2 = GetVar(2002)

Code "G0 Z" &ZPos2

While IsMoving()

Wend

Call SetDro (2,ZOffset)

End If 

Code "G4 P1"

Code "G0"

Code "G53Z" & Z　「絶対座標Ｚ0へＧ0で移動」

Code "F1100"  「指定速度へ復帰」

＝＝＝＝＝＝＝＝＝＝＝＝

コピペで使えるけど、使うときは　「日本語」　を消してネー。

ただ、加工プログラムによっては時々回転指令を飛ばしたりすることがあるので実際に使う時は気をつけてネー。。。

理由は不明。

誰か修正したら教えて。。。