321
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
N0001 %1 (Teutoburger GC01 +C01 Tür links)
N0002 G61 (Genauhalt)
N0003 G90 (Absolute Maßangaben)
N0004 G90.1 (I/J absolut)
N0005 M5 (Spindel aus)
N0006 G17 (X-Y Fräßebene)
N0007 G21 (alles in mm)
N0008 G40 (Radiuskorrektur aus)
N0009 G49 (Längenkorrektur aus)
N0010 G50 (Skallierungen aus)
N0011 G54 (Werkstückkoordinaten ein)
N0012 G43 H0 (Werkzeughöhenkorrektur aus)
N0013 M1004 (alle Achsen referenzieren)
Sub Main()
' -------------------------------------------------------------------------------
' TPS 26.06.2021
' do a referece
' new version with OEM Led's
' -------------------------------------------------------------------------------
'quit if file is loaded
If IsLoading() Then
GoTo Ende
End If
Message ("automatic reference started")
'reference Z
Message ("Z-axis reference")
DoOemButton(1024) 'Ref Z
Sleep(500)
While GetOemLed(809) = true
Sleep(200)
If GetOemLed(800) Then
Sleep(500)
Message"error while referencing"
End
End If
Wend
Sleep(500) 'wait
Message (" ") 'clear status line
Sleep(200) 'wait
Exit Sub
'--------------------------------------------------------------------------------
Ende:
End Sub