[编程交流] 字符串覆盖

;; STRing OverWrite for text/mtext strings to user specified string
;;
(defun C:STROW (/ d t x))
(setq x (getstring "\nEnter text to overwrite"))
 (setq t (ssget "_:L" (list '(0 . "TEXT,MTEXT"))))
   (repeat (setq t (sslength t))
      (setq d (entget (ssname t 0))
        (entmod (subst (cons 1 x) (assoc 1 d)d)
    ); end setq
    (entmod d)
    (ssdel (ssname t 0) t)
 ); end repeat
(princ)
); end defun

(defun c:strow ( / i s x )
   (if (and (/= "" (setq x (getstring t "\nEnter text to overwrite: ")))
            (setq s (ssget "_:L" '((0 . "TEXT,MTEXT"))))
       )
       (repeat (setq i (sslength s))
           (vla-put-textstring (vlax-ename->vla-object (ssname s (setq i (1- i)))) x)
       )
   )
   (princ)
)
(vl-load-com) (princ)

 "TEXT,MTEXT,attdef"

(defun c:strow ( / i o s x )
   (if (and (/= "" (setq x (getstring t "\nEnter text to overwrite: ")))
            (setq s (ssget "_:L" '((-4 . "<OR") (0 . "TEXT,MTEXT") (-4 . "<AND") (0 . "INSERT") (66 . 1) (-4 . "AND>") (-4 . "OR>"))))
       )
       (repeat (setq i (sslength s))
           (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
           (if (= "AcDbBlockReference" (vla-get-objectname o))
               (foreach a (vlax-invoke o 'getattributes) (vla-put-textstring a x))
               (vla-put-textstring o x)
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

(defun c:catt (/ new existing)
(setq new "ref")  
 (setq existing(entget (car(nentsel "\nselect attribute text to replace :"))))
  (setq existing
(subst (cons 1 new)
(assoc 1 existing)
existing)
)
(entmod existing)
(princ)
);end defun