'=====================================================================
' M819 - 픽스처(작업좌표계) 선택  (화면 Fixture 1~6 버튼과 동일)
' ※ 한글 주석은 Mach3 VB 편집기에서 깨져 보일 수 있으나 실행에는 무영향.
'---------------------------------------------------------------------
' 사용법 (MDI)
'     #100=1      ' 1=G54  2=G55  3=G56  4=G57  5=G58  6=G59
'     M819
' 원리 : 픽스처 번호는 곧 G54~G59 좌표계다. 해당 G코드를 실행하면
'        Mach3 의 Active Work Offset 이 바뀐다.
'=====================================================================

sel = GetVar(100)                ' MDI 로 넣은 픽스처 번호 읽기
' 입력값 검증 : 1~6 밖이면 어느 좌표계인지 알 수 없다.
' 이유 : 엉뚱한 좌표계로 가공을 시작하면 소재 밖/지그 위를 깎게 되므로
' 시작 전에 걸러 안내한다.
If sel < 1 Or sel > 6 Then
  MsgBox "Set fixture first. MDI: #100=1..6 (1=G54 ... 6=G59) then M819"
  End                            ' 매크로 즉시 종료
End If

' 번호 -> G코드 실행 (If 나열 : 사용법 표를 그대로 코드로 옮긴 것)
If sel = 1 Then Code "G54"
If sel = 2 Then Code "G55"
If sel = 3 Then Code "G56"
If sel = 4 Then Code "G57"
If sel = 5 Then Code "G58"
If sel = 6 Then Code "G59"

Message "M819 done : fixture " & sel & " (G5" & (sel + 3) & ") active"
End                              ' 매크로 정상 종료