modifica MACRO fori

[birillo406]

buona sera
ho questa macro per forare :

Dim coordinate
Dim PrimoPunto
Open "C:\LAVORI\FORI\myFile.txt" For Input As #1
Line Input #1, PrimoPunto 'leggo la prima riga del file
Close #1
Open "C:\LAVORI\FORI\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:\LAVORI\FORI\FORI.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
Speak ("faile convertito") 'Avviso Vocale
Message "FILE SALVATO = C:\LAVORI\FORI\FORI.nc "


la profondita' e' Z-5 ed e' fissa ( nel senso che devo aprire la macro e cambiare la misura manualmente) vorrei modificarla ( se possibile ) che all'apertura mi chiede la misura per la profondita' ,dato che non e' nelle mie capacita'/competenze chiedo se qualcuno mi puo' aiutare
saluti

[torn24]

Ti avevo aiutato io con quella macro, sul forum cerano tante persone capaci che se ne sono andate, i migliori se ne vanno, restano i peggiori, io


Prova a vedere se risolvi cosi

Codice: Seleziona tutto

Dim coordinate
Dim PrimoPunto
Dim profondita
profondita=inputbox("Inserisci valore profondita foro, valore negativo ES: -5")
Open "C:\LAVORI\FORI\myFile.txt" For Input As #1
Line Input #1, PrimoPunto 'leggo la prima riga del file
Close #1
Open "C:\LAVORI\FORI\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:\LAVORI\FORI\FORI.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" & profondita & "  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
Speak ("faile convertito") 'Avviso Vocale
Message "FILE SALVATO = C:\LAVORI\FORI\FORI.nc "

[birillo406]

grazie torn24 perl'aiuto
funziona bene, poi ho provato a modificare la riga:

Print #1, "G81 G98 Z-" & profondita & " R2 L0 F100" & Chr(10)
aggiungendo "-" dopo la "z" , per praticita'( non dovendo scrivere -)
sembra funzionare, credi che ci siano problemi?
grazie

[torn24]

La tua modifica non crea problemi

[birillo406]

OK torn24 grazie di nuovo

[birillo406]

Buongiorno, grazie a torn24 che mi a modificato la macro (trovato qui in rete), funziona benissimo ,vorrei chiedere se e' possibile modificarla ancora,
vorrei aggiugere G83 ( giusto ? ) per beccheggio non so se sia fattibile ma ripeto la programmazione non e' il mio forte ( da 1 a 10 2) ,mi scuso se abuso della vostra pazienza !!!!!
saluti

[torn24]

Cosa intendi per beccheggio. Il 83 è il ciclo di foratura con scarico per fuori profondi. Magari si può modificare con un'altra finestra metti uno e faccio 81 metti due fa giri 83 poi se scegli il 83 ti chiede la quota di scarico 2 mm 5 o 4. Non ho capito bene cosa vuoi fare. Ho dettato al telefono

[birillo406]

buongiorno torn24 mio errore non era G83 ma G73 , la lavorazione si dovrebbe svolgere cosi':

"Il ciclo G73 è progettato per eseguire fori. Il movimento durante la
lavorazione avviene all'avanzamento di lavoro con ritiro periodico
dell'utensile. Il movimento verso la posizione iniziale dopo la lavorazione
avviene con avanzamento accelerato"

ovviamente all'inizio oltre la profondita' mi dovrebbe chiedere anche la misura del beccheggio
non so se sia fattibile forse chiedo troppo !!!!
grazie della tua disponibilita'
saluti

[torn24]

Il G73 dovrebbe rompere il trucciolo, si ferma per qualche istante a una profondita indicata con Q, poi riprende, ma non esce con la punta dal foro, il G83 è simile ma esce con la punta e evacua il trucciolo, lo toglie dal foro, anche li si programma Q, ti modifico la macro in modo che puoi scegliere G81 G73 G83.

Prova a vedere se va bene, l'ho fatta in fretta possono esserci errori.

Codice: Seleziona tutto

Dim coordinate
Dim PrimoPunto
Dim profondita
Dim ciclo
dim scarico
profondita=inputbox("Inserisci valore profondita foro, valore negativo ES: 5")


While ciclo <1 or ciclo >3
ciclo=inputbox("Seleziona ciclo di foratura 1=G81  2=G73  3=G83")
wend
if ciclo=2 or ciclo=3 then
scarico=inputbox("inserisci valore scarico per ciclo G73 O G83 ")
end if
Open "C:\LAVORI\FORI\myFile.txt" For Input As #1
Line Input #1, PrimoPunto 'leggo la prima riga del file
Close #1
Open "C:\LAVORI\FORI\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:\LAVORI\FORI\FORI.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)
if ciclo=1 then
Print #1, "G81 G98 Z" & profondita & "  R2 L0 F100" & Chr(10)
elseif ciclo=2 then
Print #1, "G73 G98 Z" & profondita & "Q" & scarico & "  R2 L0 F100" & Chr(10)
elseif ciclo=3 then
Print #1, "G83 G98 Z" & profondita & "Q" & scarico & "  R2 L0 F100" & Chr(10)
end if
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
Speak ("faile convertito") 'Avviso Vocale
Message "FILE SALVATO = C:\LAVORI\FORI\FORI.nc "

[birillo406]

OK , la funzione che desideravo era G83 ( avevo fatto un po' di confusione tra G73 e G83
l'ho testata a vuoto e sembra funzionare bene , ti ringrazio per il tempo che mi hai dedicato
buon feragosto
saluti

[birillo406]

buongiorno
oggi l'ho provato su un pezzo di legno
ho riscontrato 2 problemi

1 problema

caricato il file:
G54 G17 G90 G00 G40
G00 Z20
G01 Z5 F500
G83 G98 Z-10 Q2 R2 L0 F100
(---INIZIO PUNTI MEMORIZZATI-------)
X3 Y3
X10 Y10
X28.5498 Y10
(---FINE PUNTI MEMORIZZATI---------)
G80
M5
G00 Z20
M30
la cnc si posizionava a Z5 poi scendeva a Z2 e beccheggiava di continuo senza scendere, ho provato ad eliminare L0 (tra R2 e F100) e funzionava

2 problema

azzerato la macchina X0 Y0 lanciato il file invece di andare a X3 Y3 come primo foro la cnc faceva il primo foro a X0 Y0 poi passava a X3 Y3 ecc ecc
c'e' la possibilita' di correggerlo?
saluti

[torn24]

Scrivo dettando col telefono scusate gli errori. La macro non ha problemi perché scrive il codice iso il codice programma correttamente la macro va bene. Non devi togliere l0 dal ciclo di foratura altrimenti esegue il foro Dove si trova il tuo secondo problema hai tolto l0 si trovava in posizione x-0xy0 e ha forato lì con l0 non l'avrebbe fatto avrebbe iniziato a forare dalle coordinate geogra. Prova a scrivere un programma con g83 perché mi sembra strano che si comporti in questo modo dovrebbe scendere 2 mm e poi sollevarsi ad altezza r poi tornare giù e risollevarsi quando q è 2 mm ogni discesa 2 mm ritorna a valore r. Essendo che la macro va bene essendo che il codice programma è scritto correttamente non saprei dove il problema prova a usare correttamente gli 83 prova a scrivere un programmino con solo g83