[编程申请]：请高手帮帮忙，字符串替换

baihc798

一条直线上面有一个文字，如DN300-5-D，现在想将直线的长度值(换成单位m)替换字符中的D字母，我在网上找了相关LSP，但是完成不了最终的修改，请大师们帮帮忙，帮我改一下。
这段是找直线的长度的LSP，
(defun c:＊＊()
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)   
  (setq sum 0 i 0)   
  (setq ss (ssget))     
    (repeat (sslength ss)
      (setq en (ssname ss i))
      (command "lengthen" en "")
      (setq l (getvar "perimeter"))      
      (setq sum (+ sum l)
        i (+ i 1))
      )   
  (setvar "osmode" os)
(setq ch (rtos sum 2 2))
  (SETQ ch1 (/ (atof ch) 1000))
  (SETQ ch2 (itoa(fix ch1)))
)
下面这段是字符替换的LSP
defun c:lsp_37()
(setq oldtxt  "D")
(setq newtxt ch2)
(setq ss (ssget "X" (list '(0 . "TEXT"))))
(setq oldnum (strlen oldtxt))
(setq newnum (strlen newtxt))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq p 1)
(setq ent (assoc 1 ssdata))
(setq entxt (cdr ent))
(setq ennum (strlen entxt))
(setq aa "")
(while (<= p ennum)
(setq kk (substr entxt p oldnum))
(if (= kk oldtxt)
(progn
(setq kk newtxt)
(setq p (- (+ p oldnum) 1))
)
(setq kk (substr entxt p 1))
)
(setq aa (strcat aa kk))
(setq p (1+ p))
)
(setq aa (cons 1 aa))
(setq ssdata (subst aa ent ssdata))
(entmod ssdata)
(setq i (1+ i))
)
(prin1)
)
小弟没有学过Lsp,请大师帮我改一下。