| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Вертикальные решения на базе AutoCAD > Расчет длина (провода) в MEP, Расчет длины провода с помощью макроса написанного для труб?

Расчет длина (провода) в MEP, Расчет длины провода с помощью макроса написанного для труб?

Ответ
Поиск в этой теме
Непрочитано 17.03.2014, 12:07 #1
Расчет длина (провода) в MEP, Расчет длины провода с помощью макроса написанного для труб?
peacemaker_kiss
 
Регистрация: 12.04.2011
Сообщений: 37

Уважаемые форумчане, требуется квалифицированная помощь
Существует макрос для расчета суммарной длины участков трубопровода, для формирования спецификации
Необходимо, если это возможно модернизировать этот макрос для расчета той же длина но объекта "Провод" Autocad Mep
Ниже выкладываю макрос, при необходимости отправлю файл в котором имеется сформированная спецификация
Код:
[Выделить все]
Set acadApp = GetObject(, "AutoCAD.Application") 
On Error Resume Next 
totLength = 0 
n="[PipeObjLength:CatalogNominalSize]" 
h="[PipeObjLength:Handle]" 
s= [PipeObjLength:Length] 

For Each object In acadApp.ActiveDocument.ModelSpace 
If object.ObjectName = "AecbDbPipe" Then 
If object.Handle <> h Then 
set dict=object.GetExtensionDictionary 
Set subdict = Dict.Item("AEC_PROPERTY_SETS") 
For Each sch_propset In subdict 
If sch_propset.Name = "PipeObjLength" Then 
For Each sch_prop In sch_propset.Properties 
If sch_prop.Name = "CatalogNominalSize" Then 
If sch_prop.Value= n then 
totLength = totLength + object.Length 
End If 
End If 
Next 
End If 
Next 

End If 
End If 
Next 

RESULT = Round(totLength + s, 2)/1000

Последний раз редактировалось Кулик Алексей aka kpblc, 17.03.2014 в 12:16.
Просмотров: 17683
 
Непрочитано 17.03.2014, 13:01
#2
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Посмотрите здесь в бонусах есть готовый кабельный журнал
и другие полезные утилиты MEP по разделу электрика + готовый проект + руководство пользователя

https://sites.google.com/site/byvitaly/home
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 13:05 Спецификация
#3
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


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

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Посмотрите здесь в бонусах есть готовый кабельный журнал
и другие полезные утилиты MEP по разделу электрика + готовый проект + руководство пользователя

https://sites.google.com/site/byvitaly/home
Да, Виталий я уже проанализировал Ваш действительно славный труд, однако кабельного журнала мне мало, сказать большее мне пока он не нужен, он также считает куски кабеля, как этот код подправить под провод вот в чем задача, Спасибо
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 13:13
#4
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Этот код устарел, во вторых там включена сортировка по каталог сайз, что для провода не имеет смысла!
Уточните задачу, пожалуйста.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 13:20
#5
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Этот код устарел, во вторых там включена сортировка по каталог сайз, что для провода не имеет смысла!
Уточните задачу, пожалуйста.
Хорошо, значит меня ввели в заблуждение относительно актуальности кода, задача следующая: имеется щит, три светильника, три кабеля, принадлежащих единой эл. цепи
Необходимо составить спецификацию,при выборе характеристик кабеля таких как длина провода, длина цепи, и.т.д. MEP выдает делирий чистой воды понятный лишь разработчикам Autodesk, единственное, что подходит - это характеристика длина, и по аналогии с вашим кабельным журналам в форму спецификации пишутся отдельные отрезки провода, можно конечно средствами MEP поставить галочку "итого" для столбца с длиной, но положим что светильников не три а 3000, и щитов 5 тогда спецификация при одинаковом проводе (одинаковая характеристика с именем кабеля) превратится в талмут, таким образом был расчет, что этот макрос сможет решить задачу с сортировкой и суммированием одинаковых проводов
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 14:01
#6
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Если я сложу длины это не будет длина провода, вас это устроит?
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 14:03
#7
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Если я сложу длины это не будет длина провода, вас это устроит?
Если вы сложите длины меня это устроит, характеристика длина провода в MEP я не считаю адекватной характеристикой, поэтому да меня это устроит
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 14:05
#8
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Уточню, я сложу длины которые находятся в свойстве Длина, это очень далеко от настоящей длины!
Вас это устроит, точно?

