[Net]

Ка можно определить общую площадь окружностей и прямоугольников на плоском чертеже?
Странная картина получается, рисую две окружности и один прямоугольник- общая площадь определяется правильно, а когда число фигур увеличивается, то значение площади неверно.
Пришлось всё объединять в регион и вычитать из общего контура, чтобы найти площадь всех фигур. Это совсем неудобно...

[che]

>Net

Не совсем понял - каким методом пользвались, что неправильно определяет для большого кол-ва фигур. Здесь можно предложить лисп. Средствами акада тяжеловато. По лиспу куча разных программ по определению площадей. Одна из простейших, через _area (из autocad.ru):

Код:

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

(defun c:pl (/ ss_1 obj i s)
  (setvar "cmdecho" 0)
  (setq i 0 s 0)
  (setq ss_1 (ssget))
  (repeat (SSLENGTH ss_1)
    (setq obj (ssname ss_1 i))
    (setvar "cmdecho" 0)
    (command "area" "object" obj)
    (setq s(+ s (getvar "area")))
    (setq i (+ i 1))
    (setvar "cmdecho" 1)
    (princ(strcat "\nПлощадь " (itoa i) " объекта = "))
    (princ (getvar "area"))
  );end repeat
  (setvar "cmdecho" 1)
  (princ "\nОбщая площадь: ")
  (princ s)
  (princ)
);end defun