[Synthesis]

Доброго времени суток!
Начал осваивать MEP.
Столкнулся с проблемой собственно указанной в заголовке темы. Как бы сделать чтоб осевая линия была осевой, тонкой. Изоляция например пунктир, тонкой.
Получается пока вот так...

Посмотрел тут: http://forum.dwg.ru/showthread.php?t=35918 многое прояснилось.

[VitalyAF]

Получается пока вот так...

Так получается когда не пользуются шаблоном..., или рисуют в чужом файле, от архитекторов, например.
Проверьте отображение осевой в новом файле, созданного из стандартного шаблона, если всё нормально, то настройте у себя так же в рабочем файле.
Настроить масштаб линии можно в стиле объекта (трубы, воздуховода и т.д.) или в палитре свойств объекта.
Только всегда нужно помнить одно правило!
Правило приоритетов. Оно заключается в том, чтобы гибко настраивать отображение объектов тремя способами.
1. Из дисплейных настроек - самый низкий приоритет, для всех объектов данного типа, например для всех труб.
2. Из стиля объекта - средний приоритет, для всех объектов данного стиля
3. Из свойств объекта - высший приоритет, только для данного объекта
Исходя из этого правила настраивайте шаблон.

Ps

Тогда получается настройка отображения всех труб из менеджера экранных представлений, если какой-то отдельный стиль трубы нуждается в особых настройках, то редактируем стиль этой трубы, а если в этом стиле есть какая-то особая труба, которая бы отображалась не так как остальные трубы данного стиля и вообще все трубы, то настраиваем дисплейные настройки этого объекта!
Т.е. в самом простом случае достаточно настроить по п.1
Это правило распространяется для всех MEP и АА объектов!

[Synthesis]

Спасибо!

[cdholder]

Вместо тысячи слов и 6 месяцев работы... Кушайте на здоровье, а то я так думаю, я никогда не сяду написать инструкцию как это все с самого начала делать. В темплейте содержатся все наработки по автоматическим спецификациям, которые мы с Уважаемым Виталием Филином в муках рожали на АВОКе.

Хозяйке на заметку: отображение линий в section plane управляется параметром масштаба аннотации, но нужно регенерировать разрез.

[alexius_sev]

А не подскажите, как добаиться отобразении осевой линии на разрезе для труб?

[VitalyAF]

Используйте шаблоны для создания файлов, это гарантирует правильное отображение объектов.

[cdholder]

Сообщение от alexius_sev А не подскажите, как добаиться отобразении осевой линии на разрезе для труб?

Если из далека заходить - залезайте в Display manager и разбирайтесь, какие лампочки для какого представления включить. Если короче - используйте, таки, мой шаблон и сэкономите себе полгода исследований, я же не зря его всем дарю. Там уже все огонь в плане труб.

[VitalyAF]

>cdholder

Здравствуйте!
Посмотрел таблицы и формулы, что вы предлагаете в шаблоне и хочу сделать несколько замечаний.
1. используйте стандартные имена свойств на соответствующих языках, это упрощает их адаптацию к проектам и способствует распространению
2.чтобы посчитать количество не нужна формула, а для того чтобы проставить ед.изм. достаточно такого простого выражения >

If "[ОбъектТруба:Типобъекта]" = "Труба" Then RESULT = "м" Else RESULT = "шт."

3. В формулах заметил несуразности, которые лучше устранить, т.к. по ним можно судить об авторе. Нам с вами это ни к чему ))

RESULT = "--"
Set acadApp = GetObject(,"AutoCAD.Application")
Length=0
Count = 0
s="[Pipes_fittings_set:PartSizeName]"
f="[Pipes_fittings_set:ObjectType]"
h="[Pipes_fittings_set:Handle]"
a="[Pipes_fittings_set:PartType]"
k="[QUANTITY]"
L=[Pipes_fittings_set:Length]
For Each object In acadApp.ActiveDocument.ModelSpace
If object.ObjectName = "AecbDbPipe" Then
If object.Handle <> h Then
If f = "Pipe" Then
set dict=object.GetExtensionDictionary
Set subdict = Dict.Item("AEC_PROPERTY_SETS")
For Each sch_propset In subdict
If sch_propset.Name = "Pipes_fittings_set" Then
For Each sch_prop In sch_propset.Properties
If sch_prop.Name = "PartSizeName" Then
If sch_prop.Value= s Then
Length = Length + object.Length
End If
End If
Next
End If
Next
End If
If f="Pipe fitting" Then
set dict=object.GetExtensionDictionary
Set subdict = Dict.Item("AEC_PROPERTY_SETS")
For Each sch_propset In subdict
If sch_propset.Name = "Pipes_fittings_set" Then
For Each sch_prop In sch_propset.Properties
If sch_prop.Name = "PartType" Then
If sch_prop.Value= a Then
Count = Count+object.Count
End If
End If
Next
End If
Next
End If
End If
End If
Next

