Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - TPS

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 »

2001

VB and the development of wizards / Re: manual tool change

« on: February 23, 2018, 01:58:36 AM »

hello,
this part is doing the lenght (height) correction

      zdif = zorig - (znew) ' controllo se l'utensile è più corto o piu lungo

      code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile
      While IsMoving()
      Wend
      Call SetDro (2,0) ' porto contatore Z a Zero

when your are Debugging (stepping throught) the script,
and excecute this line:

      code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile

you should see a move from the z-axis with the difference of tool length

later in code, with this line:

      Call SetDro (2,0) ' porto contatore Z a Zero

z-axis dro gets zeroed.

and now, with this code:

      code "G0 Z" & zpos ' riporto Z al valore di partenza (inizio programma)

it will return to the z-height where it left for toolchange, but with the corrected z-axis.
(z-axis will Display the same value as before toolchange)

2002

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 03:30:58 PM »

Quote from: birillo1959 on February 22, 2018, 01:58:49 PM

ok the macro works fine but in the end it does not change the values of the tip, maybe I have some wrong settings in the program I do not know, I can not get over it.
thank you anyway for the help offered.

please try to explain what you mean with "in the end it does not change the values of the tip" because i have tested again and cannot see what is going wrong.

the only explanation i have, the the probe is not seeing the hit of of touch plate.

maybe you can some photo's/Video what makes it a Little bit easer for me to understand what is going wrong.

maybe we can do a teamviewer session.

2003

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 11:48:21 AM »

ok now i had a Chance to run the code on my machine.
it did a Change from Long to short tool, and a Change from short to Long tool.
in both cases machine returned to the z-Position with the end of the new tool
where it started with the old tool.
so it was working fine here.

Code: [Select]


code "M5" ' fermo il motore

' controllo se la macchina è stata referenziata
If Not GetLed (7) Then ' è referenziato X
	vxled = 1
End If

If Not GetLed (8) Then ' è referenziato Y
	vyled = 1
End If

If Not GetLed (9) Then ' è referenziato Z
	vzled = 1
End If

Tled = vxled + vyled + vzled

If Tled = 3 Then ' se non sono referenziati X, Y e Z esco

	' parametri lavorazione
	xzero = GetDRO (30) ' memorizzo la posizione iniziale ASSOLUTA di cambio utensile
	yzero = GetDRO (31)
	zzero = GetDRO (32)

	xpos = GetDRO (0) ' memorizzo la posizione inizioale RELATIVA di cambio utensile
	ypos = GetDRO (1)
	zpos = GetDRO (2)

	fpos = GetDRO (18) ' memorizzo il feedrate iniziale

	' variabili del programma
	fmax = 400 ' imposto il feedrate massimo
	fmin = 100 ' imposto il feedrate per la palpata

	zavv = -50 ' distanza rapida di avvicinamento al palpatore
	zmin = -80 ' profondità oltre il palpatore
	xcut = 0 ' posizione X per cambio utensile
	ycut = 0 ' posizione Y per cambio utensile

	xtool = GetUserDRO (1200) ' posizione X del palpatore (Settings -> Tool Change Location)
	ytool = GetUserDRO (1201) ' posizione Y del palpatore
	ztool = GetUserDRO (1202) ' posizione Z del palpatore

	' inizio programma
	code "G0 F" & fmax ' porto il feedrate al valore massimo
	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend
	Call SetDro (2,0) ' porto il contatore Z a zero

	code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
	While IsMoving()
	Wend
	code "G0 Z" & zavv ' scendo in avvicinamento (fino a zavv)
	While IsMoving()
	Wend

	code "G0 F" & fmin ' porto il feedrate al minimo

	If IsSuchSignal (22) Then ' scendo sul palpatore per vedere la misura della punta attuale
		code "G31 Z" & zmin
		While IsMoving()
		Wend
	End If

	zorig = GetVar(2002) ' memorizzo il valore di Z della punta attuale
	code "G0 F" & fmax ' riporto il feedrate al massimo

	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend

	code "G53 G0 X" & xcut & "Y" & ycut ' vado in una posizione comoda per il cambio utensile
	While IsMoving()
	Wend

	MsgBox ("Ora si può cambiare la punta")

	Response = MsgBox ("E' stata cambiata la punta?", 4 , "ATTENZIONE")
	If (Response = 6) Then
		i = 99
	Else
		MsgBox ("Riprendo il lavoro con la punta iniziale")
	End If


	If i <> 99 Then ' non faccio nulla

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend
		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend
		code "G53 G0 Z" & zzero ' riporto Z al valore zero pezzo
		While IsMoving()
		Wend
		Call SetDro (2,0) ' porto il contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il pulsante 'LAVORAZIONE'")
		code "M3" ' riaccendo il motore e riprendo il lavoro da dove l'avevo lasciato

	Else

		code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
		While IsMoving()
		Wend
		code "G0 Z" & zavv ' scendo in avvicinamento
		While IsMoving()
		Wend

		code "G0 F" & fmin ' porto il feedrate al minimo

		If IsSuchSignal (22) Then ' scendo sul palpatore
			code "G31 Z" & zmin
			While IsMoving()
			Wend
			znew = GetVar (2002) ' memorizzo il valore di Z della nuova punta

			code "G0 F" & fmax ' riporto il feedrate al massimo

			code "G53 G0 Z0" ' ritorno Z ZERO macchina
			While IsMoving()
			Wend
		End If	

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend

		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend

		code "M3" ' riaccendo il motore

		zdif = zorig - (znew) ' controllo se l'utensile è più corto o piu lungo

		code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile
		While IsMoving()
		Wend
		Call SetDro (2,0) ' porto contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza (inizio programma)
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il tasto LAVORAZIONE")

	End If

