good morning
I found the following macro for tracer points on the net,
I would like to modify it, if possible, in the following way:
when I click on the button a menu should come where I set the parameters:
Zmin = -20
Zmax = 20
Xmax = 5
Ymax = 5
StepZsu = 5
StepX = 1
Stepy = 1
AvanzZgiu = 200
AvanzZsu = 1000
AvanzX = 1000
AvanzY = 1000
Xiniz = 0
Yiniz = 0
I don't know if it's a feasible thing, given that I'm not capable of VB programming.
I thank those who could help me
ps I apologize for English use google translator
'da fare attenzione al valore StepX
'quando lo stilo tocca il pezzo durante la discesa si ferma e vengono registrate le coordinate nel file, poi risale del valore 'StepZsu e se il contatto si chiude, si sposta verso X+ del valore inserito in StepX
'se durante lo spostamento in X lo stilo tocca la macchina non si ferma, viene comunque fatto tutto lo spostamento pari a StepX, 'quindi il valore da mettere non deve essere maggiore della corsa massima dello stilo lungo l'asse X
' Macro scansione con tastatore 3D
' partenza scansione da Xiniz Yiniz Z0
' altezza max pezzo = Z0
' spostamenti in rapido a Zmax
' scansione da X0 a Xmax
Rem TASTATURA 3D
Speak ("PRIMA DI INIZIARE IMPOSTARE VALORI") 'Avviso Vocale
Speak ("confermare TASTATURA 3D") 'Avviso Vocale
Message "************ INIZIO TASTATURA 3D ************"
Sleep (1000) ' pausa di 1 secondi
response = MsgBox ("CONFERMARE TASTATURA 3D")
Zmin=-20 'valore minimo a cui scende la sonda, dipende dal pezzo da tastare e dalla lunghezza dello stilo
Zmax=20 'quota Z per lo spostamento in rapido dell'asse X quando la scansione arriva in fondo a Xmax e torna a Xiniz
Xmax=5 'angolo superiore destro fine scansione
Ymax=5 'angolo superiore destro fine scansione
StepZsu=5 'step spostamento in Z+ quando la sonda tocca
StepX=1 'risoluzione della scnsione, per Y può essere messo qualunque valore, per X non bisogna superare la corsa massimo dello stilo
StepY=1 'risoluzione della scnsione, per Y può essere messo qualunque valore, per X non bisogna superare la corsa massimo dello stilo
AvanzZgiu=200 'velocità per i relativi assi
AvanzZsu=1000 'velocità per i relativi assi
AvanzX=1000 'velocità per i relativi assi
AvanzY=1000 'velocità per i relativi assi
Xiniz=0 'angolo inferiore sinistro inizio scansione
Yiniz=0 'angolo inferiore sinistro inizio scansione
Code "G17 G21 G90"
Code "G1 Z" & Zmax & "F" & AvanzZsu
Code "G1 X" & Xiniz & "Y" & Yiniz & "F" & AvanzY
Code "G1 Z0 F" & AvanzZgiu
OpenDigFile()
Label0:
Code "G31 Z" & Zmin & "F" & AvanzZgiu ' Avvia scansione fino a Zmin
While IsMoving() ' Aspetto mentre si muove
Wend
Label1:
Code "G91"
Code "G1 Z" & StepZsu & "F" & AvanzZsu ' Salita Z dopo contatto tastatore
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G90"
If GetOemLed (825)<>0 Then ' verifica se tastatore attivo
GoTo Label1
End If
Label3:
Code "G91"
Code "G1 X" & StepX & "F" & AvanzX
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G90"
If GetOemLed (825)<>0 Then ' verifica se tastatore attivo
Code "G91"
Code "G1 X-" & StepX & "F" & AvanzX
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G1 Z" & StepZsu & "F" & AvanzZsu
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G90"
'If Zdro < Zmax Then
If GetVar(2002) < Zmax Then
GoTo Label3
Else
If GetOemLed (825)<>0 Then ' verifica se tastatore attivo
MachMsg("Errore, asse Z max superato","ERRORE",0)
End
Else
GoTo Label3
End If
End If
Else
'If Xdro < Xmax Then
If GetVar(2000) < Xmax Then
GoTo Label0
End If
Code "G0 Z" & Zmax
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G0 X" & Xiniz
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G91"
Code "G1 Y" & StepY & "F" & AvanzY
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G90"
'If Ydro > Ymax Then
If GetVar(2001) > Ymax Then
End
Else
GoTo Label0
End If
End If