salvataggio dro

Sezione dedicata a Mach3
Rispondi
birillo406
Newbie
Newbie
Messaggi: 25
Iscritto il: lunedì 1 marzo 2010, 20:00
Località: macerata

salvataggio dro

Messaggio da birillo406 » lunedì 25 luglio 2022, 16:49

buongiorno
ho trovato in rete questa macro memorizza x asse nel file
visto che non ne sono capace, è possibile modificarla per tutti gli assi? oppure possibilmente per "X e Y". Ringrazio chi mi può aiutare!

Questo esempio crea un file chiamato myFile.txt nella cartella Mach3. Quindi legge la posizione corrente dell'asse X e la scrive nel file. Infine chiude il file.

Dim X come Double
Open "C:\Mach3\myFile.txt" Per output come #1
X = GetDRO(0)
Stampa #1, X
Chiudi #1



Ed ecco il codice che apre il file creato nell'esempio precedente e ne legge una singola riga. Quindi chiede all'utente se è possibile spostare l'asse X nella posizione memorizzata nel file.

Dim Answer
Dim newPos As Double
Open "C:\Mach3\myFile.txt" For Input As #2 'Apri il file per la lettura
Line Input #2, newPos 'Leggi la prima riga del file

Answer = MsgBox ("È ok per spostare l'asse X su: " & newPos & "?", 1)

Se Answer = 1 Allora 'Hai premuto OK
Code "G0 X"& newPos 'Esegui lo spostamento
End If

Close #2 'Chiudi il file

torn24
God
God
Messaggi: 5046
Iscritto il: venerdì 1 febbraio 2008, 11:28
Località: Modena

Re: salvataggio dro

Messaggio da torn24 » martedì 26 luglio 2022, 7:45

Proviamo

Script di scrittura su file delle posizioni tre assi!


Open "C:\Mach3\myFile.txt" for output as #1
X = GetDRO(0)
Y=GetDRO(1)
Z=GetDRO(2)

print #1, X
print #1, Y
print #1, Z
close #1



Codice per lettura file dei tre valori assi x y z!


Open "C:\Mach3\myFile.txt" For Input As #2 'Apri il file per la lettura
Line Input #2, X 'Leggi la prima riga del file
Line Input #2, Y 'Leggi la seconda riga del file
Line Input #2, Z 'Leggi la terza riga del file
Answer = MsgBox ("È ok per spostare l'asse X su: " & x & "?", 1)

IF Answer = 1 THEN 'Hai premuto OK
Code "G0 X"& X 'Esegui lo spostamento
End If
Answer = MsgBox ("È ok per spostare l'asse Y su: " & Y & "?", 1)

IF Answer = 1 THEN 'Hai premuto OK
Code "G0 Y"& Y 'Esegui lo spostamento
End If
Answer = MsgBox ("È ok per spostare l'asse Z su: " & Z & "?", 1)

IF Answer = 1 THEN 'Hai premuto OK
Code "G0 Z"& Z 'Esegui lo spostamento
End If

Close #2 'Chiudi il file
CIAO A TUTTI !

Rispondi

Torna a “Mach3”