[VBA][LISP]求救 谢谢

呆呆

我先在想改边管径和坡度 如下：
运行命令ee
当输入 2时 为DN200I0.01
当输入 3时 为DN300I0.003
当输入 4时 为DN400I0.002
当输入 5时 为DN500I0.0012
当输入 6时 为DN600I0.001
当输入 7时 为DN700I0.001
当输入 8时 为DN800I0.001
当输入 9时 为DN900I0.001
当输入10时 为DN1000I0.001
当输入11时 为DN1100I0.001
当输入12时 为DN1200I0.001
可一次性改变图中的文字2 、3 、5、6都变成文字1的形式
但是“L”以及后面的长度保留
谢谢各位大侠帮助