FANUC 宏程序 请教高手

Question

%
O001
(G65P9002A70.0B30.0C20.0D25.Z1.F300.)
(#110=TOOL DIA)
(#111=PART DIA)
(#112=DEPTH)
(#113=REMAIN)
IF[#[2200+#7] EQ 0]THEN#3000=1(ERROR)
#110=#[2200+#7]
#131=0
#111=#1/2-#7
#130=#2
#113=#7
#112=#130
#133=0-#111
G0G90Z[#2+3.]
G0Z[#2+1]
G01G91X#111D#7F#9
N9800
#112=#130
#113=#112-#3
G90G03Z#130I#133F#9
#130=#130-#26
IF[#3 GE #130]GOTO9801
GOTO9800
N9801#130=#3
G90G03Z#130I#133F#9
I#133
G40G01G91X#133F500
G0G90Z110.
M89
M99

上面变量里 ： #3 #7 什么意思？ #130=#3何解？ M89是什么 ？

还有这个 ：

%
O5001
#1=#1+0
#3=#3+0
IF[#1EQ0]GOTO8001
#999=#1
N8001IF[#3EQ0]GOTO8002
#998=#3
GOTO9000
N8002#998=#5044
#951=#5301-#5321(DX=G58X-G59X)
#952=#5302-#5322(DY=G58Y-G59Y)
#953=#5303-#5323(DZ=G58Z-G59Z)
#955=SQRT[[#951*#951]+[#952*#952]](R)
#956=ASIN[#952/#955](DEG-G54)

。
。
。
。
这个计算坐标的宏程序，怎么理解？有人知道么 ？
#1 #3 #998 #999 是什么意思？
%
O5001
#1=#1+0
#3=#3+0
IF[#1EQ0]GOTO8001
#999=#1
N8001IF[#3EQ0]GOTO8002
#998=#3
GOTO9000
N8002#998=#5044
N9000
#951=#5301-#5321(DX=G58X-G59X)
#952=#5302-#5322(DY=G58Y-G59Y)
#953=#5303-#5323(DZ=G58Z-G59Z)
#955=SQRT[[#951*#951]+[#952*#952]](R)
#956=ASIN[#952/#955](DEG-G54)
IF[#951GE0]GOTO9002(DEG-ADJUST)
N9001#956=180.-#956(DEG-ADJUST)
N9002#961=#955*COS[#956-#998](X-C NOW)
#962=#955*SIN[#956-#998](Y-C NOW)
#971=[#953*SIN[#999]]+[#961*COS[#999]](X-BC NOW)
#973=[#953*COS[#999]]-[#961*SIN[#999]]-#953(Z-B NOW)
G10G90L2P1X[#971+#5321]Y[#962+#5322]Z[#973+#5303]
#1=0
#3=0
M99
%

这个是完整程序 是绕A轴旋转的 那你有比较安全的么？ 绕A轴 和 B轴的 都需要啊

这个和上面的那个都是在机台上用过的 不过我具体不清楚怎么用 ？

Answer 1

第一个程序：这是一个铣内孔的螺旋下刀程序。#1是要加工的圆的直径，#2是起始点的Z坐标，#3终点坐标，#7刀具半径的刀号你这里是25号刀补。#130=#3就是把#3里面的数据写入#130，其实这一句多余的，程序中直接使用#3还不是一样吗。
这位兄台你程序应该抄错了，1G91X#111D#7F#9这一句你又没有刀补调用指令G41或G42. 这一句IF[#[2200+#7] EQ 0]THEN#3000=1(ERROR)也不对，#2200是刀具长度的系统变量，你用长度变量加上半径变量还没见过这样的使用方法，应该是IF[#[2000+#7] EQ 0]THEN#3000=1(ERROR这样才对，
这一句#110=#[2200+#7]也不对的，也应该是#110=#[2000+#7]才对，
还有这里#111=#1/2-#7不应该是#1/2-#7，应该是#111=#1/2-#110这一句是计算刀具半径方向实际移动量的。所以你的这一句G01G91X#111D#7F#9里面的D#7是多余的可以删除掉。
里面用的跳转循环功能也不对，你这个程序漏洞百出根本就不能能使用，

第二个程序，这是一个用勾股定理计算角度的程序，应该要和其他程序配合使用的，你这样单独一个程序也没有变量赋值是无法解释的。因为你没有数据来源。
希望对你有帮助。
想要螺旋铣的程序我可以给你写一个。
第二个程序是算转角坐标的，我就说怎么看不懂呢你没有写全啊。他怎调用的你要写上来，这个挺好的，我想学习一下，就是G65P5001...............的这一段。
如果你的第一个程序是在用的那么你可能抄错了很多。看看是不是你发的时候写错了。追问

忙什么呢 ？ 等待你的回复啊 大哥 ！ 哦 这个我没写错啊 要不你给我发个吧 如果你还有这方面的 比如铣框的 等等 都需要啊 我们这里啥也没有啊 很艰苦啊 （要说下具体怎么用哦）
我邮箱 [email protected]
第二个程序是算转角坐标的 就直接是 G168 A35.
好像是要改 G65里的什么参数 为168 貌似就是把G65换成G168了吧

追答

前两天发给你的宏程序变量收到了吗？我发你一个内孔螺旋铣的吧？

本回答被提问者采纳

Answer 2

第一个是螺旋铣的宏程序，就是把简单的程序搞得复杂化了，第二个坐标转换的宏程序也搞得复杂，好多可以精简的地方追问

大师能否给个好点的啊？ 或者能告诉小弟怎么改也行，先谢谢了！

追答

我的这个是四轴机器上的%
O9013(X?Z?B?)
#5=#7003-#26(P1 Z-Z0)
#6=#7001-#24(P1 X-X0)
#9=SQRT[#5*#5+#6*#6]
#10=ATAN[#5]/[#6]
#10=#2+#10
#24=#24+#9*COS[#10](P2 X)
#26=#26+#9*SIN[#10](P2 Z)
G90G10L20P#3X#24Y#7002Z#26B[#7004+#2]
M99
%
螺旋铣
%
O9010
IF[#18LT#1]THEN#3000=18(R LT A)
IF[#1LT#26]THEN#3000=1(A LT Z)
IF[#7GE#4]THEN#3000=7(D GE I)
#11=#4003
#12=#1
#13=[#18-#12]/2
#10=[#4-#7]/4
G0G90Z#18
G91G01X-#10Y#10Z-#13F#9
G03X-#10Y-#10Z-#13R#10
WHILE[#12GT#26]DO1
#12=#12-#17
IF[#12LT#26]THEN#12=#26
G90G03I[#10*2]Z#12
END1
G90G03I[#10*2]
G91G03X#10Y-#10R#10
G01X#10Y#10F[#9*2]
G00G90Z100.
G#11
M99
%

Answer 3

你这是四轴还是五轴的啊，我只会三轴的，这东西我完全就跟看天书似的。