----- добавлено через ~17 мин. -----
Дело в том, что кабельный журнал учитывает много свойств провода, в т.ч. делает дополнительные вычисления, например от home run до панели и учитывает длины между этажами. результаты просто помещаются в определённые свойства на палитре, откуда вы можете их взять и поместить в свою таблицу.
Ни одна формула не сделает этого!
Поэтому не парьтесь, берите готовые данные и пользуйтесь!

PS

Кроме того, в журнале есть такое понятие как точка консолидации - меж этажные каналы или иные места где проходят все провода
а так же тип цепи - LAN - это когда провод идёт от каждого устройства до панели (применён особый алгоритм для повышения точности)
и Other - когда провод идёт от устройства к устройству или от устройства к развет. коробке и т.д.!
Все эти мероприятия направлены на повышение точности расчёта длин

PS Заложен механизм допусков на разделку кабелей и припуски зависит от типа цепи - LAN/Other и т.д...

Последний раз редактировалось VitalyAF, 17.03.2014 в 14:36.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 14:34
#9
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Уточню, я сложу длины которые находятся в свойстве Длина, это очень далеко от настоящей длины!
Вас это устроит, точно?

----- добавлено через ~17 мин. -----
Дело в том, что кабельный журнал учитывает много свойств провода, в т.ч. делает дополнительные вычисления, например от home run до панели и учитывает длины между этажами. результаты просто помещаются в определённые свойства на палитре, откуда вы можете их взять и поместить в свою таблицу.
Ни одна формула не сделает этого!
Поэтому не парьтесь, берите готовые данные и пользуйтесь!
Мерили инструментом "Параллельный размер" вроде как длина соответствовала действительности
Взял бы, но требуется решить все-таки задачу, потому что из кабельного журнала данные по суммарной длине нужно будет брать в доп. таблицу.
Однако, если совсем отсутствует возможность такого рода подсчета, то я на время отложу эту задачу, потому что сам начинаю программировать вскоре и эту задачу буду решать сам, ну или если у Вам нет времени!
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 14:40
#10
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Взял бы, но требуется решить все-таки задачу, потому что из кабельного журнала данные по суммарной длине нужно будет брать в доп. таблицу.
прочтите внимательнее, брать надо не из таблицы а из свойств, которые автоматически заполняются данными после того как программа отработает, далее вы просто применяете свою таблицу и всё!

там 4 свойства, которые автоматически заполняются - Откуда, Куда, Длина, + Длина с припуском
можете брать любое из них и использовать в своей таблице

PS

Будем рады увидеть от вас новый КЖ, удачи!

Последний раз редактировалось VitalyAF, 17.03.2014 в 14:46.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 14:47
#11
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
прочтите внимательнее, брать надо не из таблицы а из свойств, которые автоматически заполняются данными после того как программа отработает, далее вы просто применяете свою таблицу и всё!
d. В свойство кабеля «Длина» вписывается сумма следующих значений:
i. Геометрическая длина кабеля на чертеже
ii. Расстояние от конца кабеля до местоположения панели, исходя из их координат расположения (dx, dy)
iii. Разница между высотами этажей, с учетом реального расположения панели и кабеля в каждом конкретном файле, т.е. с учетом высоты расположения относительно нуля каждого этажа.

Положим мне не нужны пункты 2 и 3 возможна ли автоматизация (ибо "вписывается" не вариант в моем случае) подсчета первой длины
И еще положим программа отработала
Я выбираю таблицу свою ранее созданную скажем спецификация проводов, как мне определить для столбца откуда брать сведения, этот момент упущен в мануале, отсюда у меня и появляется вопрос?
Подскажите мне в этом моменте и я начну тестировать Вашу работу
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 14:48
#12
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Мерили инструментом "Параллельный размер" вроде как длина соответствовала действительности
А опуски и подъёмы?
А жгуты?
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 14:49
#13
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
А опуски и подъёмы?
А жгуты?
Все это можно легко учесть надбавкой в 10% (по ГОСТу от 2 до 6, но чтобы учесть все) Так намного удобнее
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 14:54
#14
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Тогда на вскидку в бухтах!!! ))
...Не обольщайтесь, такие таблицы никому не нужны!
Заказчик спросит с вас за каждый метр, да и ваше руководстве не допустит перерасход материала,
разве что за ваш счёт!

