fnum

Quando vamos escrever um número via autolisp, precisamos que ele esteja formatado com separadores de milhar essas coisas...

---

;|formata um numero real em uma string com f casas decimais
  e com separador de milhar, exemplo:
 (fnum 123456789.123456789 3)|;
(defun fnum  (num f / int pos fp)
  (setq int (rtos num 2 f)
        pos (vl-string-search "." int)
        pos (if pos pos (strlen int))
        fp  (substr int (+ pos 2) (strlen int))
        int (substr int 1 pos))
  (while (< (strlen fp) f) (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 f) int  (strcat int "," fp))))

---

Com esta rotina pode-se fazer esta formatação... também serve de exemplo de como usar a função "vl-string-left-trim"

para desfazer a formatação acima, use:

---

;(unformatnum str):
;converte numeros do tipo 123.456.789,00 para 123456789.0
(defun unformatnum  (str / v p)
  (setq v (vl-string-search "," str)
        p (vl-string-search "." str))
  (atof
    (cond ((and v p)
           (vl-string-subst "."  ","
             (while (vl-string-search "." str)
               (setq str (vl-string-subst "" "." str)))))
          (v (vl-string-subst "." "," str))
          (p str)
          (t str))))

---