' riprendo il lavoro da dove l'avevo lasciato

Else
	MsgBox ("Per poter cambiare l'utensile bisognava prima aver referenziato la macchina")
End If

2004

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 10:00:29 AM »

Attention, sorry posted the wrong code, here the right one

Code: [Select]


code "M5" ' fermo il motore

' controllo se la macchina è stata referenziata
If Not GetLed (7) Then ' è referenziato X
	vxled = 1
End If

If Not GetLed (8) Then ' è referenziato Y
	vyled = 1
End If

If Not GetLed (9) Then ' è referenziato Z
	vzled = 1
End If

Tled = vxled + vyled + vzled

If Tled = 3 Then ' se non sono referenziati X, Y e Z esco

	' parametri lavorazione
	xzero = GetDRO (30) ' memorizzo la posizione iniziale ASSOLUTA di cambio utensile
	yzero = GetDRO (31)
	zzero = GetDRO (32)

	xpos = GetDRO (0) ' memorizzo la posizione inizioale RELATIVA di cambio utensile
	ypos = GetDRO (1)
	zpos = GetDRO (2)

	fpos = GetDRO (18) ' memorizzo il feedrate iniziale

	' variabili del programma
	fmax = 400 ' imposto il feedrate massimo
	fmin = 100 ' imposto il feedrate per la palpata

	zavv = -50 ' distanza rapida di avvicinamento al palpatore
	zmin = -80 ' profondità oltre il palpatore
	xcut = 0 ' posizione X per cambio utensile
	ycut = 0 ' posizione Y per cambio utensile

	xtool = GetUserDRO (1200) ' posizione X del palpatore (Settings -> Tool Change Location)
	ytool = GetUserDRO (1201) ' posizione Y del palpatore
	ztool = GetUserDRO (1202) ' posizione Z del palpatore

	' inizio programma
	code "G0 F" & fmax ' porto il feedrate al valore massimo
	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend
'	Call SetDro (2,0) ' porto il contatore Z a zero

	code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
	While IsMoving()
	Wend
	code "G0 Z" & zavv ' scendo in avvicinamento (fino a zavv)
	While IsMoving()
	Wend

	code "G0 F" & fmin ' porto il feedrate al minimo

	If IsSuchSignal (22) Then ' scendo sul palpatore per vedere la misura della punta attuale
