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))))

LinkWithin

Related Posts Plugin for WordPress, Blogger...