MACRO MACH3 PER ACQUISIRE POSIZIONE PUNTI MANUALMENTE

[crestan2000]

Buon giorno a tutti
Sto cercando in rete informazioni per creare una macro con mach3 per acquisire punti x e y in manuale usando i tasti jog x+,x-,y+,y- .
Mi spiego meglio, il lavoro che devo svolgere è quello di forare con punta da 5mm pannelli per quadri elettrici senza fare nessun disegno
e programma cam.
Voglio tracciare i pannelli e fare dei punti dove devo eseguire i fori ,staffare il pannello sul piano della cnc e memorizzare i punti di foratura all 'interno di un file, spostandomi in giog sopra il punto tracciato.
Questi punti memorizzati su file verranno copiati e inseriti in un file dove ci sarà il codiie iso di foratura .
Per il momento ho provato a memorizzare la posizione della punta creando un nuovo tasto sullo schermo , e funziona.
Ma nel momento in cui esco dalla macro mi sposto su un' altro punto e con il tasto memorizzo la nuova posizione il file viene sovrascritto con la nuova posizione e i valori di x e y scritti in precedenza vengono persi.


Open "C:\Mach3\myFile.txt" For Output As #1
X = GetDRO(0)
Y = GetDRO(1)
Print #1, "X",X," ","Y",Y
answer=MachMsg("premi ok","conferma posizione foro",0)
Close #1

Vorrei riuscire a memorizzare i nuovi valori nello stesso file senza sovrascrivere le righe precedenti.

Grazie e confido in un vostro aiuto

[torn24]

Scrivo col telefono come hai aperto tu il file sovrascrive quello esistente prova a scrivere in questo modo aprire il file in questo modo
Open the file 'for append'.

This will erase the file:



Open "C:\path\to\file.txt" For Append As #1

[crestan2000]

ok ci provo

[crestan2000]

X61.31 Y-72.605
X69.41 Y-72.605
X69.41 Y-74.05
X68.535 Y-74.05


grazie mille funziona alla grande

[crestan2000]

Open "C:\Mach3\myFile.txt" For Append As #1

'Open "C:\path\to\file.txt" For Append As #1
'Open "C:\Mach3\myFile.txt" For Output As #1

X = GetDRO(0)
Y = GetDRO(1)
Print #1, "X",X," ","Y",Y
answer=MachMsg("premi ok","conferma posizione foro",0)
Close #1

[torn24]

Questa riga answer=MachMsg("premi ok","conferma posizione foro",0), messa cosi non impedisce mai la scrittura, premi o non premi avra gia scritto su file anche se annulli.

Porva una modifica

answer=MachMsg("premi ok","conferma posizione foro",0)
IF answer=1 then 'solo se posizionato e premi ok, avverra la scrittura su file.
Open "C:\Mach3\myFile.txt" For Append As #1


X = GetDRO(0)
Y = GetDRO(1)
Print #1, "X",X," ","Y",Y

Close #1
end if

[crestan2000]

ciao
ho provato molte volte ma non funziona l' if then end if
io mi posiziono memorizzo una due posizioni poi la terza posizione premo il bottone per memorizzare la posizione poi e miescie il messaggio io annullo con x della finestra e poi controllo il file ma all interno trovo la posizione memorizzata comunque

[torn24]

Cera la finestra di dialogo e ho mostrato come usarla, non ho mach3 installato, ma doveva funzionare in questo modo.
Mi posiziono, premo il pulsante con lo script, mi compare la casella di dialogo solo se premo ok memorizza.


Ma in se trovo abbastanza inutile, perche se mi posiziono e ho deciso di salvare su file, non devo prendere altre decisioni, non ho dubbi.
Per cui si potrebbe togliere completamente, e lasciare solo la scrittura file, da open a close, premo e memorizzo.

[crestan2000]

G54 G17 G90
M98 P1000
M5 M9
M30

O1000
G81 G98 Z-5 R2 L1 F200
(---INIZIO PUNTI MEMORIZZATI-------)

X0 Y0
X100 Y0
X100 Y-50
X0 Y-50

(---FINE PUNTI MEMORIZZATI---------)
G80
M99