Типичная ситуация - коридор, по бокам кабинеты, рисовать LAN разводку нет места ни по коридору, ни по помещениям тем более,
тогда соединяем их в жгут при этом боле-менее точная длина будет только одного провода остальные покажут вам длины только до жгутов, тут уже пахнет не процентами а разами и вашим увольнением досрочным...))
ЗЫ
наш КЖ это легко просчитывает, а вам ... см. выше

Последний раз редактировалось VitalyAF, 17.03.2014 в 15:06.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 15:07
#15
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Тогда на вскидку в бухтах!!! ))
...Не обольщайтесь, такие таблицы никому не нужны!
Заказчик спросит с вас за каждый метр, да и ваше руководстве не допустит перерасход материала,
разве что за ваш счёт!

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

----- добавлено через ~7 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Тогда на вскидку в бухтах!!! ))
...Не обольщайтесь, такие таблицы никому не нужны!
Заказчик спросит с вас за каждый метр, да и ваше руководстве не допустит перерасход материала,
разве что за ваш счёт!

Типичная ситуация - коридор, по бокам кабинеты, рисовать LAN разводку нет места ни по коридору, ни по помещениям тем более,
тогда соединяем их в жгут при этом боле-менее точная длина будет только одного провода остальные покажут вам длины только до жгутов, тут уже пахнет не процентами а разами и вашим увольнением досрочным...))
ЗЫ
наш КЖ это легко просчитывает, а вам ... см. выше
Также я писал выше о том как же любую другую таблицу использовать, отличную от кабельного журнала
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 15:16
#16
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Также я писал выше о том как же любую другую таблицу использовать, отличную от кабельного журнала
Очень просто...

Последний раз редактировалось VitalyAF, 17.03.2014 в 15:41.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 15:33
#17
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Тогда ещё раз сформулируйте задачу, не объясняя побочные данные.
например - нужна формула с группировкой кабеля по номеру цепи, в качестве длины берём свойства - Длина,
так?
нет для спецификации нам не важна цепь
для спецификации важен тип кабеля, приведу пример:
Есть а-метров кабеля ВВГнгLS 3x2,5
Есть b-метров кабеля ВВГнгLS 5x2,5
В спецификации будут две строки
первая будет: ВВГнгLS 3x2,5 a м
вторая будет: ВВГнгLS 5x2,5 b м
Для того, чтобы это так было, я ко всем проводам добавляю доп. характеристики: тип кабеля (текстовая переменная), длина (программная переменная) из набора характеристик MEP
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 16:29
#18
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Код:
[Выделить все]
 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 = "[Style]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbWire" Then
		If Object.StyleName = n Then
			totLength = totLength + Object.Length
		End If
	End If
Next
RESULT = Replace( Round((totLength)/1000,2), ",", ",")

Формула группирует длину объекта провод по стилю для MEP2014ENU

Код:
[Выделить все]
 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 = "[Стиль]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbWire" Then
		If Object.StyleName = n Then
			totLength = totLength + Object.Length
		End If
	End If
Next
RESULT = Replace( Round((totLength)/1000,2), ",", ",")
Формула группирует длину объекта провод по стилю для MEP2014RUS


Нажмите на изображение для увеличения
Название: WireLengthByStyle.GIF
Просмотров: 278
Размер:	32.1 Кб
ID:	124542

А вот те же провода посчитанные с помощью КЖ

Нажмите на изображение для увеличения
Название: WireLengthByStyle_1.GIF
Просмотров: 173
Размер:	38.4 Кб
ID:	124544

Обратите внимание на разницу - 236 м и 107м !!!
Как на ваш взгляд, покроется она 10-ю процентами?

Последний раз редактировалось VitalyAF, 17.03.2014 в 17:06.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 16:50
#19
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Код:
[Выделить все]
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 = "[Style]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbWire" Then
		If Object.StyleName = n Then
			totLength = totLength + Object.Length
		End If
	End If
Next
RESULT = Replace( Round((totLength)/1000,2), ",", ",")

Формула группирует длину объекта провод по стилю
Как спецификации понять что ей нужно считать характеристику "Длина"

----- добавлено через ~4 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Код:
[Выделить все]
 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 = "[Style]"

For Each Object In ObjectCollection
	If Object.ObjectName = "AecbDbWire" Then
		If Object.StyleName = n Then
			totLength = totLength + Object.Length
		End If
	End If
Next
RESULT = Replace( Round((totLength)/1000,2), ",", ",")

