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 »

911

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.

912

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

913

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

914

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

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

see next post

915

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

916

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 ?

917

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 ?

918

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.

919

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?

920

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

« on: February 22, 2018, 04:03:43 AM »

your code contains some Kind of height correction.
even it is very crowdy.

Code: [Select]

		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

-copy your code into vbscripter window (Operator --> VB Script Editor)
-use the green >|| button to step throught code
-watch z-axis dro