forcing and thinning quota text

[GiGa]

Since with the creation of macro commands are a somewhat rusty (bel) and lisp I don't have much dawn, I ask a suggestion:
I would like to create a command that gives me the quota text to the real measure and underline it... in practice, what you do when you indicate a length that, drawing, appears shorter...

Having to draw very slender elements (long and narrow), I would be comfortable to quote them in real length, apply the command and "stretch" the geometry for putting into the table.

that you can do without using the lisp? Of course it would be much more convenient a simple macro of a button. . .

 

[GP.]

decimals are calculated according to the current quote style (variable dimdec).

;;;;
(defun c:ftq (/ q q1 old new)
♪

(command "_undo" "_begin")
(setq cmd (getvar "cmdecho")
(setvar "cmdecho" 0)
(prompt "\nselect quotas")
(if (setq q (ssget '(0 . "dimension")(1 .")))))
(repeat (setq n (sslength q)
(setq q1 (entget (ssname q (setq n (1-n))))))
(setq old (cdr (assoc 1 q1))
(setq new (strcat "%%u" (rtos (cdr (assoc 42 q1)) 2 (getvar "dimdec"))
(entmod (setq q1 (subst (cons 1 new) (cons 1 old) q1))
)
)
(command "_undo" "_end")
(setvar "cmdecho" cmd)
(princ)
)

 

[GiGa]

Perfect! !
very grateful... :finger:

 

[GP.]

Please. :smile: