%_N_ProName_MPF
　　;$PATH=/_N_WKS_DIR/_N_ProFolder_WPD
　　;R90isXCoordinate
　　R91isYCoordinate
　　;R92isZCoordinate
　　;R93isSValue
　　;R94isOutSideFValue
　　;R95isInSideFValue
　　;R96isthreadMajorDiameter
　　;R97isthreadMinorDiameter
　　;R98isIC-UCoordinate
　　;R99isIC-V-WCoordinate
　　artSizeisXXXXX
　　DEFINEZ_MAXASG0G90G40G17SUPAZ850D0SPOS=0M05M09
　　DEFREALPLENGTH=，PWIDTH=，PHEIGHT=
　　$P_UIFR[1]=CTRANS(X，，Y，，Z，，B，);G54
　　Z_MAX
　　N50CS_TOOL(""，，1);A2zhongxinzuan
　　CS_TP("")
　　G54G90G17G40
　　B=DC(0)
　　R90=85.3R91=PLENGTH/2R92=6R93=600R94=5000R95=300
　　Hb1;1#
　　R90=235.3
　　Hb1;2#
　　……
　　STOPRE
　　Z_MAX
　　……
　　写了很多R参数的子程序，调用起来相当方便，R参数的编程是西门子的一个亮点，(还有变量编程)，绝对比FUNCE或者HAIDENHAN的系统好用!最近经常在FUNCE和HAIDENHAN这些系统之间做东西，感觉还是西门子系统给用户的编程空间最大!!
　　大家可以自己写变量来做很多形状的SPF，以后用起来方便的不得了!
　　另外，你为了避免坐标点的做出，特别是大量的点位加工，建议在编制坐标点的时候用图纸尺寸做加减法数学关系式来确定点位的相对关系(和图纸相符)，这样子容易检查错误。在西门子程序里面是可以直接写数学表达式来定义坐标的。系统会自己得出追踪的坐标尺寸。
　　例如:
　　S=R93M03
　　M08
　　R0=0R1=R92R60=3R5=20R6=10
　　;R95=R93*R100，R100是在调用攻丝子程序前定义的螺距值，通过计算，将值赋给R95，以至于让攻丝时是以如此数学关系进行S和F值的匹配的。
　　F=R95
　　LXXXXX
　　;M05
　　;M09
　　STOPRE
　　另外一个R参数编程的有点是，引用参数化的编程方式有助于程序的通用性，比如:
　　G54G90G17G40
　　B=DC(0)
　　R90=-20R91=150R92=25R93=800R94=1000R95=300;1#
　　JIAODU=0
　　SOLT_LENGTH=560
　　SOLT_WIDTH=14
　　SOLT_DEPTH=R92
　　SOLT_STOCK=(SOLT_WIDTH-13)/2
　　SLOT_GROWTH=R92
　　REPEATHB1HB3
　　Z_MAX
　　只需要简单修改部分参数达到最大程度的通用性。