[Arharovez]

Вопрос от совсем мало разбирающегося в этом деле архитектора - Знаки после запятой : простой калькулятор - http://cadtips.cadalyst.com/general-...lected-numbers что нужно изменить чтобы получить три, четыре знака после запятой??

Код:

[Выделить все]

; TIP1068.LSP: WWT.LSP   Total Selected Numbers   (c)1995, K. Socrates

(defun C:WWT (/ S1 LG INDEX COUNT C B A)
   (setq S1 (ssget)
      LG (sslength S1)
      INDEX 0
      COUNT 0
      C 0
   )

   (while (/= INDEX LG)
      (setq X (ssname S1 INDEX)
         A (entget X)
         D (cdr (assoc 0 A))
      )
      (if (= D "TEXT")
         (progn
            (setq B (atof (cdr (assoc 1 A)))
               C (+ C B)
               COUNT (1+ COUNT)
            )
         )
      )
      (setq INDEX (1+ INDEX))
   )
   (princ (strcat "\nTotal Weight of " (itoa count) " Parts : " (rtos C 2 2)))
   (princ)
) ; end wwt.lsp

[Alan]

Сообщение от Arharovez то нужно изменить чтобы получить три, четыре знака после запятой??

(rtos C 2 3) или
(rtos C 2 4)

[Arharovez]

Большое спасибо!!! Есть еще дополнительный вопрос : можно ли сделать так чтобы можно было считать позиции вида "0,999"?? Поскольку сейчас код считает только значения с разделителем точкой - "0.999"
Можно конечно взять и заменить все, но потом нужно все равно менять обратно, и т.д.

[Alan]

Сообщение от Arharovez можно ли сделать так чтобы можно было считать позиции вида "0,999"??

Можно
Замени строку

Код:

[Выделить все]

 (setq B (atof (cdr (assoc 1 A)))

на строку

Код:

[Выделить все]

 (setq B (atof (vl-string-subst "." "," (cdr (assoc 1 A))))

Но кажется здесь на форуме были прекрасные сумматоры... в Поиск

[Arharovez]

ЕЩЕ РАЗ БОЛЬШОЕ СПАСИБО!
Он слишком простой, удобный и незатейливый, тем и привлекает.

[VVA]

Сообщение от Alan (setq B (atof (vl-string-subst "." "," (cdr (assoc 1 A))))

И чтобы в один прекрасный момент не получить сообщение no function definition добавить (vl-load-com)