| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Регистрация: 27.05.2009
Сообщений: 135
|
Цитата:
----- добавлено через ~1 мин. ----- Вот вот вот!!! И я хочу послушать!!! |
|||
|
||||
Регистрация: 26.02.2014
Сообщений: 9
|
У меня не получилось через каталог. Порядок моих действий: вкладка управление-> редактор каталогов->(там пусто)-> в окне редактора нажимаю меню "файл"-> открыть-> C:\ProgramData\Autodesk\MEP 2013\rus\MEPContent\Global\Pipe -> в редакторе каталогов выбираю "стандартные трубы и фитинги"-> трубы-> Commercial Pipe_gbm-> базовая таблица-> меняю значение наружного диаметра D1 и D2-> сохранить.
Может не в том типе трубы меняю... черчу трубой "Стандартная труба_gbm" ----- добавлено через ~7 мин. ----- спасибо, выслала в личку. Однако, все же интересно как это делается) ----- добавлено через ~38 мин. ----- Вопрос снимаю)) P.S. решение - после замены размеров меню "сервис"-> регенерировать каталог Последний раз редактировалось Livin, 26.02.2014 в 15:48. |
|||
|
||||
Регистрация: 27.05.2009
Сообщений: 135
|
Поищите мою статью на здесь на форуме про создание параметрических элементов. Я, к сожалению, лох педальный в плане баз данных, поэтому все вколачивал руками)))
Да... просто регенерацией каталога дело не поправишь. Вам нужно настроить правила трассировки. Можете сами поупражняться, можете файл стандартного темплейта на мой заменить))) |
|||
|
||||
Регистрация: 26.02.2014
Сообщений: 9
|
Федор, спасибо огромное за каталог!! Разобрались, подключили, настроили трассировку) Прочитала вашу статью о параметризации, тоже очень полезно, попозже научимся и этому.
Однако возник насущный вопрос - как теперь уже начерченные трубы обновить до нового типа трубы? Ведь на палитре свойств не указывается тип((( P.S. у меня MEP2013.RUS Последний раз редактировалось Livin, 27.02.2014 в 08:35. |
|||
|
||||
Регистрация: 19.07.2005
Россия
Сообщений: 3,225
|
cdholder
Привет! Давно хочу поговорить на счёт твоего каталога. Можно включить его в состав поставок, если не возражаешь. Можно на скайп мне или мыло или здесь обсудить. PS ... чтобы хоть как-то скрасить убогость стандартных каталогов для наших пользвателей |
|||
|
||||
Регистрация: 26.02.2014
Сообщений: 9
|
Федор, спасибо огромное за каталог!! Разобрались, подключили, настроили трассировку) Прочитала вашу статью о параметризации, тоже очень полезно, попозже научимся и этому.
Однако возник насущный вопрос - как теперь уже начерченные трубы обновить до нового типа трубы? Ведь на палитре свойств не указывается тип((( P.S. у меня MEP2013.RUS |
|||
|
||||
Регистрация: 19.07.2005
Россия
Сообщений: 3,225
|
Цитата:
_AecbRedefineFromCatalog Иначе ищите соответствующие команды в контекстном меню данной трубы. |
|||
|
||||
Регистрация: 27.05.2009
Сообщений: 135
|
Цитата:
skype: cdholder e-mail: [email protected] Токма я года два-три как ничего не делаю((( Я сначала серьезно копал Plant 3D, а теперь работаю на австрийцев, а у них интерграф давно. Но ради удовольствия поработать вместе, вспомню, что смогу. Куда каталог закидывать? Там около сотни метров в архиве. |
|||
|
||||
Регистрация: 19.07.2005
Россия
Сообщений: 3,225
|
Цитата:
У неё много настроек, в т.ч. и для формы таблицы и на русс.яз. и возможностей больше, даже площади развёрток посчитаете! С одним условием - о результатах сообщите здесь! )) Удачи! Ждём результат, желательно с картинками! |
|||
|
||||
Регистрация: 28.02.2014
Сообщений: 4
|
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 К сожалению, маленькие разводки он считает, а большие ... пока не дождался окончания расчёта |
|||
|
||||
Регистрация: 28.02.2014
Сообщений: 4
|
Думаю, что дело не в сортировке по системе. Потому что спецификация, которая делается стандартными средствами, с помощью объединения и подсчёта промежуточных итогов считается почти мгновенно. Было бы хорошо, если дописали возможность настраивать строчку с этими промежуточными итогами, дальше использовать её в формулах, и скрывать те строки, которые она охватывает. Получался бы результат аналогичный формуле.
Где то год назад соработники считали спецификацию достаточно большого проекта, уходило минут 20, 30, а может и больше, сейчас, к сожалению, нет времени тестировать. А что насчёт той команды? |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Видеоуроки 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 |