If f = "Pipe" Then RESULT = Replace( Round((Length + L)/1000,2), ",", ",") End If

If f = "Pipe Fitting" Then RESULT = Replace( Round((Count + k)), ",", ",") End If

if f = "Multi-View Part" Then RESULT = "[QUANTITY]" end if

Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектТруба:Имяразмераэлемента]"
f = "[ОбъектТруба:Типобъекта]"
s = "[ОбъектТруба:Система]"
q = "[QUANTITY]"

For Each Object In ObjectCollection
If Object.ObjectName = "AecbDbPipe" Then
If Object.SizeName = n Then
totLength = totLength + Object.Length
End if
End If
Next
If f = "Труба" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If
If f = "Фитинг трубопровода" Then RESULT = q End If

PS если есть интерес, то могу предложить несколько задачек, позволяющих продвинуть скрипт на более высокий уровень. Мой 2013MEP оказался совсем не готов к этому, но он мне нужен по работе.

[cdholder]

Виталий Александрович, я если честно, давно забил на оптимизацию MEP - познаю пока Plant 3d, т.к. на него выделили финансирование. Так чисто по старой памяти иногда чего скажу. Насчет того, что obeject.arx язык гибкий - это конечно очень хорошо, в планте пригодится. Так вот и не могу решить вопрос с курсами по Autocad.NET и jbject.arx, может, к стати, подскажет кто в Питере такие?

[VitalyAF]

...Моё дело предложить. Я тоже не занимаюсь, попросили, написал новый скрипт.

... не могу решить...

.NET не подскажу, не знаю, но есть ли смысл менять профессию?

[cdholder]

Ну тогда возвращаюсь к старому вопросу - где вы так здорово набрались знаний какие словари, какие объекты и какие методы использовать? Подозреваю, что вас есть хороший друг-программист, а вы, соответственно, хорошо можете поставить задачу и вместе у вас рождается красивый простой код. Дело не в професии - просто нужно знать какие переменные и как объявлять, чтобы все работало. Вот для этих знаний нужны курсы. Или просто повнимательнее прочитать object.arx SDK с официального сайта?

[VitalyAF]

Ну тогда возвращаюсь к старому вопросу...

A разве я не отвечал? Знания - это интернет + голова помноженная на ж.. ))
Видать моей заднице уже много лет, вот и всё...))
В отличие от Revit по MEP действительно тяжело что либо найти, закрыто по каким-то причинам. Курсы не помогут, они для приложений, а здесь всего лишь скрипт.
Задачи возникают по ходу работы над проектом. Знание имён переменных без механизма их взаимодействия тоже ничего не даёт.
Например, Object.SizeName - [Имяразмераэлемента] для трубы и Object.FittingSizeName - для отвода. Зная это можно обойтись без чтения свойств, сократив формулу.
По аналогии Object.PipeSystemDef уже не хочет работать. Возможно в 2012-ой версии будет, попробуйте.

[VitalyAF]

Есть хороший повод продолжить тему,
т.к. удалось найти новые методы VBScript применяемые в формулах, например
таблица сортирует трубы и отводы по 3-м признакам:
1. - имяразмераэлемента
2. - система
3. - толщина изоляции



ФИТИНГИ_ТРУБЫ_ДЛЯ_MEP2014_RUS.DWG
Фитинги_Трубы_для_MEP2013_RUS.dwg
Фитинги_Трубы_для_MEP2012_RUS.dwg


Для MEP2012RUS в формуле нужно изменить в строке
Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
7.0 на 6.7 для других версий соответственно на 5.0, 4.7, 4.5
Для внесения изменений в работающую формулу нужно открыть файл не как обычно, а из менеджера стилей,
в этом случае формула не активна!!!

Вот сама формула

Код:

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

 Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектТруба:Имяразмераэлемента]"
f = "[ОбъектТруба:Типобъекта]"
s = "[ОбъектТруба:Система]"
t = [ОбъектТруба:ТолщинаИзоляции]
q = "[QUANTITY]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbPipe" Then
		If Object.SizeName = n Then
			Ps = Object.SystemName
			Ps = Split(Ps," (",-1,1)(0)
			If StrComp(Ps, s, 1) = 0 Then
				If Object.InsulationThickness = t Then
					totLength = totLength + Object.Length
				End if
			End If
		End if
	End If
