Реклама / ООО «ИЗОЛПРОЕКТ» / ИНН: 7725566484 | ERID: 2VtzqucPabn
IPB IPB
Проектирование, монтаж, наладка, сервис

Здравствуйте, гость ( Вход | Регистрация )

- Рекомендации АВОК 5.5.1-2023
«Системы противодымной вентиляции жилых и общественный зданий»

- Рекомендации АВОК 7.8.3-2023
«Проектирование инженерных систем лабораторий»

- Рекомендации АВОК 7.10-2023
«Здания жилые и общественные. Защита от шума и вибрации инженерного оборудования»

АВОК в соц. сетях
ИНН: 7714824045

> AutoCAD for HVAC

Данный раздел создан по просьбам участников Форума для сбора на сайте коллекции реальных работ чертежей for HVAC.

При присоединении файла, пожалуйста, указывайте следующую информацию:
Автор (Информация об авторе.)
Размер файла (максимальный размер присоединяемого файла 15 Мб)
Описание работы

Вся информация принимается и распространяется бесплатно.
Выполняет исключительно информационную функцию.
Администрация не несет ответственности за содержание представленной документации.
При обнаружении ошибок или неточностей просим вас прислать свои замечания на e-mail: ibforum@abok.ru.

 
Добавить ответ в эту темуОткрыть тему
> Извлечение данных из блоков, Извлечение данных из атрибутов и создание спецификации.
mvsdf
сообщение 17.5.2019, 14:54
Сообщение #1





Группа: Участники форума
Сообщений: 25
Регистрация: 29.4.2010
Пользователь №: 54827



Здравствуйте форумчане. Проектирую тепловые сети в том числе тепловые камеры. Как создать блоки оборудования с атрибутами в том числе и труб которые можно вытягивать разобрался. Теперь хочу автоматически собирать спецификацию. Чертежи выполняем пока в 2д, поэтому все оборудование и фасонина разбиты на блоки с двумя а то и тремя видами. То есть к примеру у тройника есть блок "тройник ду200 вид сверху" и блок "тройник ду200 вид спереди". Сделано для того что на разных сечениях и разрезах тепловых камер был нужный вид оборудования. При извлечении данных из блоков автокад создает спецификацию и группирует атрибуты по названию блока. В моих блоках атрибуты внутри блоков одинаковые для одного фасонного элемента или к примеру крана. Вопрос - как заставить автокад объединять блоки в таблице спецификации по содержимому атрибута? Или есть какие то другие способы собрать спецификацию из набора блоков?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Composter
сообщение 17.5.2019, 14:59
Сообщение #2





Группа: Участники форума
Сообщений: 3500
Регистрация: 5.3.2009
Из: Газ-Ачака
Пользователь №: 30120



ну как вариант сделать невидимый атрибут "название для спецификации" и сортировать по нему.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
mvsdf
сообщение 17.5.2019, 15:07
Сообщение #3





Группа: Участники форума
Сообщений: 25
Регистрация: 29.4.2010
Пользователь №: 54827



В этом то весь и вопрос. Как сортировать?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Composter
сообщение 17.5.2019, 15:33
Сообщение #4





Группа: Участники форума
Сообщений: 3500
Регистрация: 5.3.2009
Из: Газ-Ачака
Пользователь №: 30120



так вроде на странице 5/8 есть графа "combine identical rows" самая верхняя, если поставить галочку то должно проссумировать
еще вот есть script на vba который суммириует в excel одинаковые строки

Сообщение отредактировал Composter - 17.5.2019, 15:43
Прикрепленные файлы
Прикрепленный файл  summirovani_massiva.zip ( 16,07 килобайт ) Кол-во скачиваний: 6
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
mvsdf
сообщение 18.5.2019, 16:27
Сообщение #5





Группа: Участники форума
Сообщений: 25
Регистрация: 29.4.2010
Пользователь №: 54827



А можно поподробнее? Желательно со скринами.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Composter
сообщение 18.5.2019, 16:49
Сообщение #6





Группа: Участники форума
Сообщений: 3500
Регистрация: 5.3.2009
Из: Газ-Ачака
Пользователь №: 30120



да вроде и так должно было понятно
но все равно скрины прикладываю
слева с галкой спарва без

Сообщение отредактировал Composter - 18.5.2019, 16:49
Прикрепленные файлы
Прикрепленный файл  DE_with.png ( 13,09 килобайт ) Кол-во скачиваний: 42
Прикрепленный файл  DE_without.png ( 14,04 килобайт ) Кол-во скачиваний: 23
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
mvsdf
сообщение 18.5.2019, 20:15
Сообщение #7





Группа: Участники форума
Сообщений: 25
Регистрация: 29.4.2010
Пользователь №: 54827



Эта галочка как раз и объединяет по названию блока. И получается что один и тот же элемент в спецификацию попадает дважды.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Composter
сообщение 19.5.2019, 12:18
Сообщение #8





