西门子、法那克、哈斯的 球头宏程序

aiju

[hide]
转自数控中国宏程序版块
西门子、法那克、哈斯的  球头宏程序
https://www.shukongcn.com/bbs/vi ... uid=2&tid=22142
宏指令编的半球程序

西门子 802D 系统验证正确可用     R50的半球  中心为G54原点 工件上表面为z0    刀具：8mm键槽刀    D01=4.1(粗加工)  4.05 （半精） 4.0（精加工）
T1D1 G54 G90 G17                      定义刀具  坐标系  绝对值编程 加工平面

M03S1200                                   定义主轴转速

G00Z50                                      初始高度定位

X60 Y30                                     坐标定位

Z2                                              下降到安全高度

R1=0                                          赋值： 起始角度为0度

NNN:                                           标记（可以任意给）

R2=50*SIN(R1)                            X坐标和半径 角度 对应的 关系

R3=50*COS(R1)-50                      Z坐标和半径 角度 对应的关系 还要减去一个半径 不然刀具不往下加工 而是从下往上走

G01 Z=R1 F80                                刀具下刀第一次加工深度

G41 G01 X=R2 Y10 D01 F1500         从x60  y30 的地方往当前点加刀补

Y0                                                  切入

G02 I=-R2                                      走一个整圆

G01 Y-10                                       直线切出 这里G01 不能省略

G40 G01 X60 Y-30                          取消刀补

Y30                                               回到初始定位坐标

R1=R1+1                                            角度累计增加  粗加工角度给大点  半精给小点 精加工再小一点

IF R1<=90.1 GOTOB NNN                  条件转移   因为是半球 所以只要比90度小 就可以了  跳转到 NNN   和上面一致就可以了

G00 Z100                                           抬刀

X100 Y100                                     退刀

M05                                               主轴停止

M02                                              程序结束并返回开始  （西门子是用M02  要是打了M30程序结束但不返回）

法那克和哈斯系统

O0001

T0101 G54 G90 G17 ;                     定义刀具  坐标系  绝对值编程 加工平面

M03S1200 ;                                  定义主轴转速

G00Z50.;                                      初始高度定位

X60. Y30.;                                     坐标定位

Z2.;                                              下降到安全高度

#1=0;                                          赋值： 起始角度为0度

N10 #2=50*SIN[#1] ;                        N10 标记（可以任意给）   X坐标和半径 角度 对应的 关系

#3=50*COS[#1]-50 ;                     Z坐标和半径 角度 对应的关系 还要减去一个半径 不然刀具不往下加工 而是从下往上走

G01 Z#3 F80;                                刀具下刀第一次加工深度

G41 G01 X#2 Y10. D01 F150;        从x60  y30 的地方往当前点加刀补

Y0 ;                                              切入

G02 I-#2 ;                                   走一个整圆

G01 Y-10.                                  直线切出 这里G01 不能省略

G40 G01 X60. Y-30.;                          取消刀补

Y30.;                                               回到初始定位坐标

#1=#1+1                                            角度累计增加  粗加工角度给大点  半精给小点 精加工再小一点

IF[#1LE90.1]GOTO10                       条件转移   因为是半球 所以只要比90度小 就可以了  跳转到 N10  和上面一致就可以了  这里不要打GOTOBN10

G00 Z100.;                                         抬刀

X100; Y100. ;                                   退刀

M05 ;                                              主轴停止

M30;                                              程序结束并返回开始  （法那克和哈斯是用M30 要是打了M02程序结束但不返回）

[hide]

[ 本帖最后由 aiju 于 2007-5-11 14:21 编辑 ]

xxsoo