"D1=R1" 当然不可以！刀补D对应的是两维数组，
$TC_DP1[3,1]=500
$TC_DP2[3,1]=1
$TC_DP3[3,1]=0
$TC_DP4[3,1]=0
$TC_DP5[3,1]=0
$TC_DP6[3,1]=0
$TC_DP7[3,1]=0
$TC_DP8[3,1]=0
$TC_DP9[3,1]=0
$TC_DP10[3,1]=0
$TC_DP11[3,1]=0
$TC_DP12[3,1]=0
$TC_DP13[3,1]=0
$TC_DP14[3,1]=0
$TC_DP15[3,1]=0
$TC_DP16[3,1]=0
$TC_DP17[3,1]=0
$TC_DP18[3,1]=0
$TC_DP19[3,1]=0
$TC_DP20[3,1]=0
$TC_DP21[3,1]=0
$TC_DP22[3,1]=0
$TC_DP23[3,1]=0
$TC_DP24[3,1]=0
$TC_DP25[3,1]=0
每个刀补对应25个数据，你所要赋值参数，必须确认后，小心测试，避免机械损坏。
刀具参数
编号(DP)
系统变量的意义 附注
$TC_DP 1 刀具类型 概要参见清单
$TC_DP 2 切削刃位置 只针对车刀
几何尺寸 长度补偿
$TC_DP 3 长度1 根据类型和平面的计算
$TC_DP 4 长度2
$TC_DP 5 长度3
几何尺寸 半径
$TC_DP 6 半径
$TC_DP 7 切槽锯片的槽宽b，铣削刀具的倒圆半径
$TC_DP 8 超出规定范围k 只针对切槽锯片
$TC_DP 11 圆锥形铣削刀具角度
磨损 长度和半径补偿
$TC_DP 12 长度1
$TC_DP 13 长度2
$TC_DP 14 长度3
$TC_DP 15 半径
$TC_DP 16 切槽锯片的槽宽b，铣削刀具的倒圆半径
$TC_DP 17 超出规定范围k 只针对切槽锯片
$TC_DP 20 圆锥形铣削刀具角度
基础尺寸/适配器 长度补偿
$TC_DP 21 长度1
$TC_DP 22 长度2
$TC_DP 23 长度3
工艺
$TC_DP 24 后角 针对车刀


参见《Sinumerik 840D_840Di_810D 高级编程手册》8－321

建议：1.对刀补备份，找出并确定使用的刀具与对应的刀补数组数据一致；
2.如编程更改刀补，最好单独编一子程序CTOS_SPF(CHANGTOOLSOFFSET)，在其他程序中调用；
3.在CTOS_SPF程序开始处加上校验，如:
IF R500<>-999 GOTOF SUBEND
...
SUBEN: M17
调用 CTOS_SPF 前，将R500赋值为－999 ，执行后清零