G74 X1=0 Y1=0 Z1=0 回換刀點
T1 M06 換刀
G54 建立工件坐標系
G0 Z100 D1 建立長度補償
X__ Y__ Z0 快速到位
G01 Z__ F100 進刀,進給速度
G41 X__ Y__ D01 建立刀補
....
.... 輪廓程序編制
....
GO Z5 退刀
G40 X__ Y__ 撤消刀補
<FORMULAS></FORMULAS>G00 G53 X0 Y0 Z0 回機床坐標原點
M30 程序結束
XYZ終點的位置
AP 極角
RP 極徑
G01 AP=25 RP=50
G17 G02(G03) X__ Y__ CR=__
G18 G02(G03) X__ Y__ CR=__
G19 G02(G03) X__ Y__ CR=__
圓心角大於180?0?2為負,圓心角小於180?0?2為正
CR不能描述整圓
G02(G03)AR=__ I__ J__ K__
AR:圓心角為正.I J K 增量
G02 AR=185 I__ J__
G02(G03)AR=__ X__ Y__ Z__
X Y Z終點坐標
CIP X Y Z I1= J1= K1=
X Y Z 終點坐標 I1 J1 K1 中間點坐標(絕對)
G02 X Y I=AC(10) J=AC(-10) I J 是絕對坐標
參數編程:
R1=5
R1=5+(- * /)5
R1=R2=(- * /)R3
R1=R2 R1=R1+R1+R2*SIN(R3+R4)
R1=R1+1 SIN(R1+(R2+(R2*(R3-R4))))
R1=20
R2=30
R4=40
R5=R1+R2*(R4-R2)+SQRT<√ˉ>(R12+R22)
轉移功能:
無條件轉移:GOTOB LABLE(段號)
GOTOF
例:
AAA:
GOTOB AAA
條件轉移:
IF () GOTOB(F) LABEL
例:(LX3.TXT)
%_N_LX3_MPF
;$PATH=/_N_MPF_DIR
R1=60 最大槽半徑
R2=5 半徑遞減量
R3=10 總槽數
R4=6 槽深
G74 Z1=0
T01 M06
G55
G0 Z100.0 D01
G0 X0 Y0 Z10 S1000 M03
G01 Z=-R4 F100
AAA:
G03 X0 Y0 I0 J=R1
R1=R1-R2
R3=R3-1
IF R3>0 GOTOB AAA
G0 Z100
M30
例:(LX4.TXT)
R1=5
R2=10
R3=5
R4=10
G74 Z1=0
T01 M06
G55
G0 Z100.0 D01
G0 X0 Y0 Z10 S1000 M03
AAA:
G01 X=R1 Y=0 F100
G01 Z=-R3
G03 X=R1 Y0 I=-R1 J0
G01 Z10
G0 X0 Y0
R1=R1+R2
R4=R4-1
IF R4>0 GOTOB AAA
G0 Z100
M30
例:(LX5.TXT)
%_N_LX5_MPF
;$PATH=/_N_MPF_DIR
R1=1
R2=100
R3=R2-R1
R4=SQRT(R2*R2-R3*R3)
G74 Z1=0
T01 M06
G55
G0 Z120.0 D01
G0 X0 Y0 S1000 M03
G01 Z110 F100
AAA:
G01 X=R4
G01 Z=R3
G02 X=R4 Y0 I=-R4 J0
R3=R3-1
R4=SQRT(R2*R2-R3*R3)
IF R3>=0 GOTOB AAA
G0 Z150
M30
例:(LX6.TXT)
%_N_LX6_MPF
;$PATH=/_N_MPF_DIR
R7=30
R8=0.5
R9=30-(R7-R8)
R17=10+R9/0.6
G74 Z1=0
T01 M06
G55
G0 Z30 D01
G0 X0 Y0 Z50 S1000 M03
G01 Z10 F100
AAA:
R1=R17
R2=R17/2
R3=-R17/2
R4=-R17
R5=-R17/2
R6=R17/2
R11=0
R12=SQRT((R17*R17)-((R17/2)*(R17/2)))
R13=SQRT((R17*R17)-((R17/2)*(R17/2)))
R14=0
R15=-SQRT((R17*R17)-((R17/2)*(R17/2)))
R16=-SQRT((R17*R17)-((R17/2)*(R17/2)))
G01 X=R1 Y=R11
G01 Z=-R9
X=R2 Y=R12
X=R3 Y=R13
X=R4 Y=R14
X=R5 Y=R15
X=R6 Y=R16
X=R1 Y=R11
R9=R9+0.5
R17=10+R9/0.6
R7=R7-0.5
IF R7>=0.5 GOTOB AAA
G0 Z100
M30