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 - faby

Pages: « 1 2 3 4 5 6 7 8 »

General Mach Discussion / Re: Tool measure macro

« on: August 29, 2006, 01:55:02 PM »

I write this new version, but I have still a problem.
There's an error measuring the tool, from 0.15 to 0.5mm out, this is not due to the switch because when the tool hit it the measured value is always the same.

there's something that i don't know?

well, this is the new version.

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )

Code "G53 G00 Z-1" 'Move the tool all the way up
While IsMoving()
Wend
ZOld = Getdro(2)
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F600" 'Z move down untill hit
While IsMoving()
Wend
Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitOldA = GetVar(2002) 'Get the Position that the Porbe hit at

Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitOldB = GetVar(2002)

Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitOldC = GetVar(2002)

HitOld = (HitOldA + HitOldB + HitOldC)/3

Code "G90"
Code "G53 G00 Z-1"'Z move all way up
Code "G53 G00 X65 Y-200" 'Move to change tool position
While IsMoving()
Wend

MsgBox ("Insert the new tool")

Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F600" 'Z move down untill hit
While IsMoving()
Wend
Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitNewA = GetVar(2002) 'Get the Position that the Porbe hit at

Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitNewB = GetVar(2002)

Code "G91 G00 Z5"
Code "G31 Z-10 F60"
While IsMoving()
Wend
HitNewC = GetVar(2002)

HitNew = (HitNewA + HitNewB + HitNewC)/3

Diff = HitOld - HitNew
DiffABS =Abs(Diff)

If DiffABS=0 Then End
ZNew=0
If HitOld < HitNew Then ZNew = ZOld - DiffABS
If HitOld > HitNew Then ZNew = ZOld + DiffABS

Code "G90"
Code "G53 G00 Z-1"
While IsMoving()
Wend
Call setdro(2,ZNew)

'FxModel Creation

End

Bye

Show"N"Tell ( Your Machines) / Re: Lightspeed thanks to mach3

« on: August 23, 2006, 10:47:18 AM »

I'll convert it next week.

bye fab

Show"N"Tell ( Your Machines) / Re: Lightspeed thanks to mach3

« on: August 21, 2006, 10:11:38 AM »

Sure,
You can see a picture here: http://www.fxmodel.it/fresa.jpg

Working area 1260 x 600 x 230mm
3 x Sanyo step motor 4A 3.5 Nm
3 x Micro step driver (italian made) up to 7A and up to 4000 steps/r
Pre loaded ball screw 20x5mm (I don't know if the translation is right)
1Kw 3 phase spindle, ceramic bb

Working speed (with mach3) up to 8000 mm/min (other software) up to 3500 mm/min
Rapid speed (with mach3) 10000 mm/min (other software) 6500 mm/min
Measured precision +/- 0.015mm

Bye Faby
FxModel

General Mach Discussion / Re: Tool measure macro

« on: August 21, 2006, 09:57:10 AM »

Here it is, my macro:

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )

Code "G53 G00 Z-1" 'Move the tool all the way up
While IsMoving()
Wend
ZOld = Getdro(2)
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
HitOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G53 G00 Z-1"'Z move all way up
Code "G53 G00 X65 Y-200" 'Move to change tool position
While IsMoving()
Wend

MsgBox ("Insert the new tool")

Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
HitNew = GetVar(2002) 'Get the Position that the Porbe hit at

Diff = HitOld - HitNew
DiffABS =Abs(Diff)

If DiffABS=0 Then End
ZNew=0
If HitOld < HitNew Then ZNew = ZOld - DiffABS :A=1
If HitOld > HitNew Then ZNew = ZOld + DiffABS :A=2

Code "G53 G00 Z-1"
While IsMoving()
Wend
Call setdro(2,ZNew)

'FxModel Creation

End

You have to set in mach3 the position of the tool switch
It's not perfect yet, when I change the tool it remain out of 0.5/1mm but i think it's a switch problem.
I'll try to get 3-4 measure value, for the same tool and then keep the average value.

