dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

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

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

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

peacemaker_kiss вне форума Вставить имя

Уважаемые форумчане, требуется квалифицированная помощь
Существует макрос для расчета суммарной длины участков трубопровода, для формирования спецификации
Необходимо, если это возможно модернизировать этот макрос для расчета той же длина но объекта "Провод" 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.
Просмотров: 11582
 
Непрочитано 30.11.2017, 17:43
#41
2Artem76


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


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

инженер
 
Регистрация: 19.07.2005
Россия
Сообщений: 2,150
Отправить сообщение для VitalyAF с помощью Skype™


Цитата:
Сообщение от 2Artem76 Посмотреть сообщение
та же проблема, думаю от Win не зависит
От версии MEP зависит.
__________________
AMEP, ACA - обучение, консультации, внедрение
https://sites.google.com/site/byvitaly
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
Россия
Сообщений: 2,150
Отправить сообщение для VitalyAF с помощью Skype™


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

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

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

Быстрый переход

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

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||