Задача простая - подсчет площадей. Есть ли возможность получить сразу значение, указав точку внутри области (как в штриховке) с учетом островков, не занимаясь утомительным Add/Subtract единичных элементов?

[Юрий Губский]

Сообщение от VVA Переписал, вроде должно работать

Все в порядке, работает!
Спасибо!

[IDmon]

Народ научите считать площади в автокаде ,надо кирпич облицовачный посчитать по фасадом кто ,что знает , как это быстро и точно сделать?

[Bull]

Сообщение от IDmon надо кирпич облицовачный посчитать по фасадом

Чего-чего посчитать? Как? Если напишешь по-русски, может, поймем...

[skif58]

Сообщение от IDmon Народ научите считать площади в автокаде ,надо кирпич облицовачный посчитать по фасадом кто ,что знает , как это быстро и точно сделать?

Как вариант: Залей штриховкой, выбери ее и в Свойствах посмотри ее площадь.

[Bull]

Сообщение от skif58 Как вариант: Залей штриховкой, выбери ее и в Свойствах посмотри ее площадь.

Ну, если просто говорить о просмотре занимаемой площади, то лучше пользоваться командой Boundary - он не тормозит, как штриховка иногда. При этом можно просто указанием внутренней точки это сделать. Если в контуре есть сплайны, созданную область команда предлагает превратить в регион - соглашайся. (Сразу же создать регион из незамкнутого контура не получится.)

[skif58]

Bull,
Boundary (Контур)... Дык, - на фасаде же окна... ?

[Bull]

Сообщение от skif58 Bull, Boundary (Контур)... Дык, - на фасаде же окна... ?

Ну... Я уж говорить не стал, что их вычитать надо. Т.е. из большего region вычесть все внутренние. Это и так должно быть ясно.

[skif58]

Я к тому, что штриховка сама окна обойдет...

[Bull]

Это если не

Сообщение от Bull тормозит штриховка иногда.

То просто долго считает, то вообще краев не видит

[skif58]

У меня все нормально...

[Bull]

У меня тоже нормально. ПОЧТИ всегда

[Fellini]

Интересно, вот известный код:

Код:

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

(defun c:pl_area (/ all base cmd lent sub)
  (setq lent (entlast)
        cmd  (getvar "cmdecho")
  ) ;_ end of setq
  (setvar "cmdecho" 0)
  (princ "\nКликни внутри: ")
  (if (vl-cmdf "_.-boundary" "_a" "_i" "_y" "_o" "_r" "" pause "")
    (while (setq lent (entnext lent))
      (setq all (cons (vlax-ename->vla-object lent) all))
    ) ;_ end of while
  ) ;_ end of if
  (setvar "cmdecho" cmd)
  (if all
    (progn
      (setq all  (mapcar (function (lambda (a) (nth a all)))
                         (vl-sort-i (mapcar 'vla-get-area all) '>)
                 ) ;_ end of mapcar
            base (car all)
            all  (cdr all)
      ) ;_ end of setq
      (if all
        (progn (setq sub (car all)
                     all (cdr all)
               ) ;_ end of setq
               (foreach a all (vla-boolean sub acunion a))
               (vla-boolean base acsubtraction sub)
        ) ;_ end of progn
      ) ;_ end of if
  (command "_.-TEXT" "_J" "_TL" "0,0" 250 0 (rtos(* 0.000001 (vla-get-area base)) 2 2)  "")
  (command "_.copybase" "0,0" (entlast)"") 
  (command "_.erase" (entlast) "")
   (setvar "CMDECHO" 1)  
  (command "_.pasteclip" pause)

         (vla-delete base)
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

(progn (princ "\nType - 'pl_area' in the command string for beginning.") (princ))

Как бы присвоить региону толщину например 2мм, чтобы временно подсветить - сделать жирным контур определяемой площади ?

[Счетовод]

Здраствуйте!
У меня есть вопрос: При попытке определить площадь абсолютно замкнутого контура выскакивает сообщение в командной строке Selected object does not have an area..

Как с этим работать?

[Shoorup]

Счетовод, уверен что контур абсолютно замкнут? И как определяешь площадь?

[Счетовод]

Уверен, проверял не один раз и с штриховкой проблемы такие же, не хочет заливать контур и всё, говорит площадь незамкнута

Пробовал и через свойства и через inquiry

[Shoorup]

Счетовод, выкладывай свой контур, я посмотрю.

[Vildar]

Счетовод, еще такая фича, нужно чтобы вся штрихуемая область была на экране.
ЗВ тоже самое и с выделением

[Счетовод]

Shoorup, узнать нужно площадь центрального треугольника, по заливке не получается определить, т.к. постоянно выскакиет сообщение, что область не замкнута

[Askarov]

Сообщение от IDmon Народ научите считать площади в автокаде ,надо кирпич облицовачный посчитать по фасадом кто ,что знает , как это быстро и точно сделать?

а что если в СПДС площадь взять, а далее на количество кирпичей умножить . Зачем усложнять

[Счетовод]

Shoorup, ну что не получилось?