[编程交流] Lisp在Aut中更改单词

(vl-load-com)
(setq *QuickFR:Words*
      '(("milk" . "coffee")
        ("water" . "wine")
        ("juice" . "beer"))
     )
(defun str-search (pat str / p)
 (if (setq p (vl-string-search (strcase pat) (strcase str)))
   (substr str (1+ p) (strlen pat))
 )
)
(defun QuickFR (ss / obj item str found changed)
 (vlax-for obj (vla-get-ActiveSelectionSet (vla-get-activedocument (vlax-get-acad-object)))
   (setq str (vla-get-TextString obj) found nil)
   (foreach item *QuickFR:Words*
     (while (setq found (str-search (car item) str))
       (setq str (vl-string-subst (cdr item) found str) changed t)
     )
   )
   (if changed(vla-put-TextString obj str))
 )
)
(defun c:QuickFR (/ ss)
 (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
   (QuickFR ss)
 )
 (princ)
)
(defun c:QuickFR_All (/ ss)
 (if (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
   (QuickFR ss)
 )
 (princ)
)

  (Without the spaces in the tags)<p> </p><p>Link to original code:</p><p> </p><p>http://www.cadtutor.net/forum/showthread.php?57399-Lisp-to-change-words-in-an-Autocad-drawing&p=389220&viewfull=1#post389220</p>

 (setq phase1 "")
     (foreach v *QuickFR:Words*
       (setq phase1  (strcat phase1 "*" (car v) "*,") ))

  ...(foreach item *QuickFR:Words*
     (while (setq foun.....