Next
If f = "Труба" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If
If f = "Фитинг трубопровода" Then RESULT = q End If

Ох уж эта "System", так тяжело с ней было бороться! ))
В итоге: Заменён файл и текст формулы
Проверено. Work-ает!

У кого есть вопросы, задавайте! ))

[VitalyAF]

К списку свойств объектов
1. - имяразмераэлемента
2. - система
3. - толщина изоляции
можем добавить
4. - номинальный размер по каталогу
5. - сокращение - сокращённое название системы (abbriviation)

[cdholder]

Уважаемый Виталий Александрович, скажите, пожалуйста, а вот эта строчка кода что делает?

Ps = Object.SystemName
Ps = Split(Ps," (",-1,1)(0)

И можно ли как то в этом сегменте

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

Object collection задать не для ActiveDocunemt, а для конкретных чертежей внутри диспетчера проекта? А то я то в свое время с чем столкнулся: нужна спецификация в отдельном файле на один конкретный construct и на определенные указанные construct или element. Хочется, чтобы графика отдельно, спецификации отдельно как в Планте... Может, с другой стороны, очень уж много хочется?)))

[VitalyAF]

Здравствуйте!

а вот эта строчка кода что делает?

Эта строчка берёт левую из 2 частей имени системы
Например
Ps = Object.SystemName
RESULT = Ps - даёт System + (Abbriviation) например CHILLED WATER - SUPPLY (CHS)

Object collection задать не для ActiveDocunemt, а для конкретных чертежей внутри диспетчера проекта?

Не знаю, не встречал. Было бы здорово!
Вынести таблицы на лист можно и др. стандартным способом...

PS можно добавить п.6

5. - сокращение - сокращённое название системы (abbriviation)

6. - Object.Name - Имя заголовка каталога, откуда берётся труба например ГОСТ...


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

[Sh_C]

Вопрос такой же, как у alexius_sev: как отобразить осевые линии на разрезах при использовании выложенного cdholder-ом шаблоном? Может, какое-то конкретное укранное представление при формировании разреза использовать надо?

[cdholder]

Сообщение от Sh_C Вопрос такой же, как у alexius_sev: как отобразить осевые линии на разрезах при использовании выложенного cdholder-ом шаблоном? Может, какое-то конкретное укранное представление при формировании разреза использовать надо?

ВООООООООООООТ!!! Вот тот кто ответит на этот вопрос сразу получит +1000 в карму и переродится коровой без разговоров и дополнительных условий...

[VitalyAF]

ВООООООООООООТ!!!

...а какие здесь проблемы? Ролик такой я выкладывал давно, несколько лет тому назад.

DispCenHid_Lines.swf

[Sh_C]

Сообщение от VitalyAF Ролик такой я выкладывал давно

VitalyAF, спасибо!
Оказывается, что при формировании разреза мною неправильно был выбран тип экранного представления. При том же, что у
Вас в ролике, оси отображаются! Ура!
А как сделать спецификацию? иду на вкладку Аннотации-Спецификации-Спецификация труб и фитингов. Пишет, "не удалось найти инструмент в данном рабочем пространстве". У меня выбрано Трубопроводы. В чем моя ошибка??

[VitalyAF]

А как сделать спецификацию?

Не работать может по разным причинам, например инсталлировали как-то
особым способом... Причин м.б. много
Проверьте куда указывает ссылка в свойствах инструмента, проверьте, существуют ли пути.
Пример таблицы несколькими постами выше, с группировкой по разным признакам.
>>>>
http://forum.dwg.ru/showpost.php?p=954590&postcount=13

[Sh_C]

VitalyAF, не могли бы Вы пересохранить файл "Фитинги_Трубы_для_MEP2013_RUS.dwg" для 2012 версии?? а то у меня не открывается!

[VitalyAF]

Пожалуйста!
Фитинги_Трубы_для_MEP2012_RUS.dwg

[Sh_C]

VitalyAF, Вы уж извините, пожалуйста меня, ламера, но я не понимаю, как перейти к редактированию формулы, чтобы изменить строку, как Вы выше писали "Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplicatio n.7.0")"
1. Качаю Ваш файл открываю его(таблица отображается, все норм). А как это работает?? копирую трубопровод, спецификация должна автоматически меняться, или программе как-то надо сообщить об этом??
2. Если я хочу создать еще одну таблицу с такой же спецификацией, иду на вкладку Аннотации-Спецификации-Спецификация труб и фитингов. Правильно?
Но по-прежнему выскакивает сообщение: "не удалось найти инструмент в данном рабочем пространстве"
3. Вопрос не совсем по теме: а как Вы избавились от разбивки трубопроводов на куски длиной 1500?? Мне вот в свойствах даже не поменять это значение было!