Формула группирует длину объекта провод по стилю

Вложение 124542
Я понял в чем дело, но у меня русская версия программы
как мне интерпретировать для русской версииъ
Все спасибо, у меня все получилось, я доделал!!!

Последний раз редактировалось peacemaker_kiss, 17.03.2014 в 17:04.
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 17:07
#20
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Обновил, в конце обратите внимание на разницу в длинах 236 и 107

Это не формула а пылевглазапускатель!

Последний раз редактировалось VitalyAF, 17.03.2014 в 17:20.
VitalyAF вне форума  
 
Автор темы   Непрочитано 17.03.2014, 17:17
#21
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Обновил, в конце обратите внимание на разницу в длинах 236 и 107
Есть мнения почему так? возможно масштаб?

----- добавлено через ~4 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Обновил, в конце обратите внимание на разницу в длинах 236 и 107

Это не формула а пылевглазапускатель!
Нет ну почему же на разделку кабелей идет согласно объектов MEP, есть там такое свойство

----- добавлено через ~7 мин. -----
Цитата:
Сообщение от peacemaker_kiss Посмотреть сообщение
Есть мнения почему так? возможно масштаб?

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


Нет ну почему же на разделку кабелей идет согласно объектов MEP, есть там такое свойство

Все победа
Взял тупо провод задал длину 1000,
посмотрел в свойство 1000 та же
следовательно между устройствами идет на разделку и на иные нужды
Не считаю нужным спорить я Вашу формулу буду тестировать, считаю она имеет право жить
peacemaker_kiss вне форума  
 
Непрочитано 17.03.2014, 20:14
#22
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Разница почти два РАЗА!!!!! а не 10%!!!!!!

Между расчётами формулой и кабельным журналом!!!!!!
Глаза откройте! Или вы не пользуетесь высотой? У вас всё в плоскости? ))
VitalyAF вне форума  
 
Автор темы   Непрочитано 18.03.2014, 08:15
#23
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Разница почти два РАЗА!!!!! а не 10%!!!!!!

Между расчётами формулой и кабельным журналом!!!!!!
Глаза откройте! Или вы не пользуетесь высотой? У вас всё в плоскости? ))
У меня все открыто! я высотой не пользуюсь

----- добавлено через ~19 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Разница почти два РАЗА!!!!! а не 10%!!!!!!

Между расчётами формулой и кабельным журналом!!!!!!
Глаза откройте! Или вы не пользуетесь высотой? У вас всё в плоскости? ))
При особом желании опуски можно изобразить, вход в комнату осуществляется с одним опуском, его можно показать, выбрав соответсвующие плоскости, тоже можно провести и с оборудованием, поместив его на соответствующие метки в свойствах, тогда провода будет физически в чертеже хранится столько сколько необходимо, опять же отмечусь, что у нас никто не считает до метра кабель...В настоящее время у нас работает группа макросов, которую для нас написал программист, они обсчитывают весь чертеж не только на наличие кабелей (они заданы полилиниями с названием по типу кабеля), но и динамических блоков, которые представляют оборудование). Была задача решить проблему с автоматизацией средствами MEP. Ваш кабельный журнал хорош, но у нас автоматизирована однолинейная схема поэтому кабельный журнал нам несложно с нее перебрать, мы все больше занимаемся архитектурной подсветкой, и по-моему мнению всегда проще учесть +-10-15% кабеля в надбавку чем тратить уйму времени на ручной подсчет кабельной продукции...Все конечно упирается в конкретные условия....У нас 200 проектов в одном объекте, у нас нет времени....Но это все лирика....Вам же большое спасибо за помощь
peacemaker_kiss вне форума  
 
Непрочитано 18.03.2014, 09:46
#24
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Вам на всякий случай, вдруг пригодится:
Кабель в MEP опуски создаёт автоматически, единственно что вам нужно, это указать в его свойствах на палитре или в момент отрисовки высоту прокладки!
Например высота прокладки - 3000, а устройства на какой либо другой отметке, тогда вам остаётся просто соединить устройства проводом, опуски и подъёмы создадутся автоматически!
VitalyAF вне форума  
 
Автор темы   Непрочитано 18.03.2014, 09:46
#25
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Разница почти два РАЗА!!!!! а не 10%!!!!!!

