螺纹子程序 任意锥度 内正锥

优胜网络服务

%
O0001
G40 G17 G49 G80 G90 G54
T1 M06
M01
G0 G54 X0.0 Y0.0 S1500 M03
G43 Z100. H01 M08
G00 X0 Y0 Z50.
G00  Z3.
M98 P8102
G0 Z100.0
M09
M05
G53 Y0.0
M30
%


%
O8102
#1=10            角度
#7=4.6          大端直径
#17=1           螺距
#18=2.1        螺纹刀直径
#26=4           螺纹深度
#9=80           进给F
        
G91 G00 X0.0 Y0.0 Z0.0
#3=[#7-#18]/2        
#4=TAN[#1]                 
#5=[#17/4]*#4                  
#6=#3-[#26*#4]                     
G01 Z-[#26+3] F[#9*5]            
G01 X0.2 Y0.  F#9   
G01 X[#6-0.2] Y0            
WHILE[#3 GT #6] DO 1
#6=#6+#5                             
G03 X-[#6-#5] Y#6 I-[#6] J0.0 Z[#17/4]                          
#6=#6+#5                       
G03 X-[#6] Y-[#6-#5] I0.0 J-[#6] Z[#17/4]                     
#6=#6+#5                                             
G03 X[#6-#5] Y-[#6] I#6 J0.0  Z[#17/4]                    
#6=#6+#5                                            
G03 X#6 Y[#6-#5] I0.0 J#6 Z[#17/4]      
END 1                                 
G01 X-[#3-0.2] Y0
G01 X-0.2 Y0                 
G91 G00 Z50
G90      
M99                     
%