Threading

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

 # NGCGUI Entries
   # Note: TKPKG (one or more) specifies tcl/tk apps to embed in axis tab pages
   TKPKG                = Ngcgui 1.0
   NGCGUI_FONT          = Helvetica -10 normal
   EMBED_TAB_NAME 	= NGCGUI
   EMBED_TAB_LOCATION 	= ntb_user_tabs
   EMBED_TAB_COMMAND 	= gladevcp -x {XID} ./pyngcgui_popupkeyboard.ui
   NGCGUI_PREAMBLE      = lathe_std.ngc
   NGCGUI_SUBFILE       = threading.ngc
   NGCGUI_SUBFILE       = threading-metric.ngc
   NGCGUI_SUBFILE       = npt_pipe.ngc
   NGCGUI_SUBFILE       = turning.ngc
   NGCGUI_SUBFILE       = taper-od.ngc
   NGCGUI_SUBFILE       = facing.ngc
   NGCGUI_SUBFILE       = knurling.ngc
   NGCGUI_OPTIONS   	= nonew noremove