Между расчётами формулой и кабельным журналом!!!!!!
Глаза откройте! Или вы не пользуетесь высотой? У вас всё в плоскости? ))
Если вы дадите мне свою почту, я пришлю Вам один файл для которого я применил Вашу формулу
Буду рад критическому анализу

----- добавлено через ~1 мин. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Вам на всякий случай, вдруг пригодится:
Кабель в MEP опуски создаёт автоматически, единственно что вам нужно, это указать в его свойствах на палитре или в момент отрисовки высоту прокладки!
Например высота прокладки - 3000, а устройства на какой либо другой отметке, тогда вам остаётся просто соединить устройства проводом, опуски и подъёмы создадутся автоматически!
Я знаю, я Вам файл выслать хочу

----- добавлено через ~1 ч. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Вам на всякий случай, вдруг пригодится:
Кабель в MEP опуски создаёт автоматически, единственно что вам нужно, это указать в его свойствах на палитре или в момент отрисовки высоту прокладки!
Например высота прокладки - 3000, а устройства на какой либо другой отметке, тогда вам остаётся просто соединить устройства проводом, опуски и подъёмы создадутся автоматически!
Нам есть еще куда стремиться, ведь спецификация по ГОСТу не формируется в MEP, я попытался слегка подогнать свецификацию провода под ГОСТ, однако остается проблема с формированием единой спецификации оборудования и кабельной продукции, Ваша помощь здесь была бы очень полезна для все нашего КАД-сообщества, ведь без скрипта тут никак не обойтись...все в моем файле будет
peacemaker_kiss вне форума  
 
Непрочитано 18.03.2014, 12:42
#26
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


См. мой профиль - "отправить личное сообщение по электронной почте"

Советую не обольщаться на счёт СП по ГОСТ, скрипты тут не помогут!!!)))
Ваша задача мах - создать таблицы хотя бы по отдельности (на что можно создать)
а потом руками править рыбу, редактируя количества и метры....
VitalyAF вне форума  
 
Автор темы   Непрочитано 18.03.2014, 12:44
#27
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
См. мой профиль - "отправить личное сообщение по электронной почте"

Советую не обольщаться на счёт СП по ГОСТ, скрипты тут не помогут!!!)))
Ваша задача мах - создать таблицы хотя бы по отдельности (на что можно создать)
а потом руками править рыбу, редактируя количества и метры....
Вы отключили отправку по эл. почте
peacemaker_kiss вне форума  
 
Непрочитано 18.03.2014, 16:24
#28
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Вы отключили отправку по эл. почте
извините, включил!
VitalyAF вне форума  
 
Автор темы   Непрочитано 18.03.2014, 16:28
#29
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
извините, включил!
Я файл не могу прикрепить, отпишите мне чтобы я знал Ваш адрес
и я Вам отправлю
peacemaker_kiss вне форума  
 
Непрочитано 19.03.2014, 10:21
#30
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Если вы дадите мне свою почту, я пришлю Вам один файл для которого я применил Вашу формулу
Буду рад критическому анализу
Странный вы человек, вы не вняли ни одному моему совету, ждёте от меня какого-то анализа.
У меня нет столько времени, чтобы заниматься ерундой!
VitalyAF вне форума  
 
Непрочитано 19.03.2014, 12:52
#31
maratovich


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,481
Отправить сообщение для maratovich с помощью Skype™


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

Вообще странное явление, считать провод программой, которая изначально заточена только под трубы.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Автор темы   Непрочитано 19.03.2014, 16:05
#32
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Странный вы человек, вы не вняли ни одному моему совету, ждёте от меня какого-то анализа.
У меня нет столько времени, чтобы заниматься ерундой!
По факту считает правильно, нет желания и времени не занимайтесь
Ваш метод содержит много ручного ввода о чем я много раз говорил, в случае одного двух проектов это еще возможно однако для 10 и более не уверен.
Я расставил все оборудование по помещению согласно отметок высот весь кабель прокладывается от объекта к объекту, фактическая его длина получается корректной, осталось заложить на разделку, я не понимаю в чем моя ошибка, ну то есть что я еще должен учесть в чертеже по Вашему мнению...Критический анализ я просил, а не фразу "интересный человек", однако вы сетовали на отсутствие времени, тогда я понимаю...Неужели Вам самому как искателю в мире Autodesk неинтересно расширить потенциал проектов по электрике средствами MEP
По поводу задачи объединения спецификаций в единую вы комментировали что это невозможно, либо все-таки можно программным путем.
Возможно, вы решите эту задачу, есть тут у нас еще мысль как бы прибавлять к длине кабеля еще по 1м* на каждое устройство для разделку. Моя организации заинтересована в автоматизации процессов проектирования. Возможно в дальнейшем будем сотрудничать с Вами на коммерческой основе....
В настоящее время у нас трудится Анатолий (Ваш знакомый по этому форуму и форму caduser.ru), он автоматизировал нам полностью проект по архитектурно-художественному освещению, однако в среде autocad используя динамические блоки, и различные типы линий
Совершенствование бесконечное вот что цель сотрудничества пытливых умов

