AutoCad - Separadores de miles y comas en áreas

 
Vista:

Separadores de miles y comas en áreas

Publicado por Francisca A (1 intervención) el 07/01/2018 21:10:41
Hola amigos, estoy usando Autocad 2016 para Mac, desesperadamente necesito ponerle separadores de miles a las superficies y longitudes en Autocad cuando selecciono los objetos. Ocurre que cuando selecciono un área, la barra de properties me muestra un número de once dígitos sin separador de miles, excepto porque al final me muestra una coma y un sólo número luego de ella. A modo de ejemplo, al seleccionar un área el cuadro de diálogo me muestra lo siguiente: 22073991432,6

Ya seleccioné que las unidades sean metros, pero no se ve reflejado al seleccionar los objetos.

Necesito ponerle separador de miles URGENTE. Ayuda por favor. MUCHAS GRACIAS!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Luis
Val: 27
Ha mantenido su posición en AutoCad (en relación al último mes)
Gráfica de AutoCad

Separadores de miles y comas en áreas

Publicado por Luis (11 intervenciones) el 09/01/2018 18:14:36
Esta rutina te servira
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
; Separador de miles con coma.
 ; ejemplo de uso: (comma "1234")
(defun comma  (txt / strl cont1 lth cont txt1)
   (setq strl  (strlen txt)
         cont1 1
         txt1  "")
   (while (and (/= (substr txt cont1 1) ".") (<= cont1 strl)) (setq cont1 (1+ cont1)))
   (setq lth   (1- cont1)
         cont1 1
         cont  (1- lth))
   (if (> lth 3)
      (progn (while (< cont1 lth)
                (setq let  (substr txt cont1 1)
                      txt1 (strcat txt1 let))
                (if (and (zerop (rem cont 3)) (eq (type (read let)) 'INT))
                   (setq txt1 (strcat txt1 ",")))
                (setq cont  (1- cont)
                      cont1 (1+ cont1)))
             (while (<= cont1 strl)
                (setq txt1  (strcat txt1 (substr txt cont1 1))
                      cont1 (1+ cont1)))
             txt1)
      txt))
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar