急求数控镗铣床宏程序编程，高手来

求数控镗铣床西门子840D宏程序编程实例 邮箱406364519@qq.com~

我写了铣倒角用的
PROC XDD(REAL RTP,REAL RFP,REAL DPR,REAL RZJ,INT IFS) SAVE SBLOF DISPLOF
;创作日期：2012年1月11日
DEF REAL RBLAX1,RBLAX2
DEF INT IBL1,IBL2
IF ($P_SUBPAR[1]==FALSE)OR($P_SUBPAR[2]==FALSE)OR($P_SUBPAR[3]==FALSE)OR($P_SUBPAR[4]==FALSE)
LOOP
MSG("你填全了再用行不！！！前四项一个也不能少！！")
M00
ENDLOOP
ENDIF
IF (IFS0)AND(IFS1)AND(IFS10)AND(IFS11)
LOOP
MSG("你第五项输入的加工方式不正确")
M00
ENDLOOP
ENDIF
RBLAX1=$AA_IW[$P_AXN1] RBLAX2=$AA_IW[$P_AXN2]
IF (IFS==0)OR(IFS==1)
IF IFS==0
IBL2=4 IBL1=2
ELSE
IBL2=3 IBL1=3
ENDIF
G00 AX[$P_AXN3]=RFP+DPR
G01 G64 G[7]=IBL1 KONTC AX[$P_AXN1]=-RZJ/2+RBLAX1 AX[$P_AXN2]=RBLAX2
G[01]=IBL2 AX[$P_AXN1]=-RZJ/2+RBLAX1 AX[$P_AXN2]=RBLAX2 IP[$P_AXN1]=AC(RBLAX1) IP[$P_AXN2]=AC(RBLAX2)
G01 G40 G60 NORM AX[$P_AXN1]=RBLAX1 AX[$P_AXN2]=RBLAX2
G00 AX[$P_AXN3]=RTP
M17
ELSE
IF IFS==10
IBL1==3
ELSE
IBL1=4
ENDIF
G00 AX[$P_AXN1]=-RZJ/2+RBLAX1 AX[$P_AXN2]=RZJ/2+RBLAX2
G00 AX[$P_AXN3]=RFP+DRR
IF IIFS==10
G01 G41 G64 KONTC AX[$P_AXN1]=RBLAX1 AX[$P_AXN2]=RZJ/2+RBLAX2
G02 AX[$P_AXN1]=RBLAX1 AX[$P_AXN2]=RZJ/2+RBLAX2 IP[$P_AXN1]=AC(RBLAX1) IP[$P_AXN2]=AC(RBLAX2)
G01 AX[$P_AXN2]=IC(0.2)
ELSE
G01 G42 G64 KONTC AX[$P_AXN2]=RBLAX1 AX[$P_AXN1]=1RZJ/2+RBLAX2
G03 AX[$P_AXN2]=RBLAX1 AX[$P_AXN1]=-RZJ/2+RBLAX2 IP[$P_AXN1]=AC(RBLAX1) IP[$P_AXN2]=AC(RBLAX2)
G01 AX[$P_AXN1]=IC(-0.2)
ENDIF
G00 G60 AX[$P_AXN3]=RTP
G00 G40 NORM AX[$P_AXN1]=RBLAX1 AX[$P_AXN2]=RBLAX2
ENDIF
LOOP
MSG("程序内部错误")
ENDLOOP

G0G17G90G54M3S400F1000
Z50
R1=角度 R2=起始宽度（一般为0）
OO:
R5=R2*TAN(R1) R6=(圆半径)-R2
G1X=R6 Z=R5（走斜线）
G3I=-R6 J0(走圆)
R2=R2+(每次x轴让出的数值)
IF R2<=(X轴最终让出的数值也就是终点) GOTOB OO（循环模式）
GOZ50
M30
我们那儿是这样编的

法拉科的
%
O0000
#1=D(刀具直径)
#2=A(大孔直径)
#3=B/2(注意这是斜度角度，是锥度的一半)
#4=C(深度)
#5=TAN[#3]

