?

nc_files/slot_troch.ngc

@@ -0,0 +1,114 @@
+o<slot_troch> sub
+	; o<slot> call [x1][y1] [x2][y2] [width] [ztop][zbot] [fincut] [mode]
+
+	#<M_CONVENTIONAL> = [FIX[#9/1] MOD 2 EQ 1]
+	#<M_BOTHWAYS>     = [FIX[#9/2] MOD 2 EQ 1]
+	#<M_PLUNGE>       = [FIX[#9/4] MOD 2 EQ 1]
+	#<M_OUTSIDE>      = [FIX[#9/8] MOD 2 EQ 1]
+	#<M_CLIMB>        = [FIX[#9/1] MOD 2 EQ 0]
+	#<M_ONEWAY>       = [FIX[#9/2] MOD 2 EQ 0]
+	#<M_HELIX>        = [FIX[#9/4] MOD 2 EQ 0]
+	#<M_INSIDE>       = [FIX[#9/8] MOD 2 EQ 0]
+
+	;G10 L0 ; re-read tool data
+	G90	  ; absolute x,y,z
+	G90.1 ; absolute i,j,k
+	M101  ; enable Z-axis (M102 disables)
+	G17   ; select XY plane for arcs
+
+	#<td> = #<_td>
+	#<tr> = [#<td>/2]
+	o1 if [EXISTS[#<_z_clearance>]]
+		#<z_clearance> = #<_z_clearance>
+	o1 else
+		#<z_clearance> = #5
+	o1 endif
+	o3 if [EXISTS[#<_stepover>]]
+		#<stepover> = #<_stepover>
+	o3 else
+		#<stepover> = [#<td>*0.4]
+	o3 endif
+
+	#<a> = [ATAN[#4-#2]/[#3-#1]]
+	#<r> = [[#5-#<_td>]/2]
+
+
+
+	o10 if [#<M_HELIX>]
+		o<helical_plunge> call [#1][#2] [#5-2*#8] [#6][#7] [#9]
+	o10 else
+		G0 Z#<z_clearance>
+		G0 X#1 Y#2
+		G0 Z#6
+		G1 Z#7
+	o10 endif
+	
+	;G1 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]]
+	;G3 X[#1 -[SIN[#<a>]*[#<r>]]] Y[#2 +[COS[#<a>]*[#<r>]]] I#1 J#2
+	;G0 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]]
+
+
+	#<l_total> = SQRT[[#1-#3]**2 + [#2-#4]**2]
+	#<l_step>  = [#<l_total>/FUP[#<l_total> / #<stepover>]]
+	#<l>       = 0
+	#<l_last>  = 0
+
+
+
+	o100 if [#<M_CLIMB>]
+
+		#<r> = [[#5-#<_td>]/2-#8]
+
+		G1 X[#1+#<l>*COS[#<a>] -[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] +[COS[#<a>]*[#<r>]]]
+		G3 X[#1+#<l>*COS[#<a>] +[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] -[COS[#<a>]*[#<r>]]] I[#1+#<l>*COS[#<a>]] J[#2+#<l>*SIN[#<a>]]
+
+		o200 while [#<l> LE #<l_total>]
+			G0 X[#1+#<l_last>*COS[#<a>] +[SIN[#<a>]*[#<r>]]] Y[#2+#<l_last>*SIN[#<a>] -[COS[#<a>]*[#<r>]]]
+			G1 X[#1+#<l>*COS[#<a>] +[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] -[COS[#<a>]*[#<r>]]]
+			G3 X[#1+#<l>*COS[#<a>] -[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] +[COS[#<a>]*[#<r>]]] I[#1+#<l>*COS[#<a>]] J[#2+#<l>*SIN[#<a>]]
+			G1 X[#1+#<l_last>*COS[#<a>] -[SIN[#<a>]*[#<r>]]] Y[#2+#<l_last>*SIN[#<a>] +[COS[#<a>]*[#<r>]]]
+			#<l_last> = #<l>
+			#<l> = [#<l>+#<l_step>]
+		o200 endwhile
+		
+		#<r> = [[#5-#<_td>]/2]
+
+		G1 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]]			; point 1
+		G3 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] I#3 J#4 	; point 2
+		G1 X[#1 -[SIN[#<a>]*[#<r>]]] Y[#2 +[COS[#<a>]*[#<r>]]]          	; point 3
+		G3 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]] I#1 J#2  	; point 4
+		G1 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]]			; point 1
+
+	o100 else
+		#<r> = [[#5-#<_td>]/2-#8]
+
+		G1 X[#1+#<l>*COS[#<a>] +[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] -[COS[#<a>]*[#<r>]]] 
+		G2 X[#1+#<l>*COS[#<a>] -[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>] +[COS[#<a>]*[#<r>]]] I[#1+#<l>*COS[#<a>]] J[#2+#<l>*SIN[#<a>]]
+
+		o200 while [#<l> LE #<l_total>]
+			G0 X[#1+#<l_last>*COS[#<a>] -[SIN[#<a>]*[#<r>]]] Y[#2+#<l_last>*SIN[#<a>] +[COS[#<a>]*[#<r>]]]
+			G1 X[#1+#<l>*COS[#<a>]      -[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>]      +[COS[#<a>]*[#<r>]]]
+			G2 X[#1+#<l>*COS[#<a>]      +[SIN[#<a>]*[#<r>]]] Y[#2+#<l>*SIN[#<a>]      -[COS[#<a>]*[#<r>]]] I[#1+#<l>*COS[#<a>]] J[#2+#<l>*SIN[#<a>]]
+			G1 X[#1+#<l_last>*COS[#<a>] +[SIN[#<a>]*[#<r>]]] Y[#2+#<l_last>*SIN[#<a>] -[COS[#<a>]*[#<r>]]]
+			#<l_last> = #<l>
+			#<l> = [#<l>+#<l_step>]
+		o200 endwhile
+		
+		#<r> = [[#5-#<_td>]/2]
+
+		G1 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] 			; point 2
+		G2 X[#3 +[SIN[#<a>]*[#<r>]]] Y[#4 -[COS[#<a>]*[#<r>]]] I#3 J#4	; point 1
+		G1 X[#1 +[SIN[#<a>]*[#<r>]]] Y[#2 -[COS[#<a>]*[#<r>]]] 			; point 4
+		G2 X[#1 -[SIN[#<a>]*[#<r>]]] Y[#2 +[COS[#<a>]*[#<r>]]] I#1 J#2  ; point 3
+		G1 X[#3 -[SIN[#<a>]*[#<r>]]] Y[#4 +[COS[#<a>]*[#<r>]]] 			; point 2
+
+	o100 endif
+
+	G0 X#3 Y#4
+	G0 Z#<z_clearance>
+
+
+
+o<slot_troch> endsub
+
+M2