[VitalyAF]

1. Если в свойствах таблицы указано "Автоматически добавлять объекты" (не рекомендовано), то обновится, иначе нужно вручную добавлять. Добавлять объекты в чертёж можно двумя способами:
a) Обычным копированием
b) Командой "Добавить выбранное"
Во 2-м случае нужно добавить свойства объектам, затем обновить таблицу.
Ещё лучше добавить таблицу в конце, когда уже всё готово.

2. ...Правильно, если вы туда что-то сохраняли, иначе таблица работает из текущего файла.

3. Вы когда берёте трубу с палитры она уже частично настроена, (в этом можно легко убедиться посмотрев её свойства) дополнительные настройки вы можете назначить в этот момент из палитры свойств, в т.ч. деление на отрезки (см.вкладку Размеры), высоту прокладки, изменить диаметр и проч.

PS
Почитайте про свойства, палитры и вообще >>>>
https://sites.google.com/site/byvitaly/home

я не понимаю, как перейти к редактированию формулы...

Зачем вам это? Ведь я дал вам готовый пример!

[Sh_C]

VitalyAF, спасибо, буду читать и разбираться дальше

[Sh_C]

Подскажите, пожалуйста:
1. как добавить отображение некоторых скрытых линий на разрезе;
2. и наоборот, как убрать ось скрытой части трубопровода. А то, получается, что контур трубы под переходным мостиком не отображается, а ось отображается...

[VitalyAF]

Пример!

[Sh_C]

вот пример

[VitalyAF]

1. Используйте шаблоны!!!
2. Выполните в нём настройки экранного представления Проект MEP (именно он рекомендуется для работы с фасадами разрезами)
3. Скрытые линии, например - "Осевая скрытая" погасите лампочку.
4. "Контур скрытый" настройте по желанию - скрытый или штриховой.
5. Не забудьте про цвет и масштаб типа линий для правильного отображения
6. Сохраните шаблон.
7. Создайте на его основе новый файл, поместите туда свой пример. Если линии на модели отображаются правильно, обновите разрез из его контекстного меню.
8. В противном случае произведите доп. настройку модели труб (панель свойств, вкладка Отображение.
9. Обновите разрезы из контекстного меню "Регенерировать" , сменив Стиль формирования "Standard" на "MEP-Стандарт"
10. В том же диалоге смените "Набор экранных представлений" "Section Elev" на "Разрез Фасад MEP-Скрытые" кстати его тоже можно настроить и сохранить
11. Ок
12. Скрытая часть осевой линии на разрезе д.б. скрытая, видимая - штрих-пунктирная
13. Скрытая часть контура трубы д.б. скрытая или штриховая
Это не всё, что касается настроек скрытых линий и экранных представлений
остальное освойте самостоятельно, это не сложно.

PS
Стену я бы заменил на плиту!
Многие проблемы отпадают если пользоваться шаблонами!
Шаблон - основа правильной и эффективной работы в MEP!!!!!!

[Sh_C]

Подскажите, пожалуйста, как сохранить настройки из файла? Обычно за исходный файл беру ранее настроенный, переименовываю и работаю. А как сделать чтобы его настройки стали шаблоном оформления, применимым в проекте?

И еще, почему-то не получается выбрать диаметр трубы больше 50. В обычном файле могу выбрать, а в файле конструкции проекта - нет.

А можно вместо отметки оси трубы просматривать отметку низа трубы? в одном ряду идут трубы разных диаметров, необходимо выровнять по низу. я нашла, что можно изначально при построении выровнять трубу по низу другой. а если потом труба куда-ниб уедет...

[Sh_C]

C некоторыми вопросами сама разобралась, но вдруг кому пригодится, напишу на всякий случай. Файл с настройками надо просто Сохранить как... с расширением .dwf. Содержимое из файла перед этим надо удалить.
Вместо отметки оси трубы МОЖНО просматривать отметку низа: для этого просто необходимо навести курсор на трубу и зафиксировать его в неподвижном положении на пару секунд, тогда и высветится рядом с ним эта инфа. Правда, почему-то не всегда указываются отметки низа, оси, верха, бывает, только одно значение. не знаю, почему, глюк, наверное.

[VitalyAF]

...Сохранить как... с расширением .dwf

очипятка наверно)) шаблон имеет формат файла - dwt
Кроме того, в качестве шаблона можно использовать целый проект!
подробнее см. https://sites.google.com/site/byvitaly/home
подойдёт и для MEP и для ACA!

