七、网式点阵孔群加工

七、网式点阵孔群加工

网式孔群如图4-10所示，图中S为起始边与X轴夹角，H为终点边与起始边间夹角，T为起始边孔距，R为起始边孔数，D为终边孔间距，F为终边孔数。其程序框图如图4-11所示。

宏程序为：

O9200　存储子程序

#101=#24；　基准点存储

#102=#25；

#100=0；

M99

O9205　　　　　网式点阵孔群子程序

#2=#101；　　　中间变量赋值

#3=#102；

#8=1；

#17=1；

#31=#18；

#32=#19；

#33=#20；

WHILE[#31 LE 40] DO 1；　进入循环体1

IF[#33 LE 0]GOTO 9001；　间距是否≤0

DO 2；　　　　　进入循环体2

#101=#2+#33*COS[#32]；　计算坐标值

#102=#3+#33*SIN[#32]；

X#101 Y#102；　　指令机床移动X、Y坐标

#2=#101；　　　X、Y坐标存储

#3=#102；

#31=#31-1；　　　孔数减1

IF[#31 LE 0] GOTO 9200；　间距是否≤0

END 2；　　　返回循环体2

N9002 #8=#8+1；　　取值次数加1

IF[#8/#17 EQ 2]GOTO 9003；　取值次数/行程次数是否=2

IF[#30 EQ #19] GOTO 9005；　所用角度是否等于第一组值

IF[#8 EQ（2*#17-1）]GOTO 9004；是否满足取行条件

N9005 #31=#18-1；　　孔数减1

#32=#19；　　　取第一组数据

#33=#20；

#30=0；

IF[#32 EQ #19] GOTO 9006；　转移

N9003 #31=1；　　取第二组数据

#32=#19+#11；

#30=#7；

#17=#17+1；

IF[#31 EQ 1] GOTO 9006；　转移

N9004 #81=#18-1；　　取第三组数据

#32=#19+180；

#32=#20；

#30=#32-180；

IF[#33 EQ #20] GOTO 9006；　转移

N9006 IF [#8/2 EQ #9] GOTO 9001；（取值次数/2）是否=列孔数

#100=#100+1；　　计算器计数

END 1；　　　返循环体1

N9001 M99；　　　程序结束

图4-10　网式点阵孔群

图4-11　网式点阵孔群框图

例4.4　如图4-12所示的网式点阵孔群加工，需要计算每个结点的坐标值，不但计算量大，程序冗长，且极易出错。如调用宏程序，则可解决上述问题，且节约数控内存。宏程序需要赋值参数为：S=8°H=50°，T=40，D=45，R=6，F=5。

程序编制为：

O100

N10 G00 G90 G54 X0 Y0；　　建立加工坐标系

N290 G00 X30.0 Y20.0；　　快速定位

N300 G43 Z10.0 H20 S500 M03；　设置刀补；主轴起动

N310 G99 G81 Z-25.0 R5.0 F60；　进入钻孔循环

N320 G65 P9200 X30.0 Y20.0；　　调用宏程序9200记忆基准点

N330 G65 P9205 S8 H50 T40 D45 F5 R6；　宏程序调出，进入网式加工

N340 G00 G49 Z 100.0 H20 M05；　取消刀补；主轴停转

N350 M30

图4-12　网式点阵孔群加工