Lee
I used Alan"s version to get it to work:
(defun c:dPick (/ ss doc spc sel lst tStr tObj gr)
(vl-load-com)
(if (setq ss (ssget '((0 . "TEXT"))))
(progn
(setq doc (vla-get-ActiveDocument
(vlax-get-Acad-Object))
spc (if (zerop (vla-get-activespace doc))
(if (= (vla-get-mspace doc) :vlax-true)
(vla-get-modelspace doc)
(vla-get-paperspace doc))
(vla-get-modelspace doc)))
(vlax-for Obj (setq sel (vla-get-ActiveSelectionSet doc))
(setq lst (cons (distof (vla-get-TextString Obj) 4) lst)))
(setq tStr (rtos (apply '+ (vl-remove-if 'null lst)) 4 2))
(setq tObj (vla-addText spc tStr (vlax-3d-point '(0 0 0))
(*(getvar "DIMSCALE")(getvar "DIMTXT"))))
(vla-put-Alignment tObj acAlignmentMiddleCenter)
(foreach prop '(Layer Height Color)
(vlax-put-property tObj prop
(vlax-get-property
(vlax-ename->vla-object (ssname ss 0)) prop)))
(while (and(/= 3 (car (setq gr (grread 't 5 0)))) (listp (cadr gr)))
(vla-put-TextAlignmentPoint tObj (vlax-3D-point (trans (cadr gr) 1 0)))
)
))
(princ))
Thanks again my friend.