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