Author Topic: Getting down to the numbers [dims]  (Read 151 times)

0 Members and 1 Guest are viewing this topic.

ScottMC

  • Newt
  • Posts: 119
Getting down to the numbers [dims]
« on: May 16, 2022, 06:34:03 PM »
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)
)