----- добавлено через 41 сек. -----
Цитата:
Сообщение от maratovich Посмотреть сообщение
Вспомнился старый анекдот про коров, в конце которого звучит фраза "А поцеловать?"... Так что не отнекивайся

Вообще странное явление, считать провод программой, которая изначально заточена только под трубы.
Странное явление не пробежаться по ветке, а отпустить "шутку" не к месту
peacemaker_kiss вне форума  
 
Непрочитано 19.03.2014, 16:21
#33
maratovich


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,481
Отправить сообщение для maratovich с помощью Skype™


Цитата:
Сообщение от peacemaker_kiss Посмотреть сообщение
Странное явление не пробежаться по ветке, а отпустить "шутку" не к месту
Со стороны видней. И опыт, сын ошибок трудных...
Цитата:
Сообщение от peacemaker_kiss Посмотреть сообщение
он автоматизировал нам полностью проект по архитектурно-художественному освещению
У Вас в руках специалист который может сделать всё что Вам надо. О коммерческой основе такого дела я уже молчу.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Автор темы   Непрочитано 19.03.2014, 16:37
#34
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от maratovich Посмотреть сообщение
Со стороны видней. И опыт, сын ошибок трудных...

У Вас в руках специалист который может сделать всё что Вам надо. О коммерческой основе такого дела я уже молчу.
Нам нужен специалист по MEP
Наш нынешний специалист не работал в нем
peacemaker_kiss вне форума  
 
Непрочитано 19.03.2014, 17:08
#35
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Ваш метод содержит много ручного ввода о чем я много раз говорил, в случае одного двух проектов это еще возможно однако для 10 и более не уверен.
Вы наверняка плохо прочитали мои статьи или не заметили, что MEP проект особенно эффективен на больших проектах.
Что MEP проект может использоваться как шаблон для нового проекта, что это означает, знаете? Думаю, что нет!
Судя по тому что вы говорите и что прислали, вам вообще не нужен MEP. Ваш основной инструмент д.б. простой Акад
и провод вам не нужен, вы всё равно используете его как полилинию, чем только затрудняете себе работу.
Autocad таблица гораздо лучше и проще извлекает данные из объектов, чем MEP Schedule Table!
VitalyAF вне форума  
 
Автор темы   Непрочитано 20.03.2014, 08:33
#36
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


