西门子开发用户循环的技巧教程

　　此循环开发之初是为了在镗孔时使刀具在距离最终深度一定距离时，自动地改变进给和转速。程序源代码（参数和标准循环顺序一样，各参数为返回平面、参考平面安全距离、最终深度坐标、孔深、距离最终坐标需要变换的距离、变换后的进给及变换后的转速）如下：

%_N_TMK_SPF

;$PATH=/_N_CUS_DIR

PROC TMK(REAL RTP,REAL

RFP,REAL SDIS,REAL DP,REAL

DPR,REAL RJS,REAL JSF,REAL JSS)

SAVE SBLOF DISPLOF

;VERSION: 11.5.31 MAY 31, 2011

;CHANGE : 11.5.31 MAY 31, 2011

;DEVELOPER: KECHENGCUI

DEF REAL RBLS,RF,RJSF,RJSS

DEF AXIS A_3

DEF INT IPB5

DEFINE LX AS G01 G60 G90

DEFINE LY AS G00 G64 G90

A_3=$P_AXN3

RBLS=$P_S[1]

IF ($P_SUBPAR[2]==FALSE)

RFP=$AA_IW[$P_AXN3] SDIS=0

ENDIF

I F ($P_SUBPAR[4]<>TRUE)

AND($P_SUBPAR[5]==TRUE)

DP=RFP+DPR

ENDIF

IPB5=(RFP-DP)/ABS(RFP-DP)

LYAX[$P_AXN3]=SDIS*IPB5+

RFP

RF=$P_F

IF$P_SUBPAR[6]==TRUE

LXAX[A_3]=DP+RJS*IPB5；

IFJSF<0；

IFABS(JSF)<1

RJSF=ABS(JSF)*RF

ELSE

RJSF=RF/ABS(JSF)

ENDIF

ELSE

RJSF=JSF

ENDIF

IF($P_SUBPAR[8]==TRUE)

AND(JSS<0)

IFABS(JSS)<1

RJSS=ABS(JSS)*RBLS

ELSE

RJSS=RBLS/ABS(JSS)

ENDIF

ELSE

RJSS=JSS

ENDIF

IF$P_SUBPAR[8]==TRUE

LXAX[A_3]=DP FB=RJSF

S=RJSS

ELSE

LXAX[A_3]=DP FB=RJSF

ENDIF

ELSE

LXAX[A_3]=DP

ENDIF

G04S2

IFRBLS<>$P_S[1]

S=RBLSF=RF

ENDIF

IF ($P_SUBPAR[1]==TRUE)

AND($P_SUBPAR[2]==TRUE)

LYAX[A_3]=RTP

ENDIF

M17

    上面程序只有一个减速的功能，下面是使用实例：

G54G90 G00 X0 Y0 Z100 D1

S300F60 M3

TMK(100,0,5,-50,,5,20,350)

M5

G00SUPA Z0 D0

M30

 　　程序先定位然后主轴正转，刀具定位到参考平面的安全距离处，然后以循环外设定的进给和转速加工到孔底坐标的减速距离处，进给变为循环设定的进给，转速设定为循环设定的转速，进给和转速都可不填或者只添一项， 如果都不填就类似于一个cycle81；然后刀具返回到返回平面，返回平面可以不填，也可以是任意值，如果不是返回到安全的方向建议不填，因为不填的话刀具到孔底就停止循环，这个设计是为了和其他循环配合使用。

　　在我厂车间经常加工一些隔板孔，即在一个坐标上有两个以上的孔，因为西门子的标准循环不允许返回平面，而在参考平面的另一个方向，或者加工完成后停留在孔底不返回，所以在编程时只能用“G0”“G1”这种代码写几行甚至十几行程序，计算和修改都很麻烦，后期维护也比较麻烦。此循环设计就完美解决了这个问题，下面是三层孔的加工程序：

G54G90 G00 X0 Y0 Z100 D1

S300F60 M3

TMK(,0,5,-50)

TMK(,－100,5,,-50)

TMK(100,－200,5,,-50)

M5

G00SUPA Z0 D0

M30

　　程序加工完第一个孔，由于没填参考平面，所以程序加工到孔底就没有后续动作了，循环结束；进入下一个循环，下一个循环正常执行，结束后没有返回数据，所以不返回，进入下一个循环；最后一个循环到孔底后，有返回平面数据，所以执行返回平面。简洁明了，方便维护。

　　此外，程序还可以写成如下形式：

G54G90 G00 X0 Y0 Z100 D1

S300F60 M3

TMK(－95,0,5,-50)

TMK(－195,,,,-50)

TMK(100,,,-50)

M5

G00SUPA Z0 D0

M30

　　第一个循环结束后， 返回到第二个孔的孔端处，由于第二个孔的参考平面没有填写，所以就以当前点为参考平面，进行加工。这段程序在铣孔倒角用的用户循环中优势明显，当同一轴线上加工多个整圆时只需填一个参数即可。