求数控镗铣床西门子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 (IFS<>0)AND(IFS<>1)AND(IFS<>10)AND(IFS<>11)
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

《西门子840d数控编程实例加强版》工厂实际加工案例，来自一线的经典教材学数控必备，每个加工步骤都配有详细的解释，自学编程的好材料，例题后面都配有课后习题，依据实际加工为基础作者精心雕琢，循序渐进，可谓是学习840d编程的必胜“宝典”淘宝商铺：学子半价书屋