подсчет площадей

подсчет площадей · 16.12.2003, 10:45

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

Torino · 16.12.2003, 10:55

Сразу нельзя, но можно воспользоваться таким методом:
запускаем команду BOUNDARY
в строке OBJECT TYPE указываем REGION
жмем на кнопку PICK POINT
указываем точку внутри интересующей нас области.
Создается регион.
После этого запускаем команду AREA
Набираем O
Указываем на только что созданный регион
Получаем искомую площадь.

16.12.2003, 11:07

Torino! Может у меня что-то нетак с командой BOUNDARY? У меня область с 4 островками, BOUNDARY created 5 regions, а не единый region и приходится тыкать в каждый

Torino · 16.12.2003, 12:47

Про островки я не понял, но если необходимо объединить несколько регионов в один, то можно воспользоваться командой UNION.

16.12.2003, 13:10

У меня фасад с кучей разных окон. Я хочу для удобства пользования командой area создать одну область (Region), кот. учитывала бы наличие проемов - а-ля сыр с дырками. Сейчас же у меня получается командой BOUNDARY куча+одна область (Region). А команда UNION здесь совершенно не подходит.

niko · 16.12.2003, 13:55

Скачай калькулятор Оконечникова.FOCALL. И считай площади, длины и их суммы с островками и без. Хорошая вещь.

Admin · 16.12.2003, 14:09

Насколько я знаю для команды
Tools menu: Inquiry Region/Mass Properties
необязательно объединять регионы. Достаточно выделить несколько регионов и все свойства, в том числе и площать, выдаются как для совокупности

16.12.2003, 14:26

Получились. :!: Спасибо Niko и Оконечникову. А Admin что-то не допонял

Perezz!! · 16.12.2003, 21:50

Dima ->
Свой вопрос см. в разделе Программирование: http://autokad.ru/forum/viewtopic.php?t=558

Mikhail · 27.08.2004, 12:56

А калькулятор Оконечникова FOCALL где можно найти, а то ссылаются, а ссылки нет. Ссылка на его сайт мертвая почему то... Может у кого есть в Download выложит?

Спасибо.

Dima · 27.08.2004, 13:13

в Downloade он помоему был!
если нет то двай e-mail!
или пиши наyd@monolit.il.od.ua

lee · 28.08.2004, 14:51

Всем изобретателям велосипеда !!!

Autodesk Architectural Desktop
....................
То, что доктор прописал.

Юрий Губский · 30.11.2006, 19:26

Цитата:

Всем изобретателям велосипеда !!!

«Люди добрыи поможите кто можит !» – типа традиционного вступления

Нужна удобная программа по подсчету площадей помещений с учетом штукатурки, то есть как и требуется по нормам.
Предложения ADT к сожалению не устраивают – еще далеко до того времени, чтобы все в нем работали… Искал здесь и на родственном форуме, но пока не нашел такой, может быть и пропустил.
Подобная у меня давно есть, но не все там так как хотелось бы, автора к сожалению не знаю. Немного ее почистил, кое-что оставил, но в силу незнания языка сам сделать нужное не могу, хотя похожего вокруг много и кажется, что вот еще чуть-чуть, но …
В общем, на основе виденного и имеющегося, что хотелось бы получить:

А. Расчетная часть площадей
1. Подсчет площадей указанием внутренней точки помещений с подсветкой выбранных областей с исключением островков (колонн и пр.)
2. Запрос толщины штукатурки со значением по умолчанию 20мм
3. Запрос на точку вставки результата в метрах квадратных с точностью до сотых

Б. Отдельная программа на суммирование указанием или рамкой.
Желательно с безразличием к разделителям точка или запятая, так как бывает после невнимательного ручного вмешательства эти знаки заменяются, и имеющаяся у меня программа дробную часть игнорирует.

Пожелания:
Красивости типа диалоговых окон не нужны – тормозят они работу, лучше запросы в командной строке
В опциях запроса на указание внутренней точки можно (но не обязательно) дать запрос на масштаб для универсальности, по умолчанию 1:1.
Также для универсальности (но тоже не обязательно) в запросе на точку вставки результата в опциях можно дать вариант на вывод результата в единицах чертежа и задания высоты текста.
Есть еще ньюанс – криворукость чертежей, то-есть незаметная нестыковка линий, ну да уж бог с ними…

Что есть:
А
1. Уже встречалось во многих программах здесь на DWG.ru
2. Есть в прилагаемой программе
3. Есть везде
Б
1. Есть в разных программах. Есть и в прилагаемой программе, но требует доработки

