On 3/6/24 15:49, gene heskett wrote:
specifically the command to set spindle speed MUST BE LOWERCASE
Nothing in a gcode file causing machine motion beyond
S1000 will execute. No error messages of any kind either. Found it by
surround the first move with (debug, msg) statements.
I have not gone to the new number the spindle syntax because that
reference in the docs is not very clear and doesn't actually explain it
that well, at least to me. Does it require a $ sign in front of the
spindle number? My limited exploration has not been successful at
rotating a spindle. Since I don't have anything that does qualify as a
spindle although I've both A and B axises now that can turn 400 rpms
synched to x or y, I would not call then spindles as their chucks are in
fact 3d printed square sockets.
The backplot showed the motion trace just fine for either s case. I have
killed it a couple times, but changing the view fixes it.
I changed the file back to a lowercase s:
s1000
and everything then seems to run normally.
So the old canary will live. ;o)> But he is certainly surprised.
Looks like its more than just what looks like a case sensitivity. What
its doing is actually only running the attached gcode once. If there is
any error that stops it, such as a probe trip when not in a probe move,
its all done until shut down, restarted and rehomed. There are two
places where one sub calls another. If there are no errors, it all
works. Is that a no-no in terms of error recovery, as in blowing away
the call stack?
Take care & stay well everyubody.
Cheers, Gene Heskett, CET.
--
"There are four boxes to be used in defense of liberty:
soap, ballot, jury, and ammo. Please use in that order."
-Ed Howdershelt (Author, 1940)
If we desire respect for the law, we must first make the law respectable.
- Louis D. Brandeis
( linear_bearings.ngc, copyright 25 Feb 2024 by Maurice E Heskett, CET )
#<_measure>=1.00000000 ( zero to drill after changing fr probe to 3mm cutter )
#<_hole_spc> = 60.00000000 ( nominal space beteen holes drilled )
#<_xy_spd> = 15
#<_z_spd> = 25
( first find starting x y z )
G17 G21 G40 G49 G54 G80 G90 G94 ( setup to use xy arcs, metric, )
( cancel diameter comp,cancel length off set, G54 coordinates system 1, )
( cancel any canned cycles, absolute distances, feed per minute mode )
( setup contact to ground to bearing, put probe in spindle with probe wire )
( NOTE Andy Pugh says this is a valid way to address an array: #[100 + #3] )
( but he didn't mention that debug was broken, so if we want to use it )
( to a global var, we must first copy the #<_gvar> = #[basenum+#50] )
( rather cumbersome proceedure )
(pre-alloocate the bounce vars for floats)
o<init_arrays> sub
(allocate vars)
#<_zx> = 0.00000000 (for z stuffs)
#<_zy> = 0.00000000 (for z stuffs)
#<_zz> = 0.00000000 (for z stuffs)
#<_xyx> = 0.00000000 (for hole stuff)
#<_xyy> = 0.00000000 (for hole stuff)
#<_xyz> = 0.00000000 (for hole stuff)
(so first, lets see if it actually works )
#50=0 ( set index to zeroth element )
#[200+#50] = 4 ( zeroth x location for z_check )
#[210+#50] = 1.117 ( zeroth y location for z_check )
#[220+#50] = -66 ( zeroth height to begin z search )
#[230+#50] = 9.5 ( zeroth hole xy x location )
#[240+#50] = 1.117 (zeroth holes xy y location )
#[250+#50] = [-1.75 + #[220+#50]] ( to see if math works)
(debug, init_arrays done)
o<init_arrays> endsub
o<get_hole> sub
( now, copy all that to global vars )
#<_zx> = #[200+#50] (z_check x)
#<_zy> = #[210+#50] (z_check y)
#<_zz> = #[220+#50] (z_check z)
#<_xyx> = #[230+#50] (hole_check x)
#<_xyy> = #[240+#50] (hole_check y)
#<_xyz> = #[250+#50] (hole_check z)
o<get_hole> endsub
o<show_args> sub
(now the acid test, did it work?)
(debug,lb 48 holenum=#50)
(debug,lb 49 zx=#<_zx> #<_zy> #<_zz>)
(debug,lb 50 xyx=#<_xyx> #<_xyy> #<_xyz>)
(debug,lb 51 #100 #101 #102)
(debug,show args done)
o<show_args> endsub
o<store_hole> sub
( uses hole arrays 230-240-250 but update all for this hole )
(#[200+#50] = #100)
(#[210+#50] = #101)
(#[220+#50] = #102)
#[230+#50] = #100 (metric x return from hole_finder)
#[240+#50] = #101 (metric y return from tholefinder)
#[250+#50] = #102 (metric z return from latest g38.2 z-70)
o<store_hole> endsub
o<next_hole> sub
#51 = [#50+1] ( make 51 into next member of array )
#[210+#51] = #101 (propagate current Y)
#[220+#51] = #102 (propagate current Z)
#[230+#51] = [#100 + #<_hole_spc>] (add hole_spc to x for next hole)
#[200+#51] = [#[200+#50] + #<_hole_spc>] (increment z check x spot
too)
#[240+#51] = #101 ( propagate found y)
#[250+#51] = #102 ( propagate found z)
o<next_hole> endsub
o<z_check> sub
(debug,lb zc 76 in z check)
s1000 (set spindle rpms)
(debug,zc spindle speed set 1000)
G1 F1500 z-50 (lift tp clear traveler)
(debug, lb zc 80 lifted to -50)
G1 f1500 x#<_zx> y#<_xyy> (goto location of z check)
G1 F1500 z[#<_zz> +1] (should be a mm above rail)
M4 (start spindle, backwards)
G4 P.3 (give move time to complete)
G38.2 F15 z-70 ( locate top of rail for 1st time)
#102 = #5063 ( save real z in mm)
(debug,lb zc 86 Z=102=#102)
M5 (stop spindle)
o<z_check> endsub
o<hole_check> sub
(debug,hc 87)
G1 f1500 z-50
G1 f1500 x#<_xyx> y#<_xyy>
G1 f1500 z[#102 -1] (#102 has ben set, should place into hole)
o<hole_finder> call
(debug,lb hc 93 X=100=#100) (metric?)
(debug,lb hc 94 Y=101=#101) (metric?)
o<hole_check> endsub
o<show_hole> sub
G1 f1500 z-50
G1 f1500 x#<_xyx> y#<_xyy>
G1 f1500 z[#<_xyz> +15] (should place above hole)
M4
G4 P10 (pause for inspection)
M5
o<show_hole> endsub
o<hole_finder> sub
G1 F1500 z-50 (clear)
G1 F1500 X#<_xyx> Y#<_xyy> (move to current hole)
G1 f1200 Z[#102+1]
(debug,HF 114 s/b just above current hole)
M4 (start spindle was a pause, press S to cntinue)
G1 F#<_z_spd> Z[#102 -1](s/b into hole)
G4 p.25
G38.2 F#<_xy_spd> X[#<_xyx>-10] (find left side)
#110=#5061 (record it)
G1 F1500 X#<_xyx> Y#<_xyy> (recenter)
G4 p.25
G38.2 F#<_xy_spd> X[#<_xyx>+10] (find right side)
#111=#5061 (record it)
G1 F1500 X#<_xyx> Y#<_xyy> (recenter current hole)
g4 p.25
G38.2 F#<_xy_spd> Y[#<_xyy>+10] (find back side)
#112=#5062 (record back side)
G1 F1500 X#<_xyx> Y#<_xyy> (recenter current hole)
G4 p.25
G38.2 F#<_xy_spd> Y[#<_xyy>-10] (find front side)
#113 = #5062 (record front y)
(calc centers)
#105 = [[#110+#111]/2.000000] (#105 is now center x)
#106 = [[#112+#113]/2.000000] (#106 is now center y)
#100 = #105
#101 = #106
(debug,hf 121 x=#100 Y=#101)
G1 F1500 x#105 y#106 Z-66 (put in center, clear)
g4 p10 (pause for inspection)
(lets see if this is accurate enough to work)
o<hole_finder> endsub
o<fixx> sub
#49=[#50-1]
o15 if [#49 ge 0]
(sub found from prev hole+hole_spc)
#125 = [#100 - [#[230+#49]+#<_hole_spc>]]
(check math)
(debug,fixx 145 space error=#125)
#<_hole_spc> = [#<_hole_spc> + #125/2]
(debug,fixx 147 new spc=#<_hole_spc>)
o15 endif
o<fixx> endsub
#50=0 (to start either loop below)
o<init_arrays> call (sets first element of each)
(debug,lb 153 index=#50)
o5 if [#<_measure> gt 0]
o1 do ( do while to find holes loop )
o<get_hole> call (inits for both z and xy)
o<show_args> call
o<z_check> call
(debug,lb161 z check done)
o<hole_check> call (calls hole_finder)
o<store_hole> call
o17 if[#50 gt 0]
o<fixx> call
o17 endif
o<next_hole> call (sets vars for next hole)
#50=[#50+1] ( make array addresses follow #50 for next pass thru loop )
o1 while[#50 le 7] ( stop short )
( might have to do last holes data after while loop )
o5 endif
o6 if [#<_measure> lt 1]
o7 do
o<get_hole>
o<show_args> (see what its got)
o<show_hole> (move to it)
(put drill hole call here)
#50 = [#50 +1]
o7 while [#50 le 7]
o6 endif
M2
_______________________________________________
Emc-developers mailing list
Emc-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-developers
