求修改“开心版主批量匹配替换单行或多行文字（源码）”

ucuc2003

在论坛里看到开心版主的大作“批量匹配替换单行或多行文字(源码)”http://bbs.mjtd.com/thread-95896-1-1.html
以下是源码：
;替换文字
; (KX-reptext 选择集 <要找的文字> <替换成的文字>)
(defun KX-reptext (SS oldch newch / ss ssl ct0 edata etext txtln subln ct1 ct2 schct newtext)
  (if ss
    (progn
      (setq ssl (sslength ss)
            ct0 0
            ct1 0
            ct2 0
            subln (strlen oldch)
      )
      (while (< ct0 ssl)
        (setq edata (entget (ssname ss ct0))
              etext (cdr (assoc 1 edata))
              txtln (strlen etext)
              schct 1
              newtext ""
        )
        (while (<= schct txtln)
          (setq newtext
            (strcat newtext
              (if (= (setq readch (substr etext schct subln)) oldch)
                (setq ct1 (1+ ct1)
                  schct (+ schct subln)
                  newch newch
                )
                (progn
                  (setq schct (1+ schct))
                  (substr readch 1 1)
                )
              )
            )
          )
        )
        (if (/= etext newtext)
   (progn
            (entmod (subst (cons 1 newtext) (assoc 1 edata) edata))
            (setq ct2 (1+ ct2))
          )
        )
        (setq ct0 (1+ ct0))
      )
    )
  )
)

(DEFUN C:XX()
    (setvar "cmdecho" 0)
(setq ss  (SSGET":s" '((0 . "*TEXT"))) )
  (KX-reptext SS "A" "1")
  (KX-reptext SS "B" "2")
  (KX-reptext SS "C" "3")
  (KX-reptext SS "D" "4")
(PRINC)
)


由于本人是业余爱好编程，水平很有限，求哪位大侠修改一下版主的程序，增加一下功能：能刷新天正的“箭头引注”中的文字
见下图：


以下是箭头引注的组码表：
((-1 . <图元名: 7efe0db8>) (0 . "TCH_ARROW") (330 . <图元名: 7efdecf8>) (5 .
"35F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DIM_SYMB") (100 .
"TDbEntity") (46 . 0.0) (47 . 100.0) (68 . 1) (100 . "TDbSymbWithText") (7 .
"_TCH_DIM") (40 . 3.5) (52 . 0.0) (410 . "PUB_TEXT") (100 . "TDbSymbArrow") (70
. 1) (11 0.0 0.0 0.0) (1 . "A") (41 . 3.0) (10 355285.0 -736851.0 0.0) (50 .
0.0) (10 354871.0 -736851.0 0.0) (50 . 0.0) (10 354390.0 -737331.0 0.0) (50 .
0.0) (71 . 0))

ucuc2003

等待大侠高手

xsso

标题写着【已解决】[已解答]但是什么都没有.........................

ucuc2003

xsso 发表于 2013-5-30 16:37
标题写着【已解决】[已解答]但是什么都没有.........................

我也不知道，把悬赏币扣除了，但是问题没解决，也没见任何回复

xsso

..............发悬赏是会预先扣除的，等有最佳答案的时候，你再选择颁发给那一位，你还是改回未解决才会有人来帮你解决啊