FUNUC 系統圓周銑均布腰槽宏程序

FUNUC 系統圓周銑均布腰槽宏程序

#1=A;( 如圖,A 取值，則 B 必須取值 ; 正實數 )

#2=B;( 如圖,B 取值，則 A 必須取值；正實數 )

#3=C;( 腰槽張角 , 如果 A&B不為零， C必須取零；正實數 )

#4=I;( 腰槽中心所在圓直徑，正實數 )

#5=J;( 腰槽起始角度 , 從腰槽中間計，實數 )

#6=K;( 圓周均布腰槽個數，正整數 )

#7=D;( 刀補號 )

#8=E;( 每層切深，正實數 )

#9=F;( 腰槽圓弧走刀速度，正實數 )

#11=H;( 腰槽深度，正實數 )

#13=M;(粗加工方式 /M=0，不進行粗加工； M=1，層切單方向粗加工；

M=2,層切往複式粗加工； M=3，螺旋往複式粗加工； M=41，輪廓式粗

加工順銑； M=42，輪廓式粗加工逆銑； )

#17=Q;(精加工方式 /Q=0，不進行精加工， Q=1，精加工順銑； Q=-1，精加工逆銑 )

#18=R;( 腰槽圓弧半徑，正實數 )

#19=S;( 抬刀安全距離（相對於腰槽上表面 Z 坐標值） )

#20=T;( 刀具直徑， R=T則 Q=0；正實數 )

#21=U;( 輪廓餘量，當 M=0，1，2 時，輪廓餘量無效；正實數 )

#22=V;( 腰槽 R處走刀速度 )

#23=W;(Z向下刀走刀速度 )

#24=X;( 均布腰槽所在圓圓心 X軸坐標值；實數 )

#25=Y;( 均布腰槽所在圓圓心 Y軸坐標值；實數 )

#26=Z;( 均布腰槽上表面 Z 軸坐標值；實數 )

TXX M6 （XD=φT）

G0 G90 G(54~59) G43 HXX SXXXX M03

M08

G65 PXXXX A_ B_ C_ I_ J_ K_ D_ E_ F_ H_ M_ Q_ R_ S_ T_ U_ V_ W_

X_ Y_ Z_;

G0 G90 G28 Z0

M30

O1

G69

G52 X#24 Y#25

IF[#3 NE 0] GOTO1

#4=2*SQRT[#1*#1+#2*#2]

#3=2*ASIN[2*#2/#4]

N1

IF[2*#18 NE #20] GOTO2

#17=0

#21=0

IF[FIX[#13/10] EQ 0] GOTO2

GOTO101

N2

#100=#18-0.5*#20-#21

IF[#100 LE 0] GOTO101

IF[#13 EQ 0] GOTO21

#101=FIX[#11/#8]

IF[#101-#11/#8 NE 0] GOTO3

#101=#101-1

N3

#102=#11/[#101+1]

#103=0.5*#4*COS[0.5*#3]

#104=0.5*#4*SIN[0.5*#3]

#105=0.5*#4+#18

#106=0.5*#4-#18

#107=#105*COS[0.5*#3]

#108=#105*SIN[0.5*#3]

#109=#106*COS[0.5*#3]

#110=#106*SIN[0.5*#3]

#111=0

N4

G68 X0 Y0 R[#5+#111*360/#6]

G0 G90 X#103 Y#104

Z[#26+1]

IF[#13 EQ 1] GOTO5

IF[#13 EQ 2] GOTO6

IF[#13 EQ 3] GOTO7

IF[#13 EQ 41] GOTO8

IF[#13 EQ 42] GOTO9

N5

#112=#26-#11+#102*#101

G1 Z[#112] F[#23]

N101

M99;