AutoCad MEP 2012 Rus, как настроить отображение трубопровода в плане?

Synthesis · 14.12.2011, 09:45

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

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

VitalyAF · 08.11.2012, 16:42

Цитата:

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

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

Sh_C · 14.11.2012, 10:54

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

VitalyAF · 14.11.2012, 16:23

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

Sh_C · 14.11.2012, 17:24

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

VitalyAF · 14.11.2012, 18:50

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

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

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

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

Цитата:

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

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

Sh_C · 14.11.2012, 22:23

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

Sh_C · 16.01.2013, 13:42

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

VitalyAF · 16.01.2013, 13:45

Пример!

Sh_C · 18.01.2013, 12:17

вот пример

VitalyAF · 18.01.2013, 15:20

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

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

Sh_C · 23.05.2013, 13:04

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

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

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

Sh_C · 06.06.2013, 11:37

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

VitalyAF · 06.06.2013, 12:54

Цитата:

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

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

Цитата:

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

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

Цитата:

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

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

Цитата:

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

- ...

Sh_C · 06.06.2013, 23:16

Цитата:

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

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

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

Цитата:

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

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

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

maximus_063 · 26.09.2013, 15:08

Цитата:

Сообщение от 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 · 26.09.2013, 16:57

Цитата:

...для МЕР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 · 26.09.2013, 20:15

Цитата:

Сообщение от 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 · 27.09.2013, 11:51

Цитата:

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

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

Цитата:

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

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

maximus_063 · 01.10.2013, 12:07

Цитата:

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

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

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

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

VitalyAF · 01.10.2013, 19:34

Цитата:

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

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Видеоуроки AutoCAD	kosmax	AutoCAD	173	17.02.2017 15:08
Отображение осей трубопроводов на разрезах AutoCAD MEP 2009	mishad	Вертикальные решения на базе AutoCAD	2	10.06.2009 11:32
AutoCAD MEP 2009RUS – некорректное отображение переходов в горизонтальном сечении	Nasandr	Вертикальные решения на базе AutoCAD	2	14.05.2009 19:09
AutoCAD 2000 rus и Windows XP	Briz06	AutoCAD	12	06.11.2006 10:40
AutoCad 2004 RUS или AutoCad LT 2004 RUS	DEN	AutoCAD	7	23.01.2004 22:23

14.12.2011, 09:45
AutoCad MEP 2012 Rus, как настроить отображение трубопровода в плане? Synthesis Проектировщик Регистрация: 06.07.2011 Сообщений: 29 Доброго времени суток! Начал осваивать MEP. Столкнулся с проблемой собственно указанной в заголовке темы. Как бы сделать чтоб осевая линия была осевой, тонкой. Изоляция например пунктир, тонкой. Получается пока вот так... Посмотрел тут: http://forum.dwg.ru/showthread.php?t=35918 многое прояснилось. Миниатюры Последний раз редактировалось Synthesis, 14.12.2011 в 09:56.
Просмотров: 30011

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск