TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ScottMC on May 16, 2022, 06:34:03 PM

Title: Getting down to the numbers [dims]
Post by: ScottMC 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)
)