'		code "G31 Z" & zmin
		code "G31 Z" & zavv+zmin
		While IsMoving()
		Wend
	End If

	zorig = GetVar(2002) ' memorizzo il valore di Z della punta attuale
	code "G0 F" & fmax ' riporto il feedrate al massimo

	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend

	code "G53 G0 X" & xcut & "Y" & ycut ' vado in una posizione comoda per il cambio utensile
	While IsMoving()
	Wend

	MsgBox ("Ora si può cambiare la punta")

	Response = MsgBox ("E' stata cambiata la punta?", 4 , "ATTENZIONE")
	If (Response = 6) Then
		i = 99
	Else
		MsgBox ("Riprendo il lavoro con la punta iniziale")
	End If


	If i <> 99 Then ' non faccio nulla

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend
		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend
		code "G53 G0 Z" & zzero ' riporto Z al valore zero pezzo
		While IsMoving()
		Wend
		Call SetDro (2,0) ' porto il contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il pulsante 'LAVORAZIONE'")
		code "M3" ' riaccendo il motore e riprendo il lavoro da dove l'avevo lasciato

	Else

		code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
		While IsMoving()
		Wend
		code "G0 Z" & zavv ' scendo in avvicinamento
		While IsMoving()
		Wend

		code "G0 F" & fmin ' porto il feedrate al minimo

		If IsSuchSignal (22) Then ' scendo sul palpatore
'			code "G31 Z" & zmin
			code "G31 Z" & zavv+zmin
			While IsMoving()
			Wend
			znew = GetVar (2002) ' memorizzo il valore di Z della nuova punta

			code "G0 F" & fmax ' riporto il feedrate al massimo

			code "G53 G0 Z0" ' ritorno Z ZERO macchina
			While IsMoving()
			Wend
		End If	

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend

		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend

		code "M3" ' riaccendo il motore

		zdif = zorig - (znew) ' controllo se l'utensile è più corto o piu lungo

'		code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile
		code "G0 Z" & zpos-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile
		While IsMoving()
		Wend
'		Call SetDro (2,0) ' porto contatore Z a zero
		Call SetDro (2,zpos) ' porto contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza (inizio programma)
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il tasto LAVORAZIONE")

	End If

' riprendo il lavoro da dove l'avevo lasciato

Else
	MsgBox ("Per poter cambiare l'utensile bisognava prima aver referenziato la macchina")
End If

2005

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 09:55:52 AM »

see next post

2006

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 06:58:26 AM »

ok, i have made some changes on your code,
please test and Report values again.

Code: [Select]



code "M5" ' fermo il motore

' controllo se la macchina è stata referenziata
If Not GetLed (7) Then ' è referenziato X
	vxled = 1
End If

