MACRO MACH3 PER ACQUISIRE POSIZIONE PUNTI MANUALMENTE

[torn24]

cera un errore (13) doveva essere chr(13)

Ho modificato.

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) & chr(13) 
    print "M98 P1000" & chr(10) & chr(13) 
    print "M5 M9" & chr(10) & chr(13) 
    print "M30" & chr(10) & chr(13) 

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

[torn24]

Mi sono accorto di altri errori Codice corretto print print# L0 ecc..

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 #1, "G54 G17 G90" & chr(10) & chr(13) 
    print #1, "M98 P1000" & chr(10) & chr(13) 
    print #1, "M5 M9" & chr(10) & chr(13) 
    print #1, "M30" & chr(10) & chr(13) 

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

[crestan2000]

Purtroppo non ho ancora provato la macro, in quanto ho avuto un problemino non ancora risolto con il file .set.
Nel trasferire il lavoro fatto dal Pc a cnc che ho costruito nel laboratorio in cui lavoro,ho riscontrato che lo screen non era come quello che ho sul pc di casa.
Ho copiato il file.set(mi sembra .set ),e dopo aver lanciato mach3 ,la grafica non ha tutti gli stassi elementi.
Mi piacerebbe prima risolvere questo problema e poi provare le macro sulla macchina di lavoro.
Grazie a chi mi può aiutare

[torn24]

Non sono molto pratico di screen personalizzati mach3, ma mi pare che avendo il file.set, c'è qualche voce nel menu per caricarlo e renderlo attivo, "load screen ma non mi ricordo" guarda tutte le voci dei menu e trovi qualcosa. Una volta avevo provato è era sufficiente caricarlo poi al riavvio di mach3 visualizzava la nuova GUI.

[crestan2000]

si si nel menu ce la possibilita di caricare un fil .set, e questo e stato fatto .
il file viene caricato ma la schermata sembra priva della grafica di sfondo dei pulsanti,in quanto essi vengono caricati ma sotto non ce la parte grafica.
devo capire esattamente come funziona questo tipo di file .
forse questo file va a leggere un qualche file grafico che si trova solo in una cartella sul mio pc di casa e non quello che ho sulla cnc .

[crestan2000]

https://www.youtube.com/watch?v=MrH7RNtko2g
in questo video ce la risposta
devo caricare anche il file bitmap

[torn24]

Non tutti gli screen usano bitmap e quindi non c'è sempre e non bisogna caricarla.
Con machscreen si possono inserire elementi standard come pulsanti, label ecc.. simile alla grafica di windows, ma non è una grafica molto bella, allora se si vuole qualcosa di "accattivante" che impressiona e si discosta dalla comune grafica usata in windows, si usano le bitmat, con immagini posso creare qualunque aspetto. Ma mai approfondito machscreen la gui standart mi ha sempre soddisfatto e non ho mai avuto altre esigenze

[crestan2000]

