Уважаемые коллеги!
Подскажите пожалуйста каким образом можно создать фильтр в спецификации количества труб по системе (слою, наличию изоляции или другому признаку). Т.е. чтобы нижеуказанная форумала "видела" только определенную систему.
(Использовать классификатор по разным причинам неудобно)
Формула от Vitaly:
Set acadApp = GetObject(, "AutoCAD.Application")
On Error Resume Next
totLength = 0
n="[_ХОЛОД-ТРУБЫ:Номинальныйдиаметрпокаталогу]"
h="[_ХОЛОД-ТРУБЫ:Обработка]"
s=[_ХОЛОД-ТРУБЫ:Длина]
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 = "_ХОЛОД-ТРУБЫ" Then
For Each sch_prop In sch_propset.Properties
If sch_prop.Name = "Номинальныйдиаметрпокаталогу" 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
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!