Omzetten Mach3 programma naar Eding

[Peter Bijlholt]

Hallo allemaal,
Op jons-workshop.com heb ik een leuk programma gevonden voor het aanpassen van een flens op een dikkere buis.
Doordat ik met Eding werk en het programma in Mach3 staat, kan ik het niet aan de praat krijgen.
Kan iemand mij vertellen wat ik moet veranderen om het werkend te krijgen?
Groet Peter

[audiomanics]

Die M98 is een aanroep van een subroutine.. In Eding is dat gosub Een subroutine in eding begint met sub naam en eindigt met endsub.. Als ik dat in dat programma aanpas zie ik in de simulatie een paar keer een cirkel lopen met oplopende Z... Als dat de bedoeling is werkt dat dus:

Code: Selecteer alles

; Boiler bush.
; This Section to put machine into known, safe state
M5	;	Stop spindle
G17	;	Select XY plane
G21	;	Units are mm
G40	;	Cancel cutter radius compensation
G49	;	Cancel tool length offset
G61	;	Exact stop
G50	;	Reset all scale factors to 1.0
G90	;	Absolute distance mode
G94	;	Feed mm per minute mode - as mm selected above by G21
;	Title:		Boiler Bush cutter 2013
;	Programme Name	"boiler_bush_2013.tap"
;	Author:		Jon Freeman
;	Date:		March 2013

;	To produce boiler bushes with undulating flange to hug boiler profile
;	Never again to find safety valves pointing in different directions !!

; _____________________________________________
; Put user alterable parameter values in this section
; User is invited to alter the 6 parameters in this section.

#10 = 32.0	;	'S' Boiler Radius, bush flange to hug this radius
#11 = 16.4	;	'R' Bush Radius inserted into barrel drilling
#12 = 2.0	;	'T' Tool Radius
#13 = 90	;	Integer Number of Arcs used to complete circle 'Arcs_per_Circ'
; _____________________________________________
; Numbers about the tool
#44 = 50	;	Feed rate in mm per minute
#45 = 2400	;	Tool rotation RPM
; Programme proper starts here
#19 = 3.5 ; Up and clear value for Z
;	Boiler axis is parallel to Y axis
;	Therefore deepest cuts at Y +/- max, x = 0.0
;	Define Z = 0.0 as material surface
;	Bush Boiler joint face facing upwards to facilitate machining
;	Cut to start at X = Max, Y = 0.0, i.e. one of two highest points

F#44	S#45   ;Feed rate mm/min and spindle speed RPM
M3	; Start spindle clockwise at 'S' above RPM
G0	Z#19	;	Rapid Move Tool up clear of job and fixtures
G0	X[#11 + #12] Y0.0	;	Rapid Move to above Start position 'East'
G1	Z0.0	;	Slowly lower tool to touch work

#14 = 1.0	;	Gain +1.0, or -1.0 for upside down
gosub rout1	; Cut circle with gain = +1
#14 = 0.0	; Gain zero cuts flat circle
gosub rout1	; Cut circle with gain = 0
#14 = -1.0	; Gain neg cuts circle other way up
gosub rout1	; xxx Cut circle
G0	Z#19	;	Rapid Tool up well clear of the job
M5 M30	; Stop spindle, Programme End and Rewind
; Programme has ended  here
; _____________________________________________
; The Section below is for subroutines

sub rout1	; Undulating Circle Subroutine
;	Use - needs these five parameters set-up before calling:
;#10 = 'S' Boiler Radius, bush flange to hug this radius
;#11 = 'R' Bush Radius inserted into barrel drilling
;#12 = 'T' Tool Radius
;#13 = Integer Num of Arcs used to cut circle 'Arcs_per_Circ'
;#14 = Gain +1.0, or -1.0 for upside down, any value possible
;__________________________________________
#17 = [#11 + #12] ; tool path rad 'U' = 'R' + 'T'
#18 = [#10 * #10] ; Boiler radius squared for use in Pythagorus
#20 = 0.0		  ;	Start angle 'theta' around bush, degrees
#21 = [360.0 / #13]	; 'Ang_Step' = 360 / Arcs_per_Circ
gosub riet2	L #13	; Call sub 'Arcs_per_Circ' times
endsub ; Return from Circle subroutine - call once per circle
;_________________________________________
sub riet2	; Call this sub 'Arcs_per_Circ' times to cut one circle
#20 = [#20 - #21]	;	Angle to point at next arc destination
#32 = [#11 * sin[#20]]	;	distance 'y' from Y axis
;	Depth by Pythagorus
; = Gain * [sqrt['S' squared - 'y' squared] - Boiler rad 'S']
#34 = [#14 * [sqrt[#18 - [#32 * #32]] - #10]] ; cut depth
;	X = 'U' * Cos(angle theta), Y = 'U' * Sin(angle theta)
G2 X[#17 * cos[#20]] Y[#17 * sin[#20]] Z#34 R#17
endsub	;	Return from Arc subroutine called ONLY from riet1

Verder zelf maar even kijken wat je er aan wil aanpassen.

Kees

[Peter Bijlholt]

Bedankt Kees,
Nu kan ik flenzen maken die beter op de buis passen en met veel minder zilversoldeer vastzetten.
Ook krijg ik nu een mogelijkheid om de onderkant van schoorstenen en een stoomdom goed te laten passen.
Nogmaals bedankt.
Peter