宏程序实用例集

1.毛坯为四方块，分粗加工（椭圆柱）和精加工（椭圆半球体）； 2.粗加工以椭圆轮廓自上而下分层加工，刀具为平底立铣刀；

3.精加工时，加工路线，以自下而上0－90间等角度分层。每层以圆弧切入切出，根据当前层的长短半轴以椭圆轮廓水平环绕加工，直至椭圆球顶完成椭圆球面加工。 工件坐标系原点设在椭圆球体的中心，以球头刀的球心轨迹编程（不用刀具半径补偿），球头铣刀加工，对刀点为球刀底平面（非球心）。

O2003;椭圆柱台阶粗加工程序 FANUC 0I系统B类宏程序 G28; T02M06; G54; G90G00X48.Y50.M03S800; G43Z50.H02; G01Z15.F200; #1=40.; #2=30.; #3=15.; N50G00Z[#3-5.]; G01G41X#1Y0D02; #103=360.; N100#104=#1*COS[#103]; #105=#2*SIN[#103]; G01X#104Y#105; #103=#103-1.; IF[#103GE0]GOTO100; G00Z20.; G40X48.Y50.; SIEMENS系统R参数程序 T01M06; G54; G90G00X48.Y50.M03S800; Z50.; G01Z15.F200; R1=40.; R2=30.; R3=15.; XN50:G00Z=R3-5.; G01G41X=R1Y0D01; R103=360.; XN100: R104=R1*COS(R103); R105=R2*SIN(R103); G01X=R104Y=R105; R103=R103-1.; IF R103>=0 GOTOB XN100; G00Z20.; （直径24mm） G54; 工件外加工起点 长半轴（X） 短半轴（Y） 工件上平面坐标 每层下刀5mm 建立半径补偿至X半轴顶点 角度变量赋初值360 X坐标值变量 Y坐标值变量 椭圆加工 角度每次增量为1度 如果角度大于0，循环继续 回到加工起点 #3=#3-5.; IF[#3GE-8.]GOTO50; G00Z50.; M05; M30; 1.变量符号为＃ 2.表达式用［ ］括号 3.循环（跳转）标志为段号 4.循环判断语句IF GOTO 5.运算符：EQ等于、NE不等于、GT大于、GE大于或等于、LT小于、LE 小于或等于 G40X48.Y50.; 每层平面坐标值减5mm R3=R3-5.; 未到Z-8.循环继续 IF R3>=-8. GOTOB XN50; G00Z50.; M05; M30; 1.变量符号为R 2.表达式用（ ）括号 3.循环（跳转）标志为两个字母加数字加冒号 4.循环判断语句IF GOTOB 5.运算符：=、<>、>、>=、<、<= 6.R2中的2不能带小数点 7.IF GOTO语句字符间必空格 椭圆半球体精加工宏程序（变量参数设计见零件图）

O1032; #1=40.; 椭圆球面在X方向上的半轴长度a为40 #2=30.; 椭圆球面在Y方向上的半轴长度b为30 #3=15.; 椭圆球面在Z方向上的半轴长度c为15 #4=4.; 刀具半径（球头铣刀）为4 #17=2.; 环绕椭圆一周时的角度递增量为2 #18=1.5.; 自下而上分层时角度递增量为1.5（能整除） M03S1500;