Вот такая получается солянка, почти все вроде есть в разных местах, а вот в кучку собрать не умею.
Может сможет кто-нибудь осуществить подвиг? Или уже есть у кого-нибудь такое не жалкое чтобы поделиться? Или уже было где-нибудь, так ткните посильней туда!
Думаю, что признательность человечества будет безразмерной, по крайней мере присутствующей здесь части. Я первый говорю СПАСИБО!
[ATTACH]1164904211.rar[/ATTACH]

Юрий Губский · 01.12.2006, 10:51

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

Кулик Алексей aka kpblc · 01.12.2006, 11:06

http://dwg.ru/dnl/184
http://dwg.ru/forum/viewtopic.php?t=558
http://home.pacifier.com/~NEMI
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=30724Ed
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19561RU
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19990VG
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19664yZ
---
Код не тестировал и не правил.
---
ADT и его средства для простановки и учета площадей (ИМХО) будут более удобными.

VVA · 01.12.2006, 12:06

Цитата:

Б. Отдельная программа на суммирование указанием или рамкой.
Желательно с безразличием к разделителям точка или запятая, так как бывает после невнимательного ручного вмешательства эти знаки заменяются, и имеющаяся у меня программа дробную часть игнорирует.

Мы используем эту

Код:

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

;|============= Команда SumT ==================================
  Назначение:  Суммирование Тектса,Мтекста указанием или рамкой.
  Особенности: Безразлична к разделителям точка или запятая.
               Ввиду особенности работы atof стоки вида "22.3мама"
               будут учтены как число 22.3
               При выводе результата число округляется в соответствии
               с текущими установками переменной LUPREC. Команда _UNITS
