[编程交流] 在块内移动多行文字

(defun c:Action (/ Block Obj)
 ;; Tharwat 27. 02. 2011
 (vl-load-com)
 (vlax-for block
                 (vla-get-blocks
                   (vla-get-activedocument
                     (vlax-get-acad-object)
                   )
                 )
   (if
     (and
       (eq :vlax-false (vla-get-isLayout block)) ; Lee Technique 
       (eq :vlax-false (vla-get-isXref block))   ; Lee Technique 
     )
      (vlax-for obj block
        (if (eq "AcDbMText" (vla-get-objectname obj))
          (vla-move obj
                    (vlax-3d-point '(0. 0. 0.))
                    (vlax-3d-point '(100. 150. 0.))
          )
        )
      )
   )
 )
 (vla-regen (vla-get-ActiveDocument (vlax-get-acad-object))
            acAllViewports
 )
 (princ)
)

  (defun c:MovT (/ doc ent_ ent pt1 blk)
(vl-load-com)
 (if (setq ent_ (nentsel "\nSelect MTEXT:"))
(progn
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
  ent (vlax-ename->vla-object (car ent_))
  blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent))
 )
   (vla-Move ent (vlax-3d-point (setq pt1 (mapcar '+
      (last (caddr ent_))(cdr (assoc 10 (entget (car ent_)))))))
      (vlax-3d-point (getpoint pt1 "\nNew point:")))
          (vla-get-Count blk)
          (vla-update ent)
          )
   )
(vla-regen (vla-get-ActiveDocument (vlax-get-acad-object))
           acAllViewports)           
)