[编程申请]：求可以把一个尺寸的内容赋予另一个尺寸的格式刷

jwq690517

我在画图时候经常会遇到这样的情况，以前的画过的构件和现在要画的形状是一样的，就是尺寸略有不同，放完实样后希望在原来的图纸上改改尺寸即可，这样就只能一个一个尺寸的修改，麻烦不说还容易出错！我有一个可以刷文字的格式刷，但只能刷文字，我想能不能有可以这样的一个格式刷，把一个尺寸（这个尺寸一般是实测值<>）的内容刷给另一个尺寸希望高手给编个程序（尺寸里可能包含文字），谢谢了。一位网友给我个程序，基本满足了我的要求，有点问题希望给优化一下：1.选择时不能亮显。2.用尺寸刷文字有包含字母，希望得到是数字，望高手给修改一下。


;格式内容刷，可以刷各种实体中的文字; text/mtext/attribute
;;;  ReplaceText.lsp by J.J.Damstra - Copyright ?2005.
;;;  Replaces any selected string for another
;;;  21-06-05 first release
;;;   09-07-05   tableindicator

(defun c:ct (/  bz_start bz_end bz_error old_cmd olderr ch_txt entity entitylist txt_str object pickpnt e-type n ti ostr)

  (defun ch_txt (txt_str entity / entitylist ent)
    (setq ent (car entity)
          entitylist (entget ent)
          entitylist (subst (cons 1 txt_str) (assoc 1 entitylist) entitylist)
    )
    (entmod entitylist)
    (entupd ent)
  )
(defun bz_start ( / )
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)   ;消除影点变量
  (eval "(command \"_.undo\" \"_group\)")
  (setq olderr *error* *error* bz_error)
)

(defun bz_end ( / )
  (setq *error* olderr)
  (command "_.undo" "end")
  (setvar "cmdecho" old_cmd)
  (princ)
)

(defun bz_error (s)
  (if (not (member s '("console break" "Function cancelled" "quit / exit abort")))
      (princ (strcat "\nError: " s))
  )
  (bz_end)
)


  (bz_start)
  (setq txt_str
      (if (setq entity (nentsel "\n选择源文字: "))
          (cdr (assoc 1 (entget (car entity))))
          (getstring "\n 请输入文字:")
      )
  )
  (if (= txt_str "")
      (setq txt_str nil)
      (princ (strcat "\n 复制文字内容为: " txt_str "."))
  )
  (while (and txt_str
              (setq entity (nentsel "\n选择要改变的文字: "))
         )
    (setq ostr (cdr (assoc 1 (entget (car entity)))))
    (if (< (length entity) 4)
        (ch_txt txt_str entity)
        (progn (setq object (car (last entity))
                     entitylist (entget object)
                     pickpnt (cadr entity)
                     e-type (cdr (assoc 0 entitylist))
               )
               (cond ((= e-type "INSERT")
                      (ch_txt txt_str entity)
                     )
                     ((wcmatch e-type "*DIMENSION")
                      (command "_.dim1" "newtext" txt_str object "")
                      (entupd object)
                     )
                     ((= e-type "ACAD_TABLE")
                      (command "_.tabledit" pickpnt "@#@")
                      (setq entitylist (entget object))
                      (foreach n entitylist
                         (if (eq (car n) 1)
                             (if (eq (substr (cdr n) 1 3) "@#@")
                                 (entmod (subst (cons 1 txt_str) n entitylist))
                             )
                         )
                      )
                      (entupd object)
                     )
                )
        )
    )
    (princ (strcat "\n 原文字为:" ostr ". 已被替换为 " txt_str " ."))
  )
  (bz_end)
)