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

求助在替换的字符后面加上额外的单位
www.dimcax.com
求助在替换的字符后面加上额外的单位
各位大侠好！
我现在遇到一个难题，一个运算出来的数字，赋给了一个变量，变成比如说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)
真诚祝福各位，好人一生平安！
d
有没有人能够给予指点啊！
真诚祝福各位，好人一生平安！
d
这段程序意思是，执行后，点击图上的字母，会把2350.4把点击的字符串替代掉，现在的问题是，需要把这个变量在点击替代同时，加上一个单位，比如变成2350.4um，假如newe是1234的话，就变成是1234um，请问哪位大侠能够给帮助！
真诚祝福各位，好人一生平安！
d