N05G00X0Y0Z[#3+15.]; 快速移到椭圆球面中心上方 #11=#1+#4; 刀具中心在椭圆球面X方向上的最大半轴长度a’ #12=#2+#4; 刀具中心在椭圆球面Y方向上的最大半轴长度b’ #13=#3+#4; 刀具中心在椭圆球面Z方向上的最大半轴长度c’

#6=0; 自下而上分层时角度自变量，赋初始值为0（起点与X轴重合，终点为90度）

WHILE[#6LT90]DO1; 当#6小于或等于90，即还没到Z向椭圆顶时，循环1继续 #9=#11*COS[#6]; 根据椭圆参数方程,计算任意层时（随#6的角度变化）刀心在X向上的半轴长度

#7=#13*SIN[#6]; 任意层时（刀具中心在Z方向上的半轴长度 #8=[1-[#7*#7]/[#13*#13]]; ＃8的表达式是为了简化计算Y向半轴＃10而设 #10=SQRT[#8*#12*#12]; 任意层时刀具中心在Y方向上的半轴长度 N10 G00X[#9+#4]Y#4; XY轴移到切入起点坐标 N20 Z[#7-#4]; Z轴移到层的加工平面 N30 G03X#9Y0R#4F300; 圆弧切入 #5=0; 圆周初始角赋值 WHILE[#5LE360]DO2; 当＃5小于360度，循环2继续，完成一周的铣削 #15=#9*COS[#5]; 根据椭圆方程序计算X坐标值

#16=-#10*SIN[#5]; 计算Y坐标值 N40 G01X#15Y#16F2000; 直线拟合插补段 #5=#5+#17; 圆周角度递增量赋值 END2; 椭圆每层圆周加工循环结束 N50 G03X[#9+#4]Y-#4R#4; 圆弧切出 N60 G00Z[#7-#4+1.]; Z轴提刀 N70 Y#4; Y轴从切出点移到切入起点 #6=#6+#18; 分层角度递增量赋值 END1; 循环1结束 N80 G00Z[#3+30.]; 提刀至安全高度 M05; 主轴停 M30; 程序结束 第二种方法：

1206；高20，原点在-20mm.球刀半径4，自上而下 #1=0

#2=20;短半轴 #3=30;长半轴 #4=1 #5=90

WHILE [#5GE #1] DO1 #6=#3*COS[#5]+4 #7=#2*SIN[#5] G01X#6 Z#7 #8=360 #9=0

WHILE[#9LE#8]DO2 #10=#6* COS[#9] #11=#6*SIN[#9]*2/3 G01X#10Y#11 #9=#9+1 END1 #5=#5-#4 END2 M30

正多边形外轮廓宏程序

编制正多边形外轮廓加工宏程序，能实现边数为n边（n=3,4,5,6,8,9,10,12等，n能被360整除即可）的外轮廓自上而下环绕分层加工，同时通过控制多边形中心与其中一顶点的连线与水平方向的夹角，加工出不同摆放位置的正多边形（如图5-24所示，为编程方便，我们将编程起始点，即多边形的一个顶点A放在X水平轴上，要加工出所要求的摆放位置，需用G68指令进行坐标系旋转，旋转角度为OA与OA’的夹角）。

A'A'旋转(#23=90)旋转(#23=18)未旋转五边形旋转(#23=45)A'A0未旋转三边形0A0转四边形A未旋

图5-24

现以五边形为例，如图5-25所示，工件坐标系设在多边形中心的上平面，以刀具中心点编程（不用半径补偿功能），编程起始点为X轴上的A点，以顺铣方式（顺时针方向），根据标准正多边形的各边长总是相等，边长之间的夹角也相同的规律，用极坐标编程方式，循环完成每一边的加工。多边形宏程序的加工路线和变量设计如下：

oDβACB

图5-25

1）初始变量的设置：

#1=__; 正多边形的边数 #2=__; 正多边形外接圆的直径 #3=__; 轮廓加工的高度尺寸值 #4=__; 刀具半径（平底立铣刀） #5=__; Z向加工起始点坐标，设为自变量，赋初始值Z0（工件上平面） #15=__; 分层加工的层间距 #23=__; 正多边形旋转角度（正三角形为90，正四边形为45） 2）宏程序中变量及表达式 要应用极坐编程，需计算极半径和极角，如图5-25所示。

（1）#10，夹角β。

在多边形中心与某边中点做一连线OC，OC与OD之间的夹角β设为变量#10，赋值表达式为：#10=180/#1;（180除以边数）

（2）我们以刀具中心点编程，要计算出极半径OA，需确定△AOB 中OB的边长，计算OB边长首先要确定OC边长： ①在△OCD中，已知∠β（#10），边长OD（外接圆半径，#2/2），根据三角函数定义，余