平行四边形点阵孔系宏程序编程

该孔系点阵为平行四边形，孔尺寸为Φ16mm，孔与孔之间间隔为55±0.1mm，第一行孔与X轴之间成15°±0.1°角，平行四边形锐角为65°，第一行孔的第一个孔与X轴、Y轴的距离均为50mm，零件的外轮廓尺寸为260mm、220mm孔深为25mm。

与普通编程相比，普通编程需要计算出每一个孔的具体尺寸，这对于精度控制要求较高的孔群零件，要达到图纸所需的尺寸精度，普通编程存在一定的困难；使用宏程序加工该孔系，仅需要保证第一行的第一个孔保证尺寸，剩余的孔就以第一个孔为基准，采用参考函数计算进行推进加工，加工比较容易实现。因此采用宏程序加工该零件。

刀具：麻花钻

编程参考：

#101=X;第一个孔的X坐标

#102=Y;第一个孔的Y坐标

#2=#101;第一个孔的X坐标赋值给#2

#3=#102;第一个孔的Y坐标赋值给#3

#4=1;平行四边形点阵孔系行孔数初始值

#5=1;平行四边形点阵孔群列孔数初始值

#6=15;起始边与X轴的夹角

#7=4;X轴孔数

#8=3;Y轴孔数

#9=55;X轴孔间距

#10=55;Y轴孔间距

#11=65;点阵孔系终边与起始边的夹角

#12=20;最终钻削深度

#13=50;安全高度

#14=500;钻削进给速度

O0001

G54G90G00X100.0Y100.0Z100.0;设置坐标系

M03S500;主轴转速

G43G00Z5.0;设置刀具长度补偿

X0.0Y0.0M07;机床移动，切削液打开

G65P3322;调用宏程序O3322

G00Z100.0M09;Z轴上升到100mm处，切削液关闭

G49;取消刀具长度补偿

X0.0Y0.0M05;主轴停止

M30;加工完毕，程序返回

O3322

WHILE[#4GT#7]DO1;如果#4大于#7，程序跳转

G00X#101Y#102;将刀具移动到孔的上方

G98G81Z#12R#13F#14;调用循环程序钻孔

#101=#2+#9*COS[#6];计算孔的X坐标值

#102=#3+#9*SIN[#6];计算孔的Y坐标值

#2=#101;将X坐标值赋值给#变量#2存储

#3=#102;将Y坐标值赋值给#变量3存储

#4=#4+1;孔数加1

END1;返回循环体1

WHILE[#5GE#8]DO2;

#101=#2+#10*COS[#6+#11];

#102=#3+#10*SIN[#6+#11];

G00X#101Y#102;

G98G81Z#12R#13F#14;

#2=#101;

#3=#102;

#5=#5+1;

END2;

#4=1;

WHILE[#4GE#7]DO3;

#101=#2-#9*COS[#29];

#102=#3-#9-SIN[#29];

G00X#101Y#102;

G98G81Z#12R#13F#14;

#2=#101;

#3=102;

#4=#4+1;

END3;

#5=1;

WHILE[#5GE#10]DO1;

#101=#2-#10*COS[#6+#10];

#102=#3-#10*SIN[#6+#10];

G00X#101Y#102;

G98G81Z#12R#13F#14;

#2=#101;

#3=#102;

#5=#5+1;

END1;

G80;取消固定循环

M99;返回主程序