I'll be in vacation for another week so if I won't answer you know why

Bye Faby
FxModel Team

General Mach Discussion / Re: Tool measure macro

« on: August 20, 2006, 06:28:03 AM »

Here I am...
I was on holiday, I read the new posts only now.
I'll send the code as soon as possible, I keep it on another Pc.

Faby

General Mach Discussion / Re: Tool measure macro

« on: August 02, 2006, 12:53:59 PM »

Yeeeesss it works!!!

It's exactly what I want... I'll post it asap.

There's a list of all DRO? where I can find it?

Thanks Fabiano

General Mach Discussion / Re: Tool measure macro

« on: July 31, 2006, 03:15:06 PM »

I tryed it.... uhm sorry but it do exactly what I said.

the purpose of this macro is to change the tool and measure it for keep the zero point in the same plase as bofore the change...
I haven't a mobile probe to put on material

Pleeeeease, be patient with me, I don't do intentionally

I tryed this one, is the same as the old one except for the last 4 lines

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
ZposOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G53 G00 Z-0.1"'Z move all way up
Code "G53 G00 X65 Y-200" 'Move to change tool position
While IsMoving()
Wend

MsgBox ("Insert the new tool")

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
ZposNew = GetVar(2002) 'Get the Position that the Porbe hit at
Offs = ZposOld - ZposNew

ZNew = 0
ZNew = ZNew - Offs

Code "G53 G00 Z0.1"

Code "G00 x0 y0"

Code "g00 z" & ZNew
Call setdro (2,0.000)

This one work fine, but...
I don't like the fact that It has to go physically to the new zero to set it.

what do you think of my macro?
There a list of all DRO and system variables?

General Mach Discussion / Re: Tool measure macro

« on: July 31, 2006, 09:14:51 AM »

sorry i don't understand,

maybe because i'm a beginner.

Zpos = GetVar(2002) 'Get the Position that the Porbe hit at
it's ok, but after this it stay there on the probe

Code "G00 Z" & Zpos' Move to the point where the probe hit
if Zops=-5 (for exaple) it result that g00 z-5 then the machine stay there...

Call SetDRO(2,0.000) 'Set the Z to 0.00
so I set the zero point on the probe and not where it was before tool change...

there's a way to indicate the z zero position as machine cood? if it's possible I solved the problem

General Mach Discussion / Re: Tool measure macro

« on: July 31, 2006, 08:50:18 AM »

Well, I try it but... is not exactly what I'm looking for.

I write thins one...

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down until hit
While IsMoving()
Wend
ZposOld = GetVar(2002) 'Get the Position that the Probe hit at
Code "G53 G00 Z-0.1"'Z move all way up
Code "G53 G00 X65 Y-200" 'Move to change tool position
While IsMoving()
Wend

MsgBox ("Insert the new tool")

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down until hit
While IsMoving()
Wend
ZposNew = GetVar(2002) 'Get the Position that the Probe hit at
Offs = ZposOld - ZopsNew 'Make the difference with the old and new tool

Code "G53 G00 Z0.1"

Now i have the length difference between the old tool and new tool.
Is it possible to set the Z zero position as "machine coords"?

So i can get the old z pos as machine coords and correct it with the new one, without go on zpos with the machine...

$:-\$ I don't know if you understand...

There's a DRO or system var (getvar(2002) ex) list?

Fabiano

Show"N"Tell ( Your Machines) / Lightspeed thanks to mach3

« on: July 29, 2006, 06:06:16 PM »

Look at these 2 videos, you can see may machine working...

http://www.fxmodel.it/sgros.mp4
http://www.fxmodel.it/lightspeed.mp4

It's working at 4500 mm/min but it can reach 7500mm/min in working mode and 10.000 mm/min in rapid

Thanks to mach3

Pages: « 1 2 3 4 5 6 7 8 »