Strona 1 z 1
Mach 3 - zmiana wartości osi o zadaną wartość.
: 10 maja 2016, 18:20
autor: oskimos
Witam
Potrzebuję zrobić przycisk w mach 3, który będzie odczytywał wartość osi x i dodawał do niej stałą ustaloną wartość.
Jeżeli można prosić o skrypt to był bym bardzo wdzięczy.
Pozdrawiam
----------------------------------
Wykombinowałem coś takiego:
While ismoving()
sleep(10)
Wend
setoemdro(800, 333)
Wyciągnąłem to z makra wysokości palnika, ale nie wiem jak dołożyć do tej wartości (przykładowej 333) aktualną wartość osi X.
: 11 maja 2016, 07:00
autor: djronin
Kod: Zaznacz cały
Sub Main()
Dim nVal, nOldPosX As Double
nVal = 333
nOldPosX = GetOEMDRO(800)
SetOEMDRO(800,nOldPosX+nVal)
While ismoving()
sleep(10)
Wend
End Sub
albo tylko
Kod: Zaznacz cały
SetOEMDRO(800,GetOEMDRO(800)+333)
While ismoving()
sleep(10)
Wend
: 11 maja 2016, 07:13
autor: oskimos
Dziękuje bardzo, wszystko działa idealnie.
Pozdrawiam
Daniel
: 11 maja 2016, 07:14
autor: djronin
heh nie wątpię
: 25 maja 2016, 14:16
autor: oskimos
Mam jeszcze jedno pytanie.
Jak zrobić, żeby po wciśnięciu przycisku w Mach3 wykonał się G-kod wpisany w ten przycisk, albo żeby otworzył się program "tap" który będzie umieszczony w katalogu mach3.
Chodzi o to że jest często powtarzanych kilkanaście programów (odcinany jest kawałek rury) i bardzo wygodnie było by mieć je od ręki na pulpicie i jednym kliknięciem aktywować, lub otwierać jednym kliknięciem bez szukania w folderach i tylko zostaje wciśnięcie start.
W edytorze pulpitu do macha jest opcja w przycisku "Execude G-Code", ale jak rozumiem wykonuję tylko jedną linię, a ja potrzebuje około 8 linii.
Pozdrawiam
Daniel
: 25 maja 2016, 18:10
autor: k-m-r1
Na pulpicie jest coś takiego jak historia (dolny lewy róg) i chyba 10-15 ostatnio wczytanych plików wyświetla się.
: 29 maja 2016, 02:39
autor: djronin
LoadFile("C:\Mach3\Gcode\program.tap")
: 02 cze 2016, 08:17
autor: oskimos
Znowu działa.
LoadFile("C:\Mach3\Gcode\program.tap")
: 04 cze 2016, 08:58
autor: djronin
oskimos pisze:Znowu działa.
LoadFile("C:\Mach3\Gcode\program.tap")
Można jeszcze tak..
Kod: Zaznacz cały
Dim sProg1, sProg2, sProg3
Dim sProg4, sProg5, sProg6
Sub Main ()
sProg1 = "C:\Mach3\GCode\Program1.tap"
sProg2 = "C:\Mach3\GCode\Program2.tap"
sProg3 = "C:\Mach3\GCode\Program3.tap"
sProg4 = "C:\Mach3\GCode\Program4.tap"
sProg5 = "C:\Mach3\GCode\Program5.tap"
sProg6 = "C:\Mach3\GCode\Program6.tap"
Begin Dialog ProgSelect 31,32,142,130,"Wybierz numer programu"
PushButton 16,24,110,10,"Program nr. 1",.but1
PushButton 16,40,110,10,"Program nr. 2",.but2
PushButton 16,56,110,10,"Program nr. 3",.but3
PushButton 16,72,110,10,"Program nr. 4",.but4
PushButton 16,88,110,10,"Program nr. 5",.but5
PushButton 16,104,110,10,"Program nr. 6",.but6
End Dialog
Dim Dlg1 As ProgSelect
Button = Dialog (Dlg1)
Select Case Button
Case 1
LoadFile(sProg1)
Case 2
LoadFile(sProg2)
Case 3
LoadFile(sProg3)
Case 4
LoadFile(sProg4)
Case 5
LoadFile(sProg5)
Case 6
LoadFile(sProg6)
End Select
End Sub