Threading

10K wrote: Here's a metric threading routine

Code:

o<threading-metric> sub (metric threading subroutine) (threading-metric.ngc) (July 11, 2016 - M Kennedy) (Change these values) #<_MajorDiameter> = #1 (Major Diameter) #<_Pitch> = #2 (Pitch mm) #<_Z_Finish> = #3 (+/- Z Length mm, Z) (Don't usually have to change these values) (PeakOffset is initial tool clearance) #<_PeakOffset> = #4 (= -.1 Offset -ext, +int, I) #<_TipRadius> = #5 (= 0.005 Tip Radius) #<_Z_LeadIn> = #6 (= 2.5 Z Leadin) #<_Z_Final> = #7 (= 50 Z Final Position) #<_Spring_Passes> = #8 (= 1 Spring Passes, H) #<_First_Cut_Depth> = #9 (= 0.18 First Cut Depth, J) #<_Depth_Regression> = #10 (= 1.2 Depth Regression, R) #<_CompoundSlideAngle> = #11 (= 29.5 Angle, Q) #<_TaperAmount> = #12 (= 0 Taper) #<_TaperType> = #13 (= 0 Taper Type, L) (check to see if tool set) o100 if [#5400 EQ 0] (msg, Tool not set) M2 o100 endif (Calculations) (calculate ThreadDepth, K) o110 if [#<_PeakOffset> GT 0] (internal = pitch * cos30 * 2 * 6/8 - 2 * tip radius) #<_ThreadDepth>=[#<_Pitch> * 1.299 - 2 * #<_TipRadius>] (thread height = pitch * cos30 * 2 * 5/8) #<_MinorDiameter>=[#<_MajorDiameter> - #<_Pitch> * 1.0825] #<_Diameter>=[#<_MinorDiameter> - #<_PeakOffset>] o110 else (external = pitch * cos30 * 2 * 7/8 - 2 * tip radius) #<_ThreadDepth>=[#<_Pitch> * 1.5155 - 2 * #<_TipRadius>] #<_Diameter>=[#<_MajorDiameter> + #<_PeakOffset>] o110 endif G7 G18 G54 G90 G94 G21 (set metric units) G95 (feed per revolution mode) M3 F0 S500 (Go to OD and Z Lead in) G0 X#<_Diameter> Z#<_Z_LeadIn> (Thread) G76 P#<_Pitch> Z#<_Z_Finish> I#<_PeakOffset> J#<_First_Cut_Depth> R#<_Depth_Regression> K#<_ThreadDepth> Q#<_CompoundSlideAngle> H#<_Spring_Passes> L#<_TaperType> G00 X#<_Diameter> G00 Z#<_Z_Final> G20 (set standard units) M5 o<threading-metric> endsub