[编程交流] 自动选择文本

;;method by Alanj
;;modified by reid b.
(defun c:test (/ ss id ent a b)
 (setq ss (ssget "_x" '((0 . "text,mtext")))
         id 0)
      (while (setq ent (ssname ss id))
        (if (wcmatch (strcase (cdr (setq a (assoc 1 (setq b (entget ent)))))) "*[color=red]OLD[/color]*")
[u];;[color=red]OLD[/color] must be uppercase[/u]
[color=dimgray][color=black][u];;will only modify text with the word [color=red]old[/color] in it[/u][/color]
[/color]           (entmod (subst (cons 1 "[color=red]NEW[/color]") a b))
        )
      (setq id (1+ id))
      )
 (princ)
)

(defun c:test ( / old new )
 ;; © Lee Mac 2010
 (setq old "Lee" new "Mac")
 (
   (lambda ( s i / e )
     (if s
       (while (setq e (ssname s (setq i (1+ i))))
         (entupd
           (cdr
             (assoc -1
               (entmod
                 (subst
                   (cons 1 new) (assoc 1 (entget e)) (entget e)
                 )
               )
             )
           )
         )
       )
     )
   )
   (ssget "_X" (list (cons 0 "TEXT,MTEXT") (cons 1 old))) -1
 )
 (princ)
)
                  

(defun c:Test (/ new old ss)
 (setq new "WoO"
       old "Hoo"
 )
 (if (setq ss (ssget "_X" '((0 . "MTEXT,TEXT"))))
   ((lambda (i / e s l)
      (while (setq e (ssname ss (setq i (1+ i))))
        (if (wcmatch (strcase (cdr (setq s (assoc 1 (setq l (entget e)))))) (strcase old))
          (entmod (subst (cons 1 new) s l))
        )
      )
    )
     -1
   )
 )
 (princ)
)