Тема: Как добраться до Property Set в формуле для Schedule Table
Есть пример формулы для Schedule Table, в которой организуется проход по объектам (в данном случае по space'ам) в Model Space и подсчет суммы:
Set acadApp = GetObject (,"AutoCAD.Application")
Set AecBaseApplication = acadApp.GetInterfaceObject("AecX.AecArchBaseApplication.5.5")
Set ActiveDoc =AecBaseApplication.ActiveDocument
Set ObjectCollection = ActiveDoc.ModelSpace
TotalArea = 0
For Each Object In ObjectCollection
Set SpaceObject = Object
If SpaceObject.ObjectName = "AecDbSpace" Then
TotalArea = TotalArea + SpaceObject.Area
End If
Next
RESULT = TotalArea Так вот, понадобилось мне, считать сумму не всех спейсов в модели, а только спейсов с конкретным property set.
Попробовал вставить код, который отлично работает в VBA:
Set Dict = SpaceObject.GetExtensionDictionary
If Dict.Count > 0 Then
Set subdict = Dict.Item("AEC_PROPERTY_SETS")
For Each sch_propset In subdict
If sch_propset.Name = "имя_PROPERTY_SET" Then
For Each sch_prop In sch_propset.Properties
If sch_prop.Name = "имя_свойства" Then ....однако даже добавление одной строки в формулу
Set Dict = SpaceObject.GetExtensionDictionary
приводит к тому, что вся формула перестает работать.
Буду благодарен за помощь.