Qui sopra ho copiato il programma che andrà in esecuzione su mach3.
Ho preso i punti memorizzati e li ho copiati all' interno delle parentesi in questo file, poi ho creato un pulsante su mach3 che carica
questo gcode per poi premere start e far partire la foratura.

Purtroppo mi fa il foro nella posizione in cui mi trovo per poi proseguire con gl' altri fori.

Come si può evitare che mi faccia il foro dove mi trovo senza inserire il primo foro x0 y0 nella riga del g81?

la macro per caricare il file di foratura su mach3 è il seguente:

'Create a new Teach File in Mach3\Gcode

MyTeachFile ="TeachMe.nc"

Err = AppendTeachFile(MyTeachFile)

If Err <> 0 Then

'Teach file created successfully
'Write some G Code to it

'esempio : Code "M30"

'Close the Teach file

CloseTeachFile()

'Now load the teach file for execution

LoadTeachFile()

Else

'OpenTeachFile failed

Message "Unable to open Teach File"

End If

[torn24]

è una questione di Gcode ISO non di macro.

Prova a scrivere cosi e dimmi se risolvi.
G81 G98 Z-5 R2 F200 L0 (L0 Zero dovrebbe indicare nessuna ripetizione e dovrebbe non eseguire il primo foro, su cnc Fanuc e Hass funziona, mai provato su mach3)

Di sotto le coordinate dei fori che devono essere eseguiti

G80

[crestan2000]

Ok nel pomeriggio ci provo
Grazie

[crestan2000]

funziona grazie

[crestan2000]

Oggi ho aggiunto due pulsanti ,uno che accende il laser di centraggio mentre l' altro lo spegne, con il seguente codice.

'attiva l' uscita 5 per accendere il laser di centraggio
ActivateSignal(OUTPUT5)

'disattiva l' uscita 5 che spegne il laser di centraggio
'DeactivateSignal(OUTPUT5)

Ora vorrei creare un ultimo bottone che eseguirà una macro ,la quale prenderà i punti memorizzati nel file .txt e li metterà all' interno
di un file .nc .
il file nc sarà ul file che avrà gia del codicie al suo interno ed io dovrò inserire i punti in una posizione esatta all interno di quel codice.

G54 G17 G90
M98 P1000
M5 M9
M30

O1000
G81 G98 Z-5 R2 L1 F200
(---INIZIO PUNTI MEMORIZZATI-------)

X0 Y0
X100 Y0
X100 Y-50
X0 Y-50

(---FINE PUNTI MEMORIZZATI---------)
G80
M99


il codice rosso è gia esistente nel file .nc mentre quello azzurro è presente nel file .txt

[torn24]

Il codice rosso sono poche righe di testo, puoi creare una macro che inserisce in una variabile il codice comune iniziale, e un altra variabile il codice finale macro.

La macro apre un file in lettura e salva le coordinate. apre un file in scrittura stampa, prima variabile, variabile coordinate, variabile finale.

Prova cosi non Se leggendo il file cosi mette il ritorno a capo nelle righe, se il file mette tutto in un unica riga le coordinate, faremo una modifica, PROVA E DIMMI

Codice: Seleziona tutto

Dim coordinate
Open "C:\Mach3\myFile.txt" For INPUT As #1
coordinate=Input(Lof(#1),#1) 'leggo tutto il file e salvo le coordinate nella variabile NON SO SE OTTENGO UNA SOLA RIGA O TANTE RIGHE
Close #1 ' chiudo il file delle coordinate
Open "C:\Mach3\FileProgramma.nc" for OUTPUT as #1 'Apro il file per la creazione del programma cnc
    print "G54 G17 G90" & chr(10) &(13) 
    print "M98 P1000" & chr(10) &(13) 
    print "M5 M9" & chr(10) &(13) 
    print "M30" & chr(10) &(13) 

    print "O1000"  & chr(10) &(13) 
    print "G81 G98 Z-5 R2 L1 F200"  & chr(10) &(13) 
    print "(---INIZIO PUNTI MEMORIZZATI-------)"  & chr(10) &(13) 
    print coordinate ' stampa coordinate foratura
    print " (---FINE PUNTI MEMORIZZATI---------)" & chr(10) &(13) 
    pirnt "G80" & chr(10) &(13) 
    print "M99" & chr(10) &(13) 
Close #1

[crestan2000]

Buona idea
Questa sera provo il tutto