Hello Guest it is September 29, 2023, 07:34:15 PM

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.


Topics - Jens H

Pages: 1
1
VB and the development of wizards / Tool change Z pos. remember
« on: May 14, 2009, 07:21:19 AM »
I will make a macro for tool change. I have seach the forum, but can't find something I can use.

I have a contact plate in a fixed position.
Its connected to input #13

The program:

I start the macro.
Machine move to the top pos. (G53 Z140 F3000)
Machine move to the xy pos for contact plate (maybe G53 X5 Y440 F7000)
Machine move down to higest tool pos. rapid (G53 Z50 F3000)
Machine move slowly until tool touch the contact plate.
Store the Z value in variable
Machine move to top pos. (G53 Z140 F3000)

Now I change the tool. Then i am finish I start the macro

Machine move to the top pos. (G53 Z140 F3000) ' for the most the current pos.
Machine move to the xy pos for contact plate (maybe G53 X5 Y440 F7000) ' for the most the current pos.
Machine move down to higest tool pos. rapid (G53 Z50 F3000)
Machine move slowly until tool touch the contact plate.
Set the Z value = variable
Machine move to top pos. (G53 Z140 F3000)

and now the tooltip from the new tool should be the same position as the old tooltip.

Now to the code. I am not strong in commands so here i have som holes i wish you could help me with.

Code "G53 Z140 F3000"
While IsMoving()
Wend

Code "G53 X5 Y440 F7000"
While IsMoving()
Wend

Code "G53 Z50 F3000"
While IsMoving()
Wend

Code "G53 Z0 F100"
**move until input#13 is high** (here i don't know what to do)
** if timeout the stop ** (some securety for reach the contact)
StoreValue=GetOEMDRO(2) ' z position
SetUserDRO (1000,StoreValuel) *remember the value

Code "G53 Z140 F3000"
While IsMoving()
Wend

(after the new tools is in place)

Code "G53 Z140 F3000"
While IsMoving()
Wend

Code "G53 X5 Y440 F7000"
While IsMoving()
Wend

Code "G53 Z50 F3000"
While IsMoving()
Wend

Code "G53 Z0 F100"
**move until input#13 is high** (here i don't know what to do)
** if timeout the stop ** (some securety for reach the contact)
Restorevalue=GetUserDRO(1000)
SetOEMDRO(2,Restore value) ' new z position

Code "G53 Z140 F3000"
While IsMoving()
Wend


Someone who can help me with the missing code?
Maybe I set input#13 up to probe og userinput or something. Not desided yet.

2
FAQs / Feed rate on start up.
« on: April 22, 2009, 08:06:27 AM »
When I start mach3 the Feed rate is 6 (6mm/min--very slooow)
When i JOG this feed rate is used. I can change it, but next time i start Mach3 it is 6 again. Where can I change this value so it's default?

3
VB and the development of wizards / New i Mach3 macro. Startup help.
« on: April 22, 2009, 03:05:54 AM »
I just startet to make macro, and to quickly get on, I have some questions.  :)

I have make this macro:

code ("G00 X0 Y0")

very simple. But want a function more. Something like:

'move to Z135 in machinecoordinate'
whilemoving ()
wend
code ("G00 X0 Y0")

I don't know hove to adress the move to the machine coordinate system.

4
General Mach Discussion / Setting new Zero.
« on: April 21, 2009, 03:42:58 AM »
I wan't to do this:

DRO state maybe:
X 124.5430
Y100.0000
Z 24.5678

I wan't to offset the Z by 20. Not temporarly.
I can do it this way: Calculate 20+24.5678=44.5678 (but if it is not 20 but 6.35 it get more tricky, and a calculater is needed.)
Or that way: G0 Z30, and the apply 20 so the DRO says 50.

But isn'nt there a way to set the DRO relativ to the current read out?

5
Show"N"Tell ( Your Machines) / My new CNC mill. JEH Guitars
« on: March 30, 2009, 09:08:47 AM »
I have used and uses a step-four mill for manufacturing Guitars ( www.jens-h.dk)

It was beginning to be to little and slow for my needs, and there was also some issues in stability.
I desided to build my own, designed to my needs. 
Data:
X=1050mm;Y=450mm;z=150mm (can handle the outline of a guitar.)
Ball guides and ball spindels.
Feed > 5000 mm/min.
Servo motors for loops feadback (I have destroyed som guitarbodys because of losing steps) nema23 DCservo.

Here is some pictures.
The construction drawing












I have run the machine with the motors, and the axis work well up to 7000mm/min. They are very strong. I have some problems with the limits switch, but the disapear when I change cable to screened cable.
Know I only have to do the final alignments, and get to know the software.

Pages: 1