[编程交流] 动态更改文本，具有

(defun c:Test (/ s p e gr)
 ;;    Author : Tharwat 20. jan. 2014    ;;
 (if (setq s (ssget "_+.:S:E:L" '((0 . "TEXT,MTEXT"))))
   (progn
     (setq p (cdr (assoc 10 (entget (setq e (ssname s 0))))))
     (while (eq (car (setq gr (grread t 15 0))) 5)
       (redraw)
       (grdraw p (cadr gr) 1 -1)
       (vla-put-height
         (vlax-ename->vla-object e)
         (distance p (cadr gr))
        )
     )
     (redraw)
   )
 )
 (princ)
)
(vl-load-com)

(defun c:tt (/ callback e p0 sty scl h)
 (defun callback (dynpt /)
   (xdrx_setpropertyvalue
     sty
     "Dimscale"
     (* (distance p0 (trans dynpt 0 1)) scl)
   )
 )
 (if (setq e (car (xdrx_entsel "\nPick Dim: " '((0 . "Dimension")))))
   (progn
     (XD::Begin)
     (setq sty        (cadr (xdrx_getpropertyvalue e "Dimensionstyle"))
           scl        (xdrx_getpropertyvalue sty "Dimscale")
           h        (xdrx_getpropertyvalue e "Dimtxt")
           p0        (trans (caddr (xdrx_entity_getstretchpoint e )) 0 1)
     )
     (xdrx_pointmonitor "Callback" e)
     (getpoint p0)
     (xdrx_pointmonitor)
     (XD::End)
   )
 )
 (princ)
)

(defun c:Test (/ *error* ss in l vl d p gr)
 ;;    Author : Tharwat 21. jan. 2014    ;;
 (defun *error* (u) (redraw) (princ "\n*Cancel*"))
 (if (setq ss (ssget "_:L" '((0 . "*DIMENSION"))))
   (progn (repeat (setq in (sslength ss))
            (setq l (cons (cdr (assoc -1 (entget (ssname ss (setq in (1- in)))))) l))
          )
          (while (eq (car (setq gr (grread t 15 0))) 5)
            (redraw)
            (setq d (distance (setq p (cdr (assoc 13 (entget (car l))))) (cadr gr)))
            (grdraw p (cadr gr) 1 -1)
            (foreach x l
              (vla-put-textheight (setq vl (vlax-ename->vla-object x)) (atoi (rtos d)))
              (vla-put-arrowheadsize vl (/ d 2.))
            )
          )
   )
 )
 (redraw)
 (princ)
)
(vl-load-com)