CNC宏程序大全
#1=0 起始角度 0°
#2=16 边数 16
#4=360+#1
#3=10/COS[360/2*#2]
WHILE[#1LE#4]DO1
G01X[#3*COS[#1]]Y[#3*SIN[#1]]
#1=#1+360/#2
END1
#1=0 起始角度
#2=15 起始半径
#3=30 终止半径
WHILE[#2LE#3]DO1;
G01X[#2*COS[#1]]Y[#2*SIN[#1]]
#1=#1+1
#2=#2+15/200 跨度200增加半径15 (每旋转1°半径r增加15/200)
END1
G00 G90 G54 X0. Y0.
G43 H01 Z30.
Z0.
#1=0
#10=0.2
N10 #2=-7
#3=16.216-#1
#4=SQRT[30*30-#3*#3]
#5=#4-7
G01X[#5]Y0Z[#1]F1200
G02I[-#5]J0
#1=#1-#10
IF[#1GE#2]GOTO10
M3S200
Z-35.
#1=0
WHILE[#1LE35]DO1
#2=50-#1*TAN[45]
G1X#2Z[-35+#1]
G3I-#2
#1=#1+3
END1
M30
G43G00Z50H3
X0Y0
Z0
G41G01X17D01F1000
#1=0
#2=-7
N10 #3=7+#1
#4=SQRT[7*7-#3*#3]
#5=17-#4
G01X[#5]Y0Z[#1]F1000
G02I[-#5]J0
#1=#1-0.1
IF[#1GE#2]GOTO10
G40X0
G00X0Y0Z0
#1=-15
N10 #2=0
#3=27.059+15+#1
#4=SQRT[45*45-#3*#3]
#5=#4+8
G01X[#5]Y0Z[#1]F1200
G02I[-#5]J0
#1=#1+0.02
IF[#1LE#2]GOTO10
卧加自动找正宏程序
1.取两个任一点,用百分表压在同一个数(先压在旋转中心的负方向)
2.压好第一点运行程序 O0428;
#1=ABS[#5021];
#2=ABS[#5023];
M99;
3.压好第二点运行程序 O0429;
#3=ABS[#5021];
#4=ABS[#5023];
#5=#3-#1;
#6=#4-#2;
#7=ABS[ATAN[#6]/[#5]];
G91 G0 Z100.;
IF[#7GT90] GOTO10;
G91 G0 B#7;(先压在旋转中心的负方向才能不转反)
M30;
N10;
G91 G0 B-[180-[#7]];
M30;
4.#5021、#5023分别为X、Z轴当前的位置坐标;
5.机床自动运用反正切计算出当前夹角,B轴自动找正。
6.#6004为反正切的角度计算范围:#6004为“0”时,角度为0-360度;#6004为“1”时,角度为(-180)-180度;
7.Tan1-89度(为正数)分别对应Tan91-179度(为负数)Tan0、180为0,Tan90不存在;
此程序有局限性:不适用于梳齿盘类型B轴结构的机床(一度一分、和半度一分的)。
#1=0
WHILE[#1LE360]DO1
G01X[50*#1/180-50]Y[10*SIN[#1]]
#1=#1+1
END1
#1=50 圆孔直径
#2=40 圆孔深度
#3=30 刀具直径
#4=0 Z坐标设为自变量,赋值为0
#17=1 Z坐标每次递增量
#5=[#1-#3]/2 刀具回转直径
G00 G90 G54 X0 Y0 S1000 M3
G43 H01 Z30. M08
G00 X#5
Z[-#4+1]
G01 Z-#4 F200
WHILE[#4 LT #2]DO01
#4= #4+#17
G03 I-#5 Z-#4 F1000
END 01
G03 I-#5
G01 X[#5-1]
G00 Z100.
G91 G28 Z0. M09
M30
#1=8 ( 圈数 )
#2=2 ( 螺距 )
#3=0
#4=-360*#1
#5=10 ( 螺旋直径 )
#6=0
WHILE[#3GE#4]DO1
G01X[#5*COS[#3]]Y[#5*SIN[#3]]Z-#6
#3=#3-1
#6=#6+#2/360
END1
联系客服