ceros en decimales

Buen día señores.

Hace algunos años, el maestro Gerardo, publicó una forma de hacer que en el autocad "se ecriban" ceros en los decimales. Es decir: Si texto= "12", al escribirlo con command text, se podía escribir 12.00.... o 12.5--> 12.50...

Alguien tiene esa modificación que la comparta o sabe como se hace?
(creo que tenía algo que ver con una variable de autocad, pero no me acuerdo cual es)

Saludos y gracias

eliasp escribió:Buen día señores.

Hace algunos años, el maestro Gerardo, publicó una forma de hacer que en el autocad "se ecriban" ceros en los decimales. Es decir: Si texto= "12", al escribirlo con command text, se podía escribir 12.00.... o 12.5--> 12.50...

Alguien tiene esa modificación que la comparta o sabe como se hace?
(creo que tenía algo que ver con una variable de autocad, pero no me acuerdo cual es)

Saludos y gracias

creo que lo que pides es asi de simple
(rtos (atoi "12") 2 2)
un saludo

creo que lo que pides es asi de simple
(rtos (atoi "12") 2 2)
un saludo

Me parece que si... lo pruebo y comento.

Saludos y gracias

Dominguez escribió:

eliasp escribió:Buen día señores.

Hace algunos años, el maestro Gerardo, publicó una forma de hacer que en el autocad "se ecriban" ceros en los decimales. Es decir: Si texto= "12", al escribirlo con command text, se podía escribir 12.00.... o 12.5--> 12.50...

Alguien tiene esa modificación que la comparta o sabe como se hace?
(creo que tenía algo que ver con una variable de autocad, pero no me acuerdo cual es)

Saludos y gracias

creo que lo que pides es asi de simple
(rtos (atoi "12") 2 2)
un saludo

Hice una prueba y no devuelve el texto con los dos decimales 00


(setq texto,00(rtos (atoi "12") 2 2))
(alert texto,00)

Tampoco da para

(setq texto,00(rtos (atof "12.5") 2 2))

(alert texto,00)

Pues no entiendo lo que quieres.
(rtos (atoi "12") 2 2)
devuelve "12.00"

El bit "8" de la variable DIMZIN que controla la supresión de ceros en dimensiones afecta a la función rtos

_$ (rtos 12.5 2 2)
"12.5"
_$ (setvar "dimzin" (logand (getvar "dimzin") (~ 8)))
1
_$ (rtos 12.5 2 2)
"12.50"
_$

Buen apunte

Otra Solución al Tema:
(if (not *decz*)
   (setq *decz* (getint "\nColocar cantidad de Decimales : "))
   (progn (setq decz (getint (strcat "\nColocar cantidad de Decimales : <" (itoa *decz*) ">")))
         (if (/= dec nil)
           (setq *decz* decz)
         )
   )
 )

Muchas gracias maestro.... eso es.

Saludos