А можно вместо отметки оси трубы просматривать отметку низа трубы?

...можно, посмотрите внимательно на палитры "Трубопровод", там есть специальные марки для отметок верха, центра и низа трубы.

Вместо отметки оси трубы МОЖНО просматривать отметку низа: для этого просто необходимо навести курсор на трубу

- показывает координаты той характерной точки (см. опции "Привязки" к объектам), которая попала в область курсора.

а если потом труба куда-ниб уедет...

- ...

[Sh_C]

Сообщение от VitalyAF Кроме того, в качестве шаблона можно использовать целый проект!

Да, про это я читала в Ваших статьях. Не разобралась только пока, как на основе вашего проекта использовать мой шаблон для конструкций. Я пробовала скопировать содержимое своего файла в новую конструкцию Вашего проекта, и не все отображается так, как бы я того хотела
PS Решила проблему следующим образом: при создании новой конструкции выбираю свой файл шаблона

Сообщение от VitalyAF Цитата: а если потом труба куда-ниб уедет... - ...

да... каюсь, такое случается, и, к сожалению, нередко(( постоянно приходится перепроверять отметки. а их можно как-нибудь зафиксировать не перенося на отдельный слой?

[maximus_063]

Сообщение от VitalyAF Set app = GetObject (,"AutoCAD.Application") On Error Resume Next RESULT = "--" Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0") Set ActiveDoc =baseApp.ActiveDocument Set ObjectCollection = ActiveDoc.ModelSpace totLength = 0 n = "[ОбъектТруба:Имяразмераэлемента]" f = "[ОбъектТруба:Типобъекта]" s = "[ОбъектТруба:Система]" q = "[QUANTITY]" For Each Object In ObjectCollection If Object.ObjectName = "AecbDbPipe" Then If Object.SizeName = n Then totLength = totLength + Object.Length End if End If Next If f = "Труба" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If If f = "Фитинг трубопровода" Then RESULT = q End If

Виталий, а для МЕР2014 я так понимаю не подходит это выражение?

Пробовал его адаптировать под свой набор характеристик, так понимаю "object.Length" это надо поменять тоже на характеристику длина трубы?
В итоге у меня это выглядит так:

Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектТруба:НоминальныйРазмер]"
f = "[ОбъектТруба:Тип]"
s = "[ОбъектТруба:Система]"
q = "[QUANTITY]"

For Each Object In ObjectCollection
If Object.ObjectName = "AecbDbPipe" Then
If Object.SizeName = n Then
totLength = totLength + Object.Length
End if
End If
Next
If f = "Труба" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If
If f = "Фитинг трубопровода" Then RESULT = q End If

Но в ячейке лишь прочерки --

[VitalyAF]

...для МЕР2014 я так понимаю не подходит это выражение?

подходит, только версия-то изменилась с 7.0 на 7.5 !!!

Код:

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

Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.5")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектТруба:Имяразмераэлемента]"
f = "[ОбъектТруба:Типобъекта]"
s = "[ОбъектТруба:Система]"
t = [ОбъектТруба:ТолщинаИзоляции]
q = "[QUANTITY]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbPipe" Then
		If Object.SizeName = n Then
			Ps = Object.SystemName
			Ps = Split(Ps," (",-1,1)(0)
			If StrComp(Ps, s, 1) = 0 Then
				If Object.InsulationThickness = t Then
					totLength = totLength + Object.Length
				End if
			End If
		End if
	End If
Next
If f = "Труба" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If
If f = "Фитинг трубопровода" Then RESULT = q End If

Обратите внимание на ("AecX.AecArchBaseApplication.7.5") выделено красным цветом

Пробовал его адаптировать под свой набор характеристик, так понимаю "object.Length" это надо поменять тоже на характеристику длина трубы?

Нет!!!
И что вы хотели адаптировать? Откуда взялось название переменной "ОбъектТруба:НоминальныйРазмер" и "ОбъектТруба:Тип", сами придумали?
Таких свойств нет у объектов...

[maximus_063]

Сообщение от VitalyAF Обратите внимание на ("AecX.AecArchBaseApplication.7.5") выделено красным цветом

да, спасибо
уже сам нашел в реестре

Сообщение от VitalyAF Нет!!! И что вы хотели адаптировать? Откуда взялось название переменной "ОбъектТруба:НоминальныйРазмер" и "ОбъектТруба:Тип", сами придумали? Таких свойств нет у объектов...

Я вставил из наборов характеристик которые у меня заданы были.


UPD. По копали с программистом, решили проблему.

Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.5")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектТруба:НоминальныйРазмер]"
f = "[ОбъектТруба:Тип]"
s = "[ОбъектТруба:Система]"
q = "[QUANTITY]"

For Each Object In ObjectCollection
If Object.ObjectName = "AecbDbPipe" Then
If UCase(Object.SizeName) = UCase(n) Then
totLength = totLength + Object.Length
End if
End If
Next


If f = "ТРУБА" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If
If f = "Фитинг трубопровода" Then RESULT = q End If

[VitalyAF]

Я вставил из наборов характеристик которые у меня заданы были.

...видимо эти свойства сохранились у вас от старых версий, и каждый раз вместо "Имяразмераэлемента"
подставляется "НоминальныйРазмер". На другом компе, например на моём эта подстановка не срабатывает!
То же самое про "Тип" могу сказать, откройте новый файл, посмотрите, есть ли в наборе такое свойство?
Иначе у нас с вами разные MEP 2014 RUS версии!!!

По копали с программистом, решили проблему

Тоже странное занятие, никогда раньше не требовалось для сравнения переводить в верхний регистр...???

[maximus_063]

Сообщение от VitalyAF видимо эти свойства сохранились у вас от старых версий

Ну это само собой, эти свойства пришли из каталога трубопроводов/трубопроводных элементов, который был сделан даже не знаю когда.

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

[VitalyAF]

Ну это само собой...

Так исправьте скорее!

[Trasher]

я прошу прощения за вопрос несколько не по теме, но...
Вы тут обсуждаете самодельные спецификации. А что, сам МЕР еще не научился считать трубы, отводы, переходы...? Я скажем так только второй день смотрю в черное окно МЕРа

[VitalyAF]

А что, сам МЕР еще не научился считать трубы, отводы, переходы...?

Научился давно ещё, только не по нашим нормам. ((
Для формирования спецификаций у Autodesk для MEP есть ещё несколько отдельных продуктов, можете найти на сайте производителя, что-то типа Autocad MEP Fabrication, если не ошибаюсь.

Если ещё посмотрите несколько дней, )) то заметите, что объекты MEP зачастую имеют ограниченную детализацию, т.е. решается определённый круг задач - трубопровод, вентиляция, электропроводки в помещениях. Часто MEP с успехом используют для проектирования котельных, я использую его для проектирования кабельных сетей.
https://sites.google.com/site/byvitaly/home
То, чего нет на чертежах, крепёж например, рассчитывается вручную или с пом. таблиц excel с точность до упаковки.
Ещё один типичный пример возможностей MEP - задача проектирования коммуникационных шкафов. Если с самим 3D шкафом и оборудованием для него ещё как-то можно справиться, то со схемой соединений в этом шкафу - беда, возможностей MEP уже не хватает... Явно напрашивается дополнительный софт, а мы, как правило, хотим чтобы было всё в одном флаконе и желательно бесплатно... )))

