请教高手一个关于替换文字的问题

LGZART · 发表于 2013-1-11 20:06:21

我想替换文字，比如GJ???-1(?代表一个字符)去掉-1变成GJ???。
该怎样处理呢？最好是LISP.请高手指教一下。谢谢

spp_wall · 发表于 2013-1-21 08:51:59

CAD不是自带查找替换？

daixq021 · 发表于 2013-1-26 21:01:24

用贱人工具箱的去“前后缀”功能

华轩〈肖〉 · 发表于 2013-2-1 10:18:22

选择要修改的文字
用CAD自带的查找和替换的足已

香田里浪人 · 发表于 2013-4-25 21:18:02

;;;查找与替换
;;; (reptext <要找的文字> <替换成的文字>)
;;;应用举例:
;;;(SETQ char-A "DRAWING1" char-B "BDYCADCAD")
;;;(reptext char-A char-B)
;;;_______________________________________________________
(defun reptext
         (char-A    char-B /       pc ss
index    ent       typeA    typeA-len char-Alen
char-Blen n       char-aa newsize
         )
  (setq pc 0)
  (setq ss (ssget '((0 . "TEXT,MTEXT")))) ;选择文字
  (if ss
(progn
   (setq index 0)
   (repeat (sslength ss)
(setq ent (entget (ssname ss index)))
(setq index (+ 1 index))
(setq typeA (cdr (assoc 1 ent))) ;选择的文字内容
(setq typeA-len (strlen typeA)) ;选择的文字内容的长度
(setq char-Alen (strlen char-A)) ;取得要找的文字的长度
(setq char-Blen (strlen char-B)) ;取得替换文字的长度
(setq n 1)
(if (= char-A "")
   (setq typeA-len 1)
)
(repeat typeA-len
   (setq char-aa (substr typeA n char-Alen))
;查找选择的文字内容里是否有要被替换的文字
   (if (= char-aa char-A)
      (progn ;如果有
      (setq typeA (vl-string-subst char-B char-A typeA))
      (setq newsize (cons 1 typeA))
      (setq ent (subst newsize (assoc 1 ent) ent))
      (entmod ent)
      (setq pc (1+ pc))
      )
      ;;End progn
   )
   ;;End if
   (setq n (1+ n))
)
;;End repeat
   )
   ;;End repeat
   (princ (strcat "\n替换了" (rtos pc) "个."))
)
;;End progn
  )
  ;;End if
)
;;;_______________________________________________________
(defun c:chtext (/ cm char-A char-B)
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Group")
  (setq char-A (getstring "\n请输入要查找的文字:"))
  (setq char-B (getstring "\n请输入新的文字:"))
  (reptext char-A char-B)
  (command "_.UNDO" "End")
  (setvar "cmdecho" cm)
  (princ)

账号		自动登录	找回密码
密码			注册