|;
(defun c:sumT ( / res selset ins_pt txt_height) 
 (vl-load-com)(setq res 0.)
 (if (setq selset (ssget '((0 . "TEXT,MTEXT")))) 
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
      (setq res (+ res (atof (VL-STRING-TRANSLATE "," "." (vla-get-textstring (vlax-ename->vla-object ent))))))
      ) ;_ end of foreach 
    ) ;_ end of if
  (princ "\nРезультат=")(princ (rtos res 2))
  (if (not (equal res 0. 1e-3))
    (progn 
      (if (not (setq txt_height (getreal "\nВведите высоту текста <2.5> : ")))(setq txt_height 2.5))
      (mip-text-draw (rtos res 2)(setq ins_pt (lib:point-offscreen)) txt_height 0 nil)
      (command "_.copybase" ins_pt (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) 
      ) ;_ end of progn 
    ) ;_ end of if
   (princ) 
  )
(princ "\nНаберите в командной строке SumT")

Юрий Губский · 05.12.2006, 01:19

Я же говорю, искал, но не нашел того, что описал – подсчет площади помещений со штукатуркой указанием области с исключением островков (колонн). Ссылки видел, на всякий случай проверил – очень близка программа Владимира Громова, почти один к одному что есть у меня (может быть его ранняя версия?), но без указания области и блока суммирования, хотя последний блок у него есть отдельно. Подсчет штукатурки только, насколько я «понял», у него считается точнее.
Кстати, в выложенном здесь лиспе есть интересная функция изменения формы объекта с сохранением площади.
В целом насчет ADT согласен – читал, но не пробовал. Правильно ли я понял, что штукатурку(?) при подсчете площадей там задать можно? Проблема в том, что для правильной организации работы надо всех сажать на него, что проблематично.

Код считает, но к сожалению не дает вставить текст:

Результат=320.52
Введите высоту текста <250> :
; error: no function definition: LIB:POINT-OFFSCREEN

Нашел в других местах, только не столь краткое решение.

Спасибо за ответы, но пока желаемого решения не нашел. Эх, знал бы лисп…
:cry:

VVA · 05.12.2006, 12:15

Извини, вечно забываю библиотечные ф-ции

Код:

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

;|============= Команда SumT ================================== 
  Назначение:  Суммирование Тектса,Мтекста указанием или рамкой. 
  Особенности: Безразлична к разделителям точка или запятая. 
               Ввиду особенности работы atof стоки вида "22.3мама" 
               будут учтены как число 22.3 
               При выводе результата число округляется в соответствии 
               с текущими установками переменной LUPREC. Команда _UNITS 
|; 
(defun c:sumT ( / res selset ins_pt txt_height)
;|=============================================================================
*    Возвращает точку, лежащую за пределами текущего экрана.
=============================================================================|;
(defun lib:point-offscreen (/ VCTR Y_Len X_Pix Y_Pix X_len Lc)
(setq VCTR (getvar "VIEWCTR") Y_Len (getvar "VIEWSIZE")
   SSZ (getvar "SCREENSIZE") X_Pix (car SSZ) Y_Pix (cadr SSZ)
   X_Len (* (/ X_Pix Y_Pix) Y_Len) Lc (polar VCTR pi X_Len)
   Lc (polar Lc 4.71239 Y_Len))) ;_ end of defun
 (vl-load-com)(setq res 0.) 
 (if (setq selset (ssget '((0 . "TEXT,MTEXT")))) 
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
      (setq res (+ res (atof (VL-STRING-TRANSLATE "," "." (vla-get-textstring (vlax-ename->vla-object ent)))))) 
      ) ;_ end of foreach 
    ) ;_ end of if 
  (princ "\nРезультат=")(princ (rtos res 2)) 
  (if (not (equal res 0. 1e-3)) 
    (progn 
      (if (not (setq txt_height (getreal "\nВведите высоту текста <2.5> : ")))(setq txt_height 2.5)) 
      (mip-text-draw (rtos res 2)(setq ins_pt (lib:point-offscreen)) txt_height 0 nil) 
      (command "_.copybase" ins_pt (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) 
      ) ;_ end of progn 
    ) ;_ end of if 
   (princ) 
  ) 
(princ "\nНаберите в командной строке SumT")

Юрий Губский · 05.12.2006, 15:18

Что-то опять не ладится... :cry:
Вот результат работы:

Command: _SumT
Select objects: Specify opposite corner: 3 found

Select objects:

Результат=27.95
Введите высоту текста <2.5> : 100
*Cancel*
no function definition: MIP-TEXT-DRAW
Command:
Command:

VVA · 05.12.2006, 17:50

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

Код:

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

;|============= Команда SumT ================================== 
  Назначение:  Суммирование Тектса,Мтекста указанием или рамкой. 
  Особенности: Безразлична к разделителям точка или запятая. 
               Ввиду особенности работы atof стоки вида "22.3мама" 
               будут учтены как число 22.3 
               При выводе результата число округляется в соответствии 
               с текущими установками переменной LUPREC. Команда _UNITS 
|; 
(defun c:sumT ( / res selset ins_pt txt_height) 
 (vl-load-com)(setq res 0.) 
 (if (setq selset (ssget '((0 . "TEXT,MTEXT")))) 
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
      (setq res (+ res (atof (VL-STRING-TRANSLATE "," "." (vla-get-textstring (vlax-ename->vla-object ent)))))) 
      ) ;_ end of foreach 
    ) ;_ end of if 
  (princ "\nРезультат=")(princ (rtos res 2)) 
  (if (not (equal res 0. 1e-3)) 
    (progn 
      (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0) ;_ end of =
        (progn ;; нулевая высота текста
	  (if (not (setq txt_height (getreal "\nВведите высоту текста <2.5> : ")))(setq txt_height 2.5)) 
          (vl-cmdf "_.TEXT" "0,0" txt_height 0 (rtos res 2))) ;_ end of progn
        (progn ;; фиксированнная высота
          (vl-cmdf "_.TEXT" "0,0" 0 txt (rtos res 2))) ;_ end of progn
         )
      (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) 
      ) ;_ end of progn 
    ) ;_ end of if 
   (princ) 
  ) 
(princ "\nНаберите в командной строке SumT")

Юрий Губский · 06.12.2006, 10:06

Цитата:

Сообщение от VVA

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

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

IDmon · 14.05.2008, 20:59

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

Bull · 15.05.2008, 09:29

Цитата:

Сообщение от IDmon

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

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

skif58 · 15.05.2008, 11:05

Цитата:

Сообщение от IDmon

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

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

Bull · 15.05.2008, 11:20

Цитата:

Сообщение от skif58

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

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

skif58 · 15.05.2008, 12:43

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

Bull · 15.05.2008, 12:50

Цитата:

Сообщение от skif58

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

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

skif58 · 15.05.2008, 13:43

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

Bull · 15.05.2008, 15:09

Это если не

Цитата:

Сообщение от Bull

тормозит штриховка иногда.

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

skif58 · 15.05.2008, 15:49

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

Bull · 15.05.2008, 16:02

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

Fellini · 15.05.2008, 16:36

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

Код:

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

(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мм, чтобы временно подсветить - сделать жирным контур определяемой площади ?

Счетовод · 30.08.2008, 14:17

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

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

Shoorup · 30.08.2008, 14:23

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

Счетовод · 30.08.2008, 14:38

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

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

Shoorup · 30.08.2008, 15:04

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

Vildar · 30.08.2008, 15:05

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

Счетовод · 30.08.2008, 15:12

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

Askarov · 30.08.2008, 17:17

Цитата:

Сообщение от IDmon

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

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

Счетовод · 31.08.2008, 15:08

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

vasilyis · 31.08.2008, 18:36

Цитата:

Сообщение от Счетовод

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

Получилось, только ваши разнотипные объекты, какие-то глюченные. Выкладываю файл, где нормально отрабатывают заливки с разнотипными линиями.

Счетовод · 31.08.2008, 20:03

Цитата:

Сообщение от vasilyis

Получилось, только ваши разнотипные объекты, какие-то глюченные. Выкладываю файл, где нормально отрабатывают заливки с разнотипными линиями.

в чём выражается глючность объектов?
это просто кусочек профиля поверхности земли, правда профиля были построены в Civil'e

vasilyis · 31.08.2008, 20:07

Цитата:

Сообщение от Счетовод

... это просто кусочек профиля поверхности земли, правда профиля были построены в Civil'e

Может поэтому он и глюченный, ACAD его не воспринимает, как свой объект.

Павел Котелевец · 26.06.2010, 00:51

Единственное неудобство BOUNDARY состоит в том, что она, в отличие от HATCH, не поддерживает HPGAPTOL.
Если бы кто-нибудь переписал BOUNDARY под эту возможность, проблема с незамкнутыми контурами и их площадью была бы решена.
А вообще, восстанавливать контур штриховки не проблема (и встроенными, и лиспом это уже давно имеется) =\
Таким образом, простановка площадей незамкнутых контуров через перепись BOUNDARY - просто спортивный интерес. Для знатоков ARX.
Через лисп:

1) HATCH слушается HPGAPTOL и, в результате, может заштриховывать незамкнутые контуры с разрывом до 5000.
2) У штриховки легко извлекается контур.
3) Если контура сконвертить в REGION, то становятся доступны их центры масс и площади.

Код простановки центра масс региона:

Код:

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

(defun begin_activex ( / )
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))
(setq paper_space (vla-get-PaperSpace active_document))
)
(Defun c:cent_mass(/ OBJ c_mass_list c_mass)
(begin_activex)
(setq OBJ (vlax-ename->vla-object (car (entsel))))
(setq c_mass_list (vlax-safearray->list
(vlax-variant-value (vlax-get-property OBJ "Centroid"))))
(if (nth 2 c_mass_list) (setq c_mass (vlax-3D-point c_mass_list))
(setq c_mass (vlax-3D-point c_mass_list (List 0))))
(Vla-addPoint model_space c_mass)
)

