向各位大侠请教，关于修改文本的问题

oracle2000

我想实现一个功能就是“地面标高”-“管底标高”=“井深”，程序已经写好了，只是还有一个问题我无法解决，就是我们标注上井深前面还带了一个窨井规格，就是1000*1000*井深有时可能会是1000*1300*井深，前面的规格是个变数，我有什么办法只修改井深而不修改前面的规格呢？谢谢。。

下面是我写的代码。。

(setvar "DIMZIN" 0)
(defun c:jj10(/ ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs )
   (prompt "请选择地面标高:) ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq dm (ssname ss 0))
  (setq dmbgmc (entget dm))
  (setq dmbg (atof(cdr (assoc 1 dmbgmc))))
     (prompt "请选择管底标高:) ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq gd (ssname ss 0))
  (setq gdbgmc (entget gd))
  (setq gdbg (atof(cdr (assoc 1 gdbgmc))))
       (prompt "请选择需修改标高的标注 ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq js (ssname ss 0))
  (setq jsbgmc (entget js))
  (setq jsbg (atof(cdr (assoc 1 jsbgmc))))
  (setq newjs (- dmbg gdbg))
  (setq newjsjs1 (cons 1 (strcat "1000×1000×"  (rtos newjs 2 2))))
  (setq jsbgmc (subst newjsjs1 (assoc 1 jsbgmc) jsbgmc))
  (entmod jsbgmc)
  (command "change" js "" "p" "c" "1" "")
  (prin1))

lazybug

(setq newjsjs1 (cons 1 (strcat "1000×1000×"  (rtos newjs 2 2))))
这一句改为：

(setq newjsjs1 (cons 1 (strcat  (substr (cdr (assoc 1 jsbgmc)) 1 10) (rtos newjs 2 2))))

前提是"需修改标高的标注 "里边的文本首先是你所说的1000×1000×*"  或1000×1300×*" 

另外，(setq ss (ssget '((0 . "TEXT")))) (setq dm (ssname ss 0))

Why not (setq dm (entsel))?

oracle2000

谢谢楼上的回答

lazybug发表于2009-5-9 16:30:00(setq newjsjs1 (cons 1 (strcat \"1000×1000×\"  (rtos newjs 2 2))))这一句改为：(setq newjsjs1 (cons 1 (strcat  (substr (cdr (assoc 1 jsbgmc)) 1 10) (rtos newjs 2 2))))前

 如果按照你这样的话，1000×1000×的最后一个×无法显示的，如果改成(setq newjsjs1 (cons 1 (strcat  (substr (cdr (assoc 1 jsbgmc)) 1 11) (rtos newjs 2 2))))，最后一个乘号就是一个乱码，这是怎么回事呢？