MODIFICA MACRO FILETTATURA

[birillo406]

Buongiorno, in rete ho trovato questa macro per filettatura e per le mie esigenze funziona bene,l'unica cosa e che quando lavora scende ( z-1 z-2 z-3 ecc ecc) sarebbe possibile modificarla in salita? es: z-5 z-4 ecc ecc. premetto che non e' nelle mie capacita'\competenze c'e' qualcuno che puo' aiutarmi?
saluti

macro :

REM info@cncrouter.ru
Title$ = "Filettatura interna"
Prompt$ = "Inserisci RAGGIO ( R ) in mm"
Prompt3$ = "Inserisci valore di profondità ( -Z ) in mm"
Prompt4$ = "Inserisci passo di profondità in mm"
Prompt5$ = "Inserisci avanzamento F"
Default_x$ = "10"
Default_z$ = "2"
Default_st$ = "0.5"
Default_f$ = "1000"
X% = 100
Y% = 100
x = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))
z = Abs(InputBox$(Prompt3$, Title$, Default_z$, X%, Y%))
st = Abs(InputBox$(Prompt4$, Title$, Default_st$, X%, Y%))
f = InputBox$(Prompt5$, Title$, Default_f$, X%, Y%)
OpenTeachFile "priam.tap"
code "G90"
code "G49"
code "M3 S18000"
code "G1 Z0" & " F800"
code "G0 X0 Y0"
code "G1 X"&x/2
code "F" &f
For i=st To z Step st
code "G2 X"&x/2 & " Y0" & " I-"&x/2 & " J0" & " Z-"&i
Next
code "G1 X0 Y0" & " F800"
code "G1 Z0"
code "M30"
CloseTeachFile
Call LoadTeachFile

[torn24]

Prova a vuoto, non ho mach3 installato per provare. Probabile che non funziona, prova e dopo vediamo se modificarla
Allora stai attento, se scende nel foro -20, devi sapere che l'utensile, non tocchi il foro, fermati un po piu inalto, se foro è -22 scendi a -20

Codice: Seleziona tutto

REM info@cncrouter.ru
Title$ = "Filettatura interna"
Prompt$ = "Inserisci RAGGIO ( R ) in mm"
Prompt3$ = "Inserisci valore di profondità ( -Z ) in mm"
Prompt4$ = "Inserisci passo di profondità in mm"
Prompt5$ = "Inserisci avanzamento F"
Default_x$ = "10"
Default_z$ = "2"
Default_st$ = "0.5"
Default_f$ = "1000"
X% = 100
Y% = 100
x = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))
z = Abs(InputBox$(Prompt3$, Title$, Default_z$, X%, Y%))
st = Abs(InputBox$(Prompt4$, Title$, Default_st$, X%, Y%))
f = InputBox$(Prompt5$, Title$, Default_f$, X%, Y%)
OpenTeachFile "priam.tap"
code "G90"
code "G49"
code "M3 S18000"
code "G1 Z0" & " F800"
code "G0 X0 Y0"
code "G1 Z-" & z & " F800" 'scende a fine foro, la zeta programmata esempio -20
code "G1 X"&x/2
code "F" &f
For i=z To 2 Step st ' ripete partendo da meno zeta, a 2 mm superiore a zero zeta, con passo uguale a passo filetto
code " G91 G3 " & " I-"&x/2 & " J0" & " Z"& st
Next
code "G90"
code "G1 X0 Y0" & " F800"
code "G1 Z0"
code "M30"
CloseTeachFile
Call LoadTeachFile
Top

[birillo406]

grazie per la risposta torn24
il gcode creato e' questo e non funziona, si posiziona al centro , scende poi risale senza filettare.

G90
G49
M3 S18000
G1 Z0 F800
G0 X0 Y0
G1 Z-7 F800
G1 X3
F1000
G90
G1 X0 Y0 F800
G1 Z0
M30

[torn24]

Prova cosi, e dimmi. Il passo deve essere positivo, 1.5 non -1.5, perche secondo me anche il codice di prima funzionava, non vorrei che hai messo il passo con valore negativo -1.5

Codice: Seleziona tutto

REM info@cncrouter.ru
Title$ = "Filettatura interna"
Prompt$ = "Inserisci RAGGIO ( R ) in mm"
Prompt3$ = "Inserisci valore di profondità ( -Z ) in mm"
Prompt4$ = "Inserisci passo di profondità in mm"
Prompt5$ = "Inserisci avanzamento F"
Default_x$ = "10"
Default_z$ = "2"
Default_st$ = "0.5"
Default_f$ = "1000"
X% = 100
Y% = 100
x = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))
z = Abs(InputBox$(Prompt3$, Title$, Default_z$, X%, Y%))
st = Abs(InputBox$(Prompt4$, Title$, Default_st$, X%, Y%))
f = InputBox$(Prompt5$, Title$, Default_f$, X%, Y%)
OpenTeachFile "priam.tap"
code "G90"
code "G49"
code "M3 S18000"
code "G1 Z0" & " F800"
code "G0 X0 Y0"
code "G1 Z-" & z & " F800" 'scende a fine foro, la zeta programmata esempio -20
code "G1 X"&x/2
code "F" &f
contatore=z
while contatore<=2 ' ripete partendo da meno zeta, a 2 mm superiore a zero zeta, con passo uguale a passo filetto
code "G91 G3" & "I-"&x/2 & " J0" & " Z"& st
contatore=contatore+st
wend
code "G90"
code "G1 X0 Y0" & " F800"
code "G1 Z0"
code "M30"
CloseTeachFile
Call LoadTeachFile
Top

[birillo406]

Buopngiorno torn24
come giustamente ai detto funzionava ho modificato le seguenti righe:

x = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))
con
xx = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))

code " G91 G3 " & " I-"&x/2 & " J0" & " Z"& st
con
code " G91 G3 " & " I-"&xx/2 & " J0" & " Z"& st

e tutto funziona alla perfezione !!!!
forse la sola " x " andava in conflitto ?

[torn24]

Se funziona bene.

Forse andava in conflitto ma non ne sono sicuro.

X% = 100

x = Abs(InputBox$(Prompt$, Title$, Default_x$, X%, Y%))

In visual basic 6, sarebbero due variabili diverse, ma in visual basic script di mach3, tutte le variabili sono uguali, e se % non lo riconosce darebbe conflitto, ma in realta non ne sono sicuro. Se funziona accontentiamoci

[birillo406]

torn24 grazie per l'aiuto