Группа: Участники форума
Сообщений: 3500
Регистрация: 5.3.2009
Из: Газ-Ачака
Пользователь №: 30120



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

в таком случае вижу несколько выходов из ситуации для вас
- экспортировать без имени в ексель, и с помощью моего скрипта выше обрабатывать в екселе. можно еще экпорт длеть с помощью след скрипты ,если конечно все данные только в атрибутах http://forum.abok.ru/index.php?s=&show...t&p=1337385
- написать лисп для этого дела, который будеь извлекать атрибуты и сортировать и суммировать.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Ацетилен
сообщение 17.5.2020, 4:07
Сообщение #9





Группа: Участники форума
Сообщений: 95
Регистрация: 3.1.2018
Пользователь №: 334479



Не обязательно атрибуты, комментария к блоку достаточно, если дружите хоть немного с VBA.

Неудачная загрузка. Вам запрещено загружать такой тип файлов, поэтому текстом дам-

----------------------------------------------------------------------------------------------------------------

Dim elem As Object

Dim n As Long
Dim x As Long

Dim item As Object
Dim bl As AcadBlock
Dim lay As AcadLayer

Dim prop As Variant
Dim s1 As String
Dim s2 As String

Dim BlocksNames() As String
Dim BlocksCount() As Long

Dim Ex As Excel.Application
Dim Book As Excel.Workbook


ReDim BlocksNames(0)
ReDim BlocksCount(0)


For Each elem In ThisDrawing.ModelSpace

If elem.EntityName = "AcDbBlockReference" Then

s2 = elem.Layer

Set lay = ThisDrawing.Layers.item(s2)

If lay.LayerOn = True And lay.Freeze = False Then


s1 = elem.Name

Set bl = ThisDrawing.Blocks.item(s1)

prop = bl.Comments

If prop <> "" Then

If BlocksNames(0) = "" Then

BlocksNames(0) = prop
BlocksCount(0) = 1
prop = ""


Else

For x = 0 To UBound(BlocksNames)

If prop = BlocksNames(x) Then

BlocksCount(x) = BlocksCount(x) + 1

prop = ""

End If

Next x


If prop <> "" Then

ReDim Preserve BlocksNames(UBound(BlocksNames) + 1)

BlocksNames(UBound(BlocksNames)) = prop

ReDim Preserve BlocksCount(UBound(BlocksCount) + 1)

BlocksCount(UBound(BlocksCount)) = 1

prop = ""

End If

End If

End If

End If


End If

Next elem


If BlocksNames(0) <> "" Then

Set Ex = New Excel.Application
Ex.Visible = True

Set Book = Ex.Workbooks.Add

For x = 0 To UBound(BlocksNames)

Book.Sheets(1).Cells(x + 1, 1).Value = BlocksNames(x)
Book.Sheets(1).Cells(x + 1, 2).Value = BlocksCount(x)

Next x

End If

-----------------------------------------------------------------


Данный код подсчитывает блоки с одинаковыми комментариями на включённых и не замороженных слоях, имена блоков при этом могут быть любые. После запускается Эксель и данные экспортируются в тудой. В проекте VBA должна быть подключена объектная библиотека Эксель.

Tools->References->Microsoft Excel xx.x Object Library
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Ацетилен
сообщение 17.5.2020, 5:19
Сообщение #10





Группа: Участники форума
Сообщений: 95
Регистрация: 3.1.2018
Пользователь №: 334479



Прикрепленный файл  Подсчёт_блоков.rar ( 8,96 килобайт ) Кол-во скачиваний: 9


Версия подключённой библиотеки - 14.0


Сообщение отредактировал Ацетилен - 17.5.2020, 5:21
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Ацетилен
сообщение 18.5.2020, 18:10
Сообщение #11





Группа: Участники форума
Сообщений: 95
Регистрация: 3.1.2018
Пользователь №: 334479



Подправил немножко

Прикрепленный файл  Подсчёт_блоков.rar ( 8,78 килобайт ) Кол-во скачиваний: 10
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Ацетилен
сообщение 21.5.2020, 12:16
Сообщение #12





Группа: Участники форума
Сообщений: 95
Регистрация: 3.1.2018
Пользователь №: 334479



Ну и по тем значениям атрибутов, которые установлены по умолчанию, теперь тоже можно считать.

Прикрепленный файл  Подсчёт_блоков.rar ( 11,31 килобайт ) Кол-во скачиваний: 21
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

Добавить ответ в эту темуОткрыть тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Реклама
ООО «Арктика групп» ИНН: 7713634274


ООО «УНИСПЛИТ» ИНН: 6453155081 erid:2VtzquYEfbY

Последние сообщения Форума





Rambler's Top100 Rambler's Top100

RSS Текстовая версия Сейчас: 28.3.2024, 17:41