#6=0.5(第一刀进刀深度,也可以是0)
G90 G0 G54
M03 S1000
M03
M08
WH[#6LE#4]DO1
#7=[#2]/2-[#1]/2
#8=#7-#6*[#5]
G0 X0 Y0
G0 Z-#6 （Z轴进刀，按已经钻好进刀孔算的）
G1 X#8 F1000
G02 I-#8
G0 X0 Y0
#6=#6+0.5 (每刀进刀深度0.5，可以根据精度要求改小比如 #6=#6+0.1)
END1
G0 X0 Y0
G0 Z200
M02
%
（）里面内容是注释，你可以试试，我在数控铣上常这样用。镗床也是一样的，变动不大，西
门子系统没怎么用过，你可以根据编程说明书上的格式改下就可以了。

法兰克
#1=A
#2=小径
#3=C
#4=0
g90g54g00x0y0
z10
N1000
g01x#1z-#4f500
#1=#1-0.2
#4=#4+0.2
if[#1LE#2]goto1000
随便写的一个，你可以参考参考

锥孔比例是多少？1：16？还是1：8的

---

沧县17389638133： 求数控镗铣床西门子840D宏程序编程实例 邮箱406364519@qq.com - ？
呈豪银治： 我写了铣倒角用的 PROC XDD(REAL RTP,REAL RFP,REAL DPR,REAL RZJ,INT IFS) SAVE SBLOF DISPLOF ;创作日期:2012年1月11日 DEF REAL RBLAX1,RBLAX2 DEF INT IBL1,IBL2 IF ($P_SUBPAR[1]==FALSE)OR($P_SUBPAR[2]==...

沧县17389638133： 求救数控宏程序高手 - ？
呈豪银治： #1=25(毛胚一半) #2=10(凸台一半) G90G00G54X30Y30M3S1500 G43H1Z50 #3=0(Z初始高度) WHILE[#3LE20]DO2 #3=#3+1(每次下刀量) G1Z-#3F500 #5=#1 WHILE[#5GT#2]DO1 #5=#5-4 IF[#5LE#2]THEN#5=#2 G1X#5Y#5F1000 X-#5 Y-#5 X#5 Y#5 END1 G90G0Z20 X30Y30 END2 G90G0Z100 M30

沧县17389638133： 数控铣床 宏程序怎么做 能详细说一下方法格式吗? - ？
呈豪银治： 宏程序不像代码一样有固定格式的 要有循环语句 要有运算 还要用公式 变量 一句两句说不清楚的 建议从现实中找人学或者直接学软件编程!像你说的凸轮的话 得三轴联动了 xy方向走出圆 z方向上下移动走出凸轮 而圆的直径一直变化一个壁厚就可以加工出来了!不过最好还是从简单容易理解的学起吧!!!1

沧县17389638133： FANUC数控系统的宏程序怎么编!那位高手给个实例!! - ？
呈豪银治： 统宏程序编程 一 变量普通加工程序直接用数值指定G代码和移动距离;例如,GO1和X100.0.使用用户宏程序时,数值可以直接指定或用变量指定.当用变量时,变量值可用程序或用MDI面板上的操作改变.#1=#2+100 G01 X#1 F300 说明...

沧县17389638133： 数控铣床(法拉克系统),镗8个等分孔(8/360°),请高手帮忙编下程序!(用循环镗孔指令G76和极坐标编) - ？
呈豪银治： 程序如下: G80 G40 G49 T01 M06 G90 G54 G0 X0 Y0 M3 S2000 G43 H01 Z50. M8 G16 G98 G76 X180. Y45. R...

沧县17389638133： 数控宏程序?高手进! - ？
呈豪银治： G90 G0 G54 X0 Y0 M3 S700 G43 Z100 H1 G1 Z0 F600 Y8 G2 X8 Y8 I7 J7 F600 #100=1 #101=32 WHILE[#100 LE #101] DO1 END1 G0 Z200 M5 M30 你这个程序是这样编写的吧 首先我没明白G2 X8 Y8 I7 J7 F600你这段编写的意思,你是想圆...

沧县17389638133： 数控编程(华中数控)请教高手,宏指令编程! - ？
呈豪银治： 常用切削指令有G71 普通切削循环指令,G73封闭式切削循环指令,G92螺纹切削指令,G92车槽指令,

沧县17389638133： 课程设计需要一个数控铣床的编程实例 要100条左右程序的 有高手指点下 急用 谢谢 - ？
呈豪银治： #1=100; #2=200; #3=8; #4=#3*0.8; #5=0 #6=1000; #7=200; #8=30; #9=#1-#3; #10=#2-#3; WHILE[#5GE#8]DO1 S=#6 M3 G0 G54 X0 Y0 Z[#5+1] IF [#1GE#2] GOTO1 IF [#1LT#2] GOTO2 N1; #11=FIX[#10/#4] IF [#1GE#2] GOTO3 N2; #11=FIX[#9/...

沧县17389638133： 数控铣的宏程序如何编程? - ？
呈豪银治： 数控铣的宏程序在编程当中首先要知道你所编的程序需要什么公式,比如椭圆要用椭圆方程或者是参数方程,其次就是要知道宏程序的表达式怎么才能加在程序中,其次就是要多用看一些高手们编的程序,如果要是具体说的话,那就太多了,这个内容需要10结课你才能明白一些,还是看看书有什么具体的内容具体回答好了

沧县17389638133： 数控宏程序 高手详解？
呈豪银治： N100 #130 =100;(如数学里的假设X=100 #112 =0; 同上 N200 IF [#112 GE 16] GOTO400; GE为大于等于 如果#112大于=16 跳到N400 IF [#[516+#112] LE 0] GOTO300;LE小于等于 IF [#[500+#112] GE #[516+#112]]GOTO3000; N300 #112 =#112+1; (#112加1 每次到这里都会加1 第一次0 第二次2 三次3 依次类推 GOTO200; N400 M99; N3000 #3000=1; M30; 以上条件不满足 执行下一段