求助在替换的字符后面加上额外的单位

TENGOMARK

各位大侠好！

       我现在遇到一个难题，一个运算出来的数字，赋给了一个变量，变成比如说2350.4的字符串，此字符串需要替代点击后认出的一个字符，这个在下面的程序中已经做到，但是问题是，此字符串后面点击的同时需要加上一个单位，比如说加一个um的单位，现在我没有想出更好的办法来实施，希望那位大侠予以指点，则不胜感激。

      在此先谢了！

       (setq newe 2350.4)
       (setq newc (rtos newe 2 1))
       (setq Slt0p1 (entsel "\n替换图上内容，输入图纸上："))
       (setq en_data (entget (car Slt0p1)))
       (setq oldcontent (assoc 1 en_data))
       (setq word (strcat  newc  ))
       (if (= (type word) 'SYM) (setq word (vl-symbol-name word)))
       (setq newcontent (cons 1 word))
       (setq en_data (subst newcontent oldcontent en_data))
       (entmod en_data)

TENGOMARK

有没有人能够给予指点啊！

TENGOMARK

这段程序意思是，执行后，点击图上的字母，会把2350.4把点击的字符串替代掉，现在的问题是，需要把这个变量在点击替代同时，加上一个单位，比如变成2350.4um，假如newe是1234的话，就变成是1234um，请问哪位大侠能够给帮助！