Sumar textos Numericos PIES-PULGADAS

saulo2016 escribió:Hola a Todos los Masters del Foro.

Ahora tengo este problema, quiero sumar varios textos numericos pero sus unidades estan en PIES-PULGADAS.

Necesito saber si alguien ya tiene alguna rutina que haga esto.


Sube un ejemplo.dwg







Saludos

Código:

; Suma todos los textos elegidos, que comiencen con números.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq altutexto 2)
(setq deccimales 2)
(setq prefij "TOTAL APROX. = ")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun fnum (num)
  (setq int (rtos num 2 deccimales))
  (setq pos (vl-string-search "." int))
  (setq pos (if pos
              pos
              (strlen int)
            )
  )
  (setq fp (substr int (+ pos 2) (strlen int)))
  (setq int (substr int 1 pos))
  (while (< (strlen fp) deccimales) (setq fp (strcat fp "0")))
  (repeat (/ pos 3)
    (setq int (strcat (substr int 1 (- pos 3)) "," (substr int (- pos 2) (strlen int)))
          pos (- pos 3)
    )
  )
  (vl-string-left-trim
    ","
    (if (zerop deccimales)
      int
      (strcat int "." fp)
    )
  )
)


(defun insertartexto ()
  (if (null (tblobjname "STYLE" "ROMANS"))
    (entmake '((0 . "STYLE")
               (100 . "AcDbSymbolTableRecord")
               (100 . "AcDbTextStyleTableRecord")
               (2 . "ROMANS")
               (70 . 0)
               (40 . 0.20)
               (3 . "Romans.shx")
              )
    )
  )
  (if (null (tblobjname "LAYER" "TEX"))
    (entmake '((0 . "LAYER")
               (100 . "AcDbSymbolTableRecord")
               (100 . "AcDbLayerTableRecord")
               (2 . "TEX")
               (70 . 0)
               (62 . 10)
               (370 . -3)
              )
    )
  )
  (setq ptotexto (getpoint (strcat "\nIndica donde colocar el texto>:")))
  (entmake (list '(0 . "TEXT")
                 '(100 . "AcDbEntity")
                 '(8 . "TEX")
                 '(100 . "AcDbText")
                 '(62 . 256)
                 '(10 0.0 0.0 0.0)
                 (cons 40 altutexto)
                 (cons 1 (strcat prefij (fnum sumatotaltextos)))
                 (cons 50 0.0)
                 '(41 . 1)
                 '(51 . 0.0)
                 '(7 . "ROMANS")
                 '(72 . 0)
                 (cons 11 ptotexto)
                 '(210 0.0 0.0 1.0)
                 '(100 . "AcDbText")
                 '(73 . 1)
           )
  )
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:stt ()
  (setq sumatotaltextos 0)
  (prompt "\n* TEXTOS a sumar: ")
  (setq texto_obj (ssget '((0 . "*TEXT"))))
  (if (/= texto_obj nil)
    (progn (setq texto_obj_longitud (sslength texto_obj))
           (setq ord 0)
           (repeat texto_obj_longitud
             (setq texto_nom (ssname texto_obj ord))
             (setq sumatotaltextos
                    (+ sumatotaltextos
                       (atof (vl-string-subst "" "," (cdr (assoc 1 (entget texto_nom)))))
                    )
             )
             (setq ord (1+ ord))
           )
    )
  )
  (insertartexto)
  (princ)
)