[quote=VitalyAF;1242337]Вы наверняка плохо прочитали мои статьи или не заметили, что MEP проект особенно эффективен на больших проектах.
Что MEP проект может использоваться как шаблон для нового проекта, что это означает, знаете? Думаю, что нет!
Судя по тому что вы говорите и что прислали, вам вообще не нужен MEP. Ваш основной инструмент д.б. простой Акад
и провод вам не нужен, вы всё равно используете его как полилинию, чем только затрудняете себе работу.
Autocad таблица гораздо лучше и проще извлекает данные из объектов, чем MEP Schedule Table![/QUOTE

----- добавлено через 33 сек. -----
Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Вы наверняка плохо прочитали мои статьи или не заметили, что MEP проект особенно эффективен на больших проектах.
Что MEP проект может использоваться как шаблон для нового проекта, что это означает, знаете? Думаю, что нет!
Судя по тому что вы говорите и что прислали, вам вообще не нужен MEP. Ваш основной инструмент д.б. простой Акад
и провод вам не нужен, вы всё равно используете его как полилинию, чем только затрудняете себе работу.
Autocad таблица гораздо лучше и проще извлекает данные из объектов, чем MEP Schedule Table!
Я не читал ваших статей, но у нас все организовано именно так как Вы сказали, я создал шаблон-файл для которого все уже выполнено и подготовлены все необходимые листы и блоки, все берут сей шаблон и плодят проекты,
автокада нам очень мало, ведь для MEP уже сделана львиная доля того что нам нужно, конечно тот труд, который провел для нас Анатолий мы будем применять еще многие годы, потому что он связал автокад с excel и access, но для автокада необходимо создавать огромное количество блоков и иных объектов и править код программы, если скажем мы захотим перейти на проекты по внутрянке...Для MEP многое уже сделано, осталось доделать спецификации и понять как обеспечить выгрузку в access
Так что мне непонятно, почему вы мне постоянно что то вменяете, хотя я развиваю в своей организации MEP и лишь ищу помощь пока еще сам не начал писать на языках программирования. Я считал Вам будет интересно получить проект по электрике без выгрузки в excel спецификаций, то есть выполняется проект весь в среде MEP под ключ и печатается из него, без привлечения excel...Вот выгружать данные с чертежа в access это конечно очень здорово...
peacemaker_kiss вне форума  
 
Автор темы   Непрочитано 21.03.2014, 11:06
#37
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Вы наверняка плохо прочитали мои статьи или не заметили, что MEP проект особенно эффективен на больших проектах.
Что MEP проект может использоваться как шаблон для нового проекта, что это означает, знаете? Думаю, что нет!
Судя по тому что вы говорите и что прислали, вам вообще не нужен MEP. Ваш основной инструмент д.б. простой Акад
и провод вам не нужен, вы всё равно используете его как полилинию, чем только затрудняете себе работу.
Autocad таблица гораздо лучше и проще извлекает данные из объектов, чем MEP Schedule Table!
Хотел уточнить у Вам по поводу дальнейшего сотрудничества, возможно ли оно?
peacemaker_kiss вне форума  
 
Непрочитано 21.03.2014, 13:03
#38
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Почему же нет, возможно! ))
VitalyAF вне форума  
 
Автор темы   Непрочитано 21.03.2014, 13:04
#39
peacemaker_kiss


 
Регистрация: 12.04.2011
Сообщений: 37


Цитата:
Сообщение от VitalyAF Посмотреть сообщение
Почему же нет, возможно! ))
Тогда я детально изучу все ваши труды и будем решать что-нибудь
В настоящее время сам приступил к изучение LISP-языка
peacemaker_kiss вне форума  
 
Непрочитано 30.11.2017, 16:28
#40
Pave1

электроснабжение и автоматика
 
Регистрация: 21.06.2005
г. Пермь
Сообщений: 329


на для Windows 10 отказывается подсчет работать.
Как исправить?

----- добавлено через ~12 мин. -----
исправил
в первой строке добавил версию ядра ".20" и все длина снова считается
Цитата:
Set acadApp = GetObject(, "AutoCAD.Application.20")
__________________
хочу все знать
Pave1 вне форума  
 
Непрочитано 30.11.2017, 17:43
#41
2Artem76


 
Регистрация: 18.07.2016
Сообщений: 2


та же проблема, думаю от Win не зависит
2Artem76 вне форума  
 
Непрочитано 30.11.2017, 19:26
#42
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Сообщение от 2Artem76 Посмотреть сообщение
та же проблема, думаю от Win не зависит
От версии MEP зависит.
VitalyAF вне форума  
 
Непрочитано 01.12.2017, 09:53
#43
2Artem76


 
Регистрация: 18.07.2016
Сообщений: 2


AC MEP 12
2Artem76 вне форума  
 
Непрочитано 01.12.2017, 10:28
#44
VitalyAF


 
Регистрация: 19.07.2005
Россия
Сообщений: 3,224


Цитата:
Сообщение от 2Artem76 Посмотреть сообщение
AC MEP 12
используйте первые 2 цифры AECVERSION
VitalyAF вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Вертикальные решения на базе AutoCAD > Расчет длина (провода) в MEP, Расчет длины провода с помощью макроса написанного для труб?

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Документация Проектировщику на Torrents DEM Разное 262 24.02.2024 17:19
Жилые и общественные здания: краткий справочник инженера-конструктора. Под ред. Ю.А. Дыховичного и В.И. Колчунова. 2011 (Впечатления и отзывы). Armin Поиск литературы, чертежей, моделей и прочих материалов 19 22.03.2018 15:41
Как отразить звуки от распахнутого окна квартиры? trel Архитектура 44 18.06.2015 06:11
Фундамент с динамическими нагрузками в Scad Tlelaxu SCAD 9 31.08.2007 10:44