Mach 3 - zmiana wartości osi o zadaną wartość.

oskimos · Post napisał: **oskimos** » 10 maja 2016, 18:20

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.

djronin · Post napisał: **djronin** » 11 maja 2016, 07:00

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

oskimos · Post napisał: **oskimos** » 11 maja 2016, 07:13

Dziękuje bardzo, wszystko działa idealnie.

Pozdrawiam
Daniel

djronin · Post napisał: **djronin** » 11 maja 2016, 07:14

heh nie wątpię

oskimos · Post napisał: **oskimos** » 25 maja 2016, 14:16

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

k-m-r1 · Post napisał: **k-m-r1** » 25 maja 2016, 18:10

Na pulpicie jest coś takiego jak historia (dolny lewy róg) i chyba 10-15 ostatnio wczytanych plików wyświetla się.

djronin · Post napisał: **djronin** » 29 maja 2016, 02:39

LoadFile("C:\Mach3\Gcode\program.tap")

oskimos · Post napisał: **oskimos** » 02 cze 2016, 08:17

Znowu działa.

LoadFile("C:\Mach3\Gcode\program.tap")

djronin · Post napisał: **djronin** » 04 cze 2016, 08:58

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

Mach 3 - zmiana wartości osi o zadaną wartość.