[编程交流] 通过LISP编辑多行文字

(defun c:mtval( / ent objmtext stroldval 
strnewval)
 (setq
ent (car (entsel))
objMText 
(vlax-ename->vla-object ent)
strOldval (vlax-get-property objMText 
"TEXTSTRING")
strnewval (getstring T (strcat "\nNew text value<" 
stroldval ">: "))
)
 (if 
strnewval
(vlax-put-property objmtext "TEXTSTRING" 
strnewval)
)
 (vlax-release-object objmtext)
 
)

(defun c:mtval( / getmtext objMText strnewval)
 (setq getmtext (ssget "_X" '((0 . "MTEXT")(1 . "TEST")))
       objMText (vlax-ename->vla-object (entlast))
       strnewval (getstring T "Enter New Text: ")
 )
 (if strnewval (vlax-put-property objmtext "TEXTSTRING" strnewval)
)
 (vlax-release-object objmtext)
)

(defun c:test (/ new ss)
 ; Tharwat 24.02. 2010
 (if (and (setq new (getstring T "Enter New Text: "))
          (setq ss (ssget "_X" '((0 . "MTEXT") (1 . "test"))))
     )
   ((lambda (i / ss1 e)
      (while
        (setq ss1 (ssname ss (setq i (1+ i))))
         (entupd
           (cdr
             (assoc
               -1
               (entmod
                 (subst (cons 1 new) (assoc 1 (setq e (entget ss1))) e)
               )
             )
           )
         )
      )
    )
     -1
   )
   (Alert
     "\n Your replaced text is not found in the drawing....."
   )
 )
 (princ)
)

  (setq getmtext (ssget "_X" '((0 . "MTEXT")(1 . "TEST"))) [color=red]<-Select [u]all[/u] MText with "TEST" value[/color]
       objMText (vlax-ename->vla-object (entlast)) [color=red]<- converts the last created object to a vla-object (not what you want to do here)[/color]