Dim coordinate
Dim POS1
Open "C:\Mach3\PUNTI\myFile.txt" For Input As #1
coordinate=Input(LOF(1),#1) 'leggo tutto il file e salvo le coordinate nella variabile
Line Input #1, POS1 ' Read line into variable.
Close #1 ' chiudo il file delle coordinate
Open "C:\Mach3\GCode\TeachMe.nc" For Output As #1 'Apro il file per la creazione del programma cnc
Print #1, "G54 G17 G90" & Chr(10)
Print #1, "G00 Z50" & Chr(10)
Print #1, POS1 & "F3000"
Print #1, "G81 G98 Z-5 R2 L0 F200" & Chr(10)
Print #1, "(---INIZIO PUNTI MEMORIZZATI-------)" & Chr(10)
Print #1, coordinate ' stampa coordinate foratura
Print #1, " (---FINE PUNTI MEMORIZZATI---------)" & Chr(10)
Print #1, "G80" & Chr(10)
Print #1, "M5 M9" & Chr(10)
Print #1, "M30" & Chr(10)& Chr(13)

Close #1

La macro scritta cosi funziona bene.
La due righe rosse le ho messe perche sto cercando di pescare dalla variabile "coordinate" solo il primo punto
di coordinate del foro in modo da portarmi sopra con la punta e sciendere a 5 mm con asse z.
purtroppo quelle linee di codice in rosso non funzionano,o meglio non danno nessun errore ma nel programma non escie il primo punto di foratura.

[torn24]

Visto che ti sto aiutando piu volte un singolo grazie mi sembra poco, ce ne vorrebbe due tre

Codice: Seleziona tutto

Dim coordinate
Dim PrimoPunto
Open "C:\Mach3\myFile.txt" For INPUT As #1
Line input #1, PrimoPunto 'leggo la prima riga del file
close #1


Open "C:\Mach3\myFile.txt" For INPUT As #1 ' riapro il file e rileggero tutto il file compreso la prima riga inserite in coordinate
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 #1, "G54 G17 G90" & Chr(10)
Print #1, "G00 Z50" & Chr(10)
Print #1, PrimoPunto & "F3000" Chr(10)
Print #1, "G81 G98 Z-5 R2 L0 F200" & Chr(10)
Print #1, "(---INIZIO PUNTI MEMORIZZATI-------)" & Chr(10)
Print #1, coordinate ' stampa coordinate foratura
Print #1, " (---FINE PUNTI MEMORIZZATI---------)" & Chr(10)
Print #1, "G80" & Chr(10)
Print #1, "M5 M9" & Chr(10)
Print #1, "M30" & Chr(10)& Chr(13)

Close #1

[torn24]

Prova con questo programmino, ho modificato .... poi dimmi se tutto OK

Codice: Seleziona tutto

Dim coordinate
Dim PrimoPunto
Open "C:\Mach3\myFile.txt" For INPUT As #1
Line input #1, PrimoPunto 'leggo la prima riga del file
close #1


Open "C:\Mach3\myFile.txt" For INPUT As #1 ' riapro il file e rileggero tutto il file compreso la prima riga inserite in coordinate
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 #1, "G54 G17 G90" & Chr(10)
Print #1, "G00 Z50" & Chr(10)
Print #1, PrimoPunto & "F3000" & Chr(10)
Print #1, "G81 G98 Z-5 R2 L0 F200" & Chr(10)
Print #1, "(---INIZIO PUNTI MEMORIZZATI-------)" & Chr(10)
Print #1, coordinate ' stampa coordinate foratura
Print #1, " (---FINE PUNTI MEMORIZZATI---------)" & Chr(10)
Print #1, "G80" & Chr(10)
Print #1, "M5 M9" & Chr(10)
Print #1, "M30" & Chr(10) & Chr(13)

Close #1

[crestan2000]

Ovvio.
Un Grazie è d’obbligo.
Comunque c’ero quasi!

[crestan2000]

Ora non sono a casa e quindi il programma lo proverò nel pomeriggio.
Una cosa che ho già fatto è stata quella di correggere questa riga:

coordinate=Input(Lof(#1),#1)
In questa
coordinate=Input(Lof(1),#1)
Togliendo il carattere #

E Po ho tolto chr(13) altrimenti veniva aggiunta una riga vuota tra una riga di codice iso e L’altro.

Grazie

[torn24]

Distrazione, non ricordo bene alcune funzione e non ho mach3 installato per provare, usavo VB6 negli anni 90, poi sono passato ad altri linguaggi. pero noto la differenza da chi lo ha usato solo per mach3, perché alcune cose in mach3 normalmente non si usano

[crestan2000]

Probabilmente riuscirò a provare nella tarda mattinata, visto il tempo che c’è fuori i miei ragazzi non giocheranno a calcio e io mi ritirerò nel mio garage.
Comunque grazie dell’aiuto.
Generalmente io uso il Cam per programmare la cnc, ma questo è un lavoretto “sfida” ,mi hanno detto che non si poteva fare ed io voglio dimostrare che si può.

[crestan2000]

Dim coordinate
Dim PrimoPunto
Open "C:\Mach3\PUNTI\myFile.txt" For Input As #1
Line Input #1, PrimoPunto 'leggo la prima riga del file
Close #1


Open "C:\Mach3\PUNTI\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\GCode\TeachMe.nc" For Output As #1 'Apro il file per la creazione del programma cnc


Print #1, "G54 G17 G90 G00 G40" & Chr(10)
Print #1, PrimoPunto 'scrive il primo punto
Print #1, "G00 Z50" & Chr(10)
Print #1, "G01 Z5 F500" & Chr(10)
Print #1, "G81 G98 Z-5 R2 L0 F100" & Chr(10)
Print #1, "(---INIZIO PUNTI MEMORIZZATI-------)" & Chr(10)
Print #1, coordinate ' stampa coordinate foratura
Print #1, " (---FINE PUNTI MEMORIZZATI---------)" & Chr(10)
Print #1, "G80" & Chr(10)
Print #1, "M5 M9" & Chr(10)
Print #1, "G00 Z50" & Chr(10)
Print #1, "M30" & Chr(10)& Chr(13)

Close #1

Ho cambiato un po di codice iso per rendere la lavorazione piu sicura e non andare a sbattere.
Il codicie che mi hai passato va benissimo.
Ora procedo a modificare un po di grafica .
grazie mille