[Trasher]

Сообщение от VitalyAF Научился давно ещё, только не по нашим нормам. ((

Имеете ввиду что не по гостовским таблицам? Или то что он вообще не станет считать (штатными средствами) наши трубы, отводы и пр...? Обязательно нужно будет допиливать напильником?

[VitalyAF]

Имеете ввиду что не по гостовским таблицам?

- да

Или то что он вообще не станет считать (штатными средствами) наши трубы, отводы и пр...?

будет считать, см. http://forum.dwg.ru/showpost.php?p=954590&postcount=13
PS
там показан принцип, форму таблицы можно варьировать.
Если нужна спека только по трубам и отводам, то можно и под ГОСТ подогнать,
а со сводной не получится по некоторым причинам...

[Sh_C]

у меня не отображаются на разрезе трубы малого диаметра (Ду 20 мм, например). Помнится, когда-то находила такую опцию, где указывалось, начиная с какого диаметра отображать трубопроводы на разрезе! потом меп переустанавливала, и как-то не возникало необходимости использовать трубы диаметра меньше 50 мм. а теперь вот, когда понадобилось, не могу найти это вновь! кто знает, помогите, пожалуйста!!!

[VitalyAF]

Напомните, пожалуйста, какая версия у вас?

[Sh_C]

AutoCad MEP 2013 Rus

[VitalyAF]

Редактируйте стиль разреза из контекстного меню.

Помнится, когда-то находила такую опцию, где указывалось, начиная с какого диаметра отображать трубопроводы на разрезе!

...может быть не на разрезе а в модели отображать в одну линию?

[Sh_C]

Сообщение от VitalyAF ...может быть

хм... может быть... спасибо)

[Sh_C]

Сообщение от VitalyAF Редактируйте стиль разреза из контекстного меню

Извините, а можно поконкретнее?? Все равно не могу найти, как отобразить трубку... На приложенном рисунке настройки графических свойств моего разреза.

[VitalyAF]

Выложите пример, пожалуйста!

[Sh_C]

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

[VitalyAF]

Вроде бы всё на месте! Что не хватает, как должно быть?
Рис. Прикрепите или на словах подробней опишите

[Sh_C]

Сообщение от VitalyAF Что не хватает

В приложенном файле(снимок111) на месте, обведенном красным цветом, должна быть труба ду 20, а ее нет!

P.S. Если рассматривать вариант, как на верхнем фрагменте(пример в предыд. сообщ.), когда только участки вдоль оси у, тогда они почему-то на разрезе отображаются все; участки вдоль осей х или z или отводы - тоже все отображаются (нижний фрагмент).
Мне же надо, на самом деле, показать на разрезе лишь область, как показано на рис. Снимок222. Исходить следует из того, что план выглядит как средний фрагмент

[VitalyAF]

В приложенном файле(снимок111) на месте, обведенном красным цветом, должна быть труба ду 20, а ее нет!

правильно, её и не может там быть потому, что она не попадает в разрез! См. Пример11.dwg средний фрагмент

[Sh_C]

Сообщение от VitalyAF правильно, её и не может там быть потому, что она не попадает в разрез!

Как же нет на разрезе, когда есть??? я приложила видеоролик

[VitalyAF]

Sh_C

Регенерируйте свой средний разрез из его контекстного меню
сменив экранное представление на "Разрез и фасад MEP",
повторно выбрав объекты, как показано на вашем рис. 222

[Sh_C]

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

в таком случае не отображаются оси!

[Livin]

Здравствуйте, подскажите, как менять наружный диаметр стандартной трубы? Например, у стандартной трубы с номинальным диаметром 150 мм - наружный диаметр 168,4 мм. А, как правило, наружный диаметр нужен 159 мм. Для фитингов все размеры отлично меняются через палитру свойств. Для трубы не могу найти.

[VitalyAF]

Диаметры задаются в каталоге труб, меняйте там или создавайте новые.

[cdholder]

Сообщение от Livin Здравствуйте, подскажите, как менять наружный диаметр стандартной трубы? Например, у стандартной трубы с номинальным диаметром 150 мм - наружный диаметр 168,4 мм. А, как правило, наружный диаметр нужен 159 мм. Для фитингов все размеры отлично меняются через палитру свойств. Для трубы не могу найти.

Давайте, что ли e-mail. Вышлю свои старые каталоги)))

