多邊形 宏程序
#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