iCAx开思网

标题: 西门子、法那克、哈斯的球头宏程序 [打印本页]

作者: aiju 时间: 2007-5-11 14:17
标题: 西门子、法那克、哈斯的球头宏程序
[attach]628593[/attach][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 时间: 2009-4-2 21:43
有没有简单入门的资料啊

欢迎光临 iCAx开思网 (https://www.icax.org/)