----- добавлено через ~1 мин. -----

Сообщение от Sh_C в таком случае не отображаются оси!

Вот вот вот!!! И я хочу послушать!!!

[Livin]

У меня не получилось через каталог. Порядок моих действий: вкладка управление-> редактор каталогов->(там пусто)-> в окне редактора нажимаю меню "файл"-> открыть-> C:\ProgramData\Autodesk\MEP 2013\rus\MEPContent\Global\Pipe -> в редакторе каталогов выбираю "стандартные трубы и фитинги"-> трубы-> Commercial Pipe_gbm-> базовая таблица-> меняю значение наружного диаметра D1 и D2-> сохранить.
Может не в том типе трубы меняю... черчу трубой "Стандартная труба_gbm"

----- добавлено через ~7 мин. -----

Сообщение от cdholder Давайте, что ли e-mail. Вышлю свои старые каталоги)))

спасибо, выслала в личку.
Однако, все же интересно как это делается)

----- добавлено через ~38 мин. -----
Вопрос снимаю))
P.S. решение - после замены размеров меню "сервис"-> регенерировать каталог

[cdholder]

Поищите мою статью на здесь на форуме про создание параметрических элементов. Я, к сожалению, лох педальный в плане баз данных, поэтому все вколачивал руками)))

Да... просто регенерацией каталога дело не поправишь. Вам нужно настроить правила трассировки. Можете сами поупражняться, можете файл стандартного темплейта на мой заменить)))

[Livin]

