Rare.. Here's a micro tool to help when needing a number trans!
Just got it runnin so lacking the filters desired + the 'Text Override' OMH..
(defun c:gdt ( / a ldtx) ;; http://www.theswamp.org/index.php?topic=404.msg4785#msg4785
(vlax-add-cmd "gdt" 'c:gdt "gdt" acrx_cmd_transparent) ;; allows trans use!
(princ "\n Dim Extractor..")
(setq a (entget (car (entsel)))) ;; Keith..
(setq ldtx (distof (rtos (cdr (assoc 42 a))(getvar "lunits")(getvar "luprec"))))
;(princ (strcat "\n Dim Length: "(rtos ldtx)))
(princ (rtos ldtx))
(princ)
)