4) В центр масс можно проставлять тексты с площадью каждого региона, так будет очевиднее к какому контуру какая площадь относится.
5) Если всё запихнуть в цикл - получится отличный автомат.

В принципе, вторая часть уже готова (C:PLAREAS)
Осталось придумать генератор Конвексных Контуров (у которых не будет встречаться двух последующих углов суммой свыше 450 градусов)

Payne · 09.02.2011, 22:41

Нашел наиболее подходящую тему через поиск с использованием таких слов как площадь и подсчет) Ребята! Подскажите "молодежи" в автокаде, можно ли как-нибудь настроить автокад так, что бы площадь показывалась в "человеческих" квадратных метрах, а не в квадратных миллиметрах, в палитре быстрых или просто свойств, Благодарю заранее

И еще, скажите пожалуйста, есть ли более удобные инструменты вроде СПДС для автокада для проведения расчетов площадей?

Александр Ривилис · 10.02.2011, 09:27

Цитата:

Сообщение от Payne

можно ли как-нибудь настроить автокад так, что бы площадь показывалась в "человеческих" квадратных метрах, а не в квадратных миллиметрах, в палитре быстрых или просто свойств,

Как вариант: GeomProps

Payne · 11.02.2011, 22:23

Спасибо, но я новичок в автокаде, вернее работать в автокаде вроде бы научился, но такие тонкости как пользование дополнительными примочками не умею, не могли бы вы пояснить, как им воспользоваться и где увидеть площади в кв. метрах и как суммировать? Где почитать можно?

Александр Ривилис · 12.02.2011, 12:52

Цитата:

Сообщение от Payne

Где почитать можно?

По той ссылке, которую я дал прочитать не только первое сообщение.

Payne · 12.02.2011, 18:25

Спасибо, сам уже разобрался, и кстати, читал я там не только первое сообщение, правда не нашел этой зацепки

Payne · 14.02.2011, 23:39

Совсем забыл, большое спасибо автору макроса GeomProps!.

Александр Ривилис · 15.02.2011, 00:24

Цитата:

Сообщение от Payne

Совсем забыл, большое спасибо автору макроса GeomProps!.

Пожалуйста!

16.12.2003, 10:45		#1
подсчет площадей Марта Сообщений: n/a Задача простая - подсчет площадей. Есть ли возможность получить сразу значение, указав точку внутри области (как в штриховке) с учетом островков, не занимаясь утомительным Add/Subtract единичных элементов?
Просмотров: 18704