Федор, спасибо огромное за каталог!! Разобрались, подключили, настроили трассировку) Прочитала вашу статью о параметризации, тоже очень полезно, попозже научимся и этому.
Однако возник насущный вопрос - как теперь уже начерченные трубы обновить до нового типа трубы? Ведь на палитре свойств не указывается тип(((

P.S. у меня MEP2013.RUS

[VitalyAF]

cdholder
Привет!
Давно хочу поговорить на счёт твоего каталога.
Можно включить его в состав поставок, если не возражаешь.
Можно на скайп мне или мыло или здесь обсудить.

PS
... чтобы хоть как-то скрасить убогость стандартных каталогов для наших пользвателей

[Livin]

Федор, спасибо огромное за каталог!! Разобрались, подключили, настроили трассировку) Прочитала вашу статью о параметризации, тоже очень полезно, попозже научимся и этому.
Однако возник насущный вопрос - как теперь уже начерченные трубы обновить до нового типа трубы? Ведь на палитре свойств не указывается тип(((

P.S. у меня MEP2013.RUS

[VitalyAF]

... как теперь уже начерченные трубы обновить до нового типа трубы? ...

Если это трубы из текущего каталога, то обновить их можно с помощью
_AecbRedefineFromCatalog
Иначе ищите соответствующие команды в контекстном меню данной трубы.

[cdholder]

Сообщение от VitalyAF cdholder Привет! Давно хочу поговорить на счёт твоего каталога. Можно включить его в состав поставок, если не возражаешь. Можно на скайп мне или мыло или здесь обсудить. PS ... чтобы хоть как-то скрасить убогость стандартных каталогов для наших пользвателей

Виталий Александрович! Окажите честь!

skype: cdholder
e-mail: f.kulikovskii@poerner.de

Токма я года два-три как ничего не делаю((( Я сначала серьезно копал Plant 3D, а теперь работаю на австрийцев, а у них интерграф давно.
Но ради удовольствия поработать вместе, вспомню, что смогу. Куда каталог закидывать? Там около сотни метров в архиве.

[ДаниилТ]

Подскажите, как адаптировать приведённую формулу (с классификацией в т.ч. по толщине изоляции) для воздуховодов?

[VitalyAF]

Подскажите, как адаптировать приведённую формулу

Я вам подскажу как, только сначала опробуйте команду "BOOMTABLES"
У неё много настроек, в т.ч. и для формы таблицы и на русс.яз. и возможностей больше,
даже площади развёрток посчитаете!
С одним условием - о результатах сообщите здесь! ))
Удачи! Ждём результат, желательно с картинками!

[ДаниилТ]

Наш MEP 2013 русский пишет, что такой команды не знает, хотя попробовать конечно хотелось бы.
А формулу с воздуховодами легко получилось адаптировать, там те же названия полей в объекте что и в трубопроводах.

[VitalyAF]

А формулу с воздуховодами легко получилось адаптировать

На всякий случай покажите формулу...

[ДаниилТ]

Set app = GetObject (,"AutoCAD.Application")
On Error Resume Next
RESULT = "--"

Set baseApp = app.GetInterfaceObject("AecX.AecArchBaseApplication.7.0")
Set ActiveDoc =baseApp.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace

totLength = 0
n = "[ОбъектВоздуховод:Стиль]"
s = "[ОбъектВоздуховод:Система]"
f = "[Тип объекта:Типобъекта]"
t = [ОбъектВоздуховод:ТолщинаИзоляции]
q = "[QUANTITY]"

For Each Object In ObjectCollection
If Object.ObjectName = "AecbDbDuct" Then
If Object.SizeName = n Then
Ps = Object.SystemName
Ps = Split(Ps," (",-1,1)(0)
If StrComp(Ps, s, 1) = 0 Then
If Object.InsulationThickness = t Then
totLength = totLength + Object.Length
End if
End If
End if
End If
Next
If f = "Воздуховод" Then RESULT = Replace( Round((totLength)/1000,2), ",", ",") End If

К сожалению, маленькие разводки он считает, а большие ... пока не дождался окончания расчёта

[VitalyAF]

К сожалению, маленькие разводки он считает, а большие ...

На сколько большие? Пример!

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

[ДаниилТ]

Думаю, что дело не в сортировке по системе. Потому что спецификация, которая делается стандартными средствами, с помощью объединения и подсчёта промежуточных итогов считается почти мгновенно. Было бы хорошо, если дописали возможность настраивать строчку с этими промежуточными итогами, дальше использовать её в формулах, и скрывать те строки, которые она охватывает. Получался бы результат аналогичный формуле.
Где то год назад соработники считали спецификацию достаточно большого проекта, уходило минут 20, 30, а может и больше, сейчас, к сожалению, нет времени тестировать. А что насчёт той команды?

[VitalyAF]

Вы на вопрос ответьте, пожалуйста. Выводы я сам как нибудь сделаю!