If Not GetLed (Cool Then ' è referenziato Y
	vyled = 1
End If

If Not GetLed (9) Then ' è referenziato Z
	vzled = 1
End If

Tled = vxled + vyled + vzled

If Tled = 3 Then ' se non sono referenziati X, Y e Z esco

	' parametri lavorazione
	xzero = GetDRO (30) ' memorizzo la posizione iniziale ASSOLUTA di cambio utensile
	yzero = GetDRO (31)
	zzero = GetDRO (32)

	xpos = GetDRO (0) ' memorizzo la posizione inizioale RELATIVA di cambio utensile
	ypos = GetDRO (1)
	zpos = GetDRO (2)

	fpos = GetDRO (18) ' memorizzo il feedrate iniziale

	' variabili del programma
	fmax = 400 ' imposto il feedrate massimo
	fmin = 100 ' imposto il feedrate per la palpata

	zavv = -50 ' distanza rapida di avvicinamento al palpatore
	zmin = -80 ' profondità oltre il palpatore
	xcut = 0 ' posizione X per cambio utensile
	ycut = 0 ' posizione Y per cambio utensile

	xtool = GetUserDRO (1200) ' posizione X del palpatore (Settings -> Tool Change Location)
	ytool = GetUserDRO (1201) ' posizione Y del palpatore
	ztool = GetUserDRO (1202) ' posizione Z del palpatore

	' inizio programma
	code "G0 F" & fmax ' porto il feedrate al valore massimo
	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend
	Call SetDro (2,0) ' porto il contatore Z a zero

	code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
	While IsMoving()
	Wend
	code "G0 Z" & zavv ' scendo in avvicinamento (fino a zavv)
	While IsMoving()
	Wend

	code "G0 F" & fmin ' porto il feedrate al minimo

	If IsSuchSignal (22) Then ' scendo sul palpatore per vedere la misura della punta attuale
		code "G31 Z" & zmin
		While IsMoving()
		Wend
	End If

	zorig = GetVar(2002) ' memorizzo il valore di Z della punta attuale
	code "G0 F" & fmax ' riporto il feedrate al massimo

	code "G53 G0 Z0" ' porto Z a ZERO macchina
	While IsMoving()
	Wend

	code "G53 G0 X" & xcut & "Y" & ycut ' vado in una posizione comoda per il cambio utensile
	While IsMoving()
	Wend

	MsgBox ("Ora si può cambiare la punta")

	Response = MsgBox ("E' stata cambiata la punta?", 4 , "ATTENZIONE")
	If (Response = 6) Then
		i = 99
	Else
		MsgBox ("Riprendo il lavoro con la punta iniziale")
	End If


	If i <> 99 Then ' non faccio nulla

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend
		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend
		code "G53 G0 Z" & zzero ' riporto Z al valore zero pezzo
		While IsMoving()
		Wend
		Call SetDro (2,0) ' porto il contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il pulsante 'LAVORAZIONE'")
		code "M3" ' riaccendo il motore e riprendo il lavoro da dove l'avevo lasciato

	Else

		code "G53 G0 X" & xtool & "Y" & ytool ' mi allineo sul palpatore
		While IsMoving()
		Wend
		code "G0 Z" & zavv ' scendo in avvicinamento
		While IsMoving()
		Wend

		code "G0 F" & fmin ' porto il feedrate al minimo

		If IsSuchSignal (22) Then ' scendo sul palpatore
			code "G31 Z" & zmin
			While IsMoving()
			Wend
			znew = GetVar (2002) ' memorizzo il valore di Z della nuova punta

			code "G0 F" & fmax ' riporto il feedrate al massimo

			code "G53 G0 Z0" ' ritorno Z ZERO macchina
			While IsMoving()
			Wend
		End If	

		code "G53 G0 X" & xzero & "Y" & yzero ' torno alla posizione X Y zero pezzo
		While IsMoving()
		Wend

		code "G0 X" & xpos & "Y" & ypos ' torno alla posizione X Y da dove ero partito
		While IsMoving()
		Wend

		code "M3" ' riaccendo il motore

		zdif = zorig - (znew) ' controllo se l'utensile è più corto o piu lungo

		code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile
		While IsMoving()
		Wend
		Call SetDro (2,0) ' porto contatore Z a zero
		code "G0 Z" & zpos ' riporto Z al valore di partenza (inizio programma)
		While IsMoving()
		Wend
		code "G0 F" & fpos ' riporto il feedrate al valore di partenza
		MsgBox ("Per riprendere il lavoro premere il tasto LAVORAZIONE")

	End If

' riprendo il lavoro da dove l'avevo lasciato

Else
	MsgBox ("Per poter cambiare l'utensile bisognava prima aver referenziato la macchina")
End If

2007

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 06:50:11 AM »

so it Looks like your 'new' tool is about 2.76mm longer than the 1st one.
is this correct ?

2008

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 06:33:43 AM »

Quote from: birillo1959 on February 22, 2018, 06:19:48 AM

ok yes the values are inside

and what are the values ?

2009

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 05:43:45 AM »

ok let's try again,

if you step through code in VB Scripter window by using the green >|| button on top, you see a Little yellow -> (arrow)
on the left side.

if this arrow is in line:

-code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile

you can put the mouse Cursor above the following variables (1 line above):

zdif
zorig
znew

and see the values as tool tip text.

2010

VB and the development of wizards / Re: manual tool change

« on: February 22, 2018, 04:58:57 AM »

if you step through the code when you come to this line

-code "G53 G0 Z" & zzero-(zdif) ' riporto Z al valore zero pezzo con la differenza utensile

you can put the mouse Cursor above the following variables (1 line above):

zdif
zorig
znew

witch values are in there?