Расчет длина (провода) в MEP

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