%_N_ProName_MPF
;$PATH=/_N_WKS_DIR/_N_ProFolder_WPD
; R90 is X Coordinate
; R91 is Y Coordinate
; R92 is Z Coordinate
; R93 is S Value
; R94 is OutSide F Value
; R95 is InSide F Value
; R96 is thread Major Diameter
; R97 is thread Minor Diameter
; R98 is IC-U Coordinate
; R99 is IC-V-W Coordinate
; PartSize is XXXXX

DEFINE Z_MAX AS G0 G90 G40 G17 SUPA Z850 D0 SPOS=0 M05 M09
DEF REAL PLENGTH=,PWIDTH=,PHEIGHT=

$P_UIFR[1]=CTRANS(X,,Y,,Z,,B,) ;G54
Z_MAX
N50 CS_TOOL("",,1) ;A2 zhong xin zuan
CS_TP("")
G54 G90 G17 G40
B=DC(0)
R90=85.3 R91=PLENGTH/2 R92=6 R93=600 R94=5000 R95=300
Hb1 ;1#
R90=235.3
Hb1 ;2#
……
STOPRE
Z_MAX
……
这是我写程序的习惯，写了很多R参数的子程序，调用起来相当方便，R参数的编程是西门子的一个亮点，（还有变量编程），绝对比FUNCE或者HAIDENHAN的系统好用！最近经常在FUNCE和HAIDENHAN这些系统之间做东西，感觉还是西门子系统给用户的编程空间最大！！
大家可以自己写变量来做很多形状的SPF，以后用起来方便的不得了！

另外，你为了避免坐标点的做出，特别是大量的点位加工，建议在编制坐标点的时候用图纸尺寸做加减法数学关系式来确定点位的相对关系（和图纸相符），这样子容易检查错误。在西门子程序里面是可以直接写数学表达式来定义坐标的。系统会自己得出追踪的坐标尺寸。
例如：
S=R93 M03
M08
R0=0 R1=R92 R60=3 R5=20 R6=10
;R95=R93*R100,R100是在调用攻丝子程序前定义的螺距值，通过计算，将值赋给R95，以至于让攻丝时是以如此数学关系进行S和F值的匹配的。
F=R95
LXXXXX
;M05
;M09
STOPRE
M17

另外一个R参数编程的有点是，引用参数化的编程方式有助于程序的通用性，比如：
G54 G90 G17 G40
B=DC(0)
R90=-20 R91=150 R92=25 R93=800 R94=1000 R95=300 ;1#
JIAODU=0
SOLT_LENGTH=560
SOLT_WIDTH=14
SOLT_DEPTH=R92
SOLT_STOCK=(SOLT_WIDTH-13)/2
SLOT_GROWTH=R92
REPEAT HB1 HB3
Z_MAX
只需要简单修改部分参数达到最大程度的通用性。

例子简单，楼主要是感兴趣可以深入研究，你会找到快乐的……