Topic: Getting down to the numbers [dims]

[ScottMC]

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..

Code: [Select]

(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)
)