[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

[2Artem76]

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

[VitalyAF]

Сообщение от 2Artem76 та же проблема, думаю от Win не зависит

От версии MEP зависит.

[2Artem76]

AC MEP 12

[VitalyAF]

Сообщение от 2Artem76 AC MEP 12

используйте первые 2 цифры AECVERSION