ADT, MEP Общая Длина элементов по стилям (Страница 4 из 7)

Подниму-ка старую, но от этого не менее важную тему :)
Пытаюсь сделать суммирование пользовательских PropertySet'ов, но получаться отказывается (честно скачал все файлы, которые выкладывал Vitaly, за что ему огромное спасибо).
Пытаюсь вбивать формульную колонку напрямую в ScheduleTable со следующим кодом:

On Error Resume Next

CurSpaceObjID = [kpblc_SpaceObject:ObjectID]
CurSpaceArea = CDbl(Replace(CStr([kpblc_SpaceObject:SchedFloorArea]), ".", ","))
CurSpaceLevel = "[kpblc_SpaceObject:Этаж]"
CurSpaceSection =  "[kpblc_SpaceObject:Секция]"
CurSpaceStyle = "[kpblc_SpaceObject:Style]"
CurSpacePropertySetName = "kpblc_SpaceObject"
CurSpacePropertySetFld = "SchedFloorArea"
CurSpaceObjectName = "AecDbSpace"

Set oAcad = GetObject(, "AutoCAD.Application")

totArea = 0

For Each objEnt In oAcad.ActiveDocument.ModelSpace
  toggle = 0
  objArea = 0
  Select Case True
    Case objEnt.ObjectID <> CurSpaceObjID And objEnt.ObjectName = CurSpaceObjectName
      Set Dict = objEnt.GetExtensionDictionary.Item("AEC_PROPERTY_SETS")
      For Each ObjPropertySet In Dict
        If ObjPropertySet.Name = CurSpacePropertySetName Then
          For Each PropertySetFld In ObjPropertySet.Properties
            If PropertySetFld.Name = CurSpacePropertySetFld Then
              objArea = CDbl(Replace(CStr(PropertySetFld.Value), ".", ","))
            End If
            If (LCase(PropertySetFld.Name) = "style" And PropertySetFld.Value = CurSpaceStyle) Or (LCase(PropertySetFld.Name) = "этаж" And (PropertySetFld.Value = CurSpaceLevel Or InStr(PropertySetFld.Value, CurSpaceLevel) <> 0)) Or (LCase(PropertySetFld.Name) = "секция" And (PropertySetFld.Value = CurSpaceSection Or InStr(PropertySetFld.Value, CurSpaceSection) <> 0)) Then
              toggle = toggle + 1
            End If
          Next 'PropertySetFld
          If toggle = 3 Then
            totArea = totArea + objArea
            toggle = 0
            objArea = 0
            Exit For
          End If
        End If
      Next 'ObjPropertySet
  End Select
Next 'objEnt

RESULT = totArea + CurSpaceArea

Проблема в том, что в какой-то момент "набивания" кода AA просто зависает вмертвую (при этом я еще не попытался входить внутрь блоков и внешних ссылок!). При этом если подставить вместо вычисляемых параметров их значения и код прогнать в VBA, то все вычисляется просто на ура.
Собственно вопросов несколько:
1. Можно ли заставить в таблицу собираться данные с объектных PropertySet'ов с фильтрацией по 2 (3, 4, 5 ...) параметрам, которые тоже являются данными из PropertySet'а?
2. В чем конкретно моя ошибка?
3. Возможно ли заставить VBS, работающий в коде таблиц АА (или полей PropertySet) использовать функции, написанные на VBA или VLISP? Если да, то как? Функции будут гарантированно подгружены.
4. Возможно ли в VBS получить интерфейс для IAecScheduleApplication для упрощения получения полей объектного PropertySet'a? Если да, то как? Очень не хочется по любому поводу лезть и реестр и там вычислять ссылку на CLSID (вдобавок я не уверен в успешности этого хода).
Файл с образцами данных и таблицей лежит по адресу http://depositfiles.com/files/bpeg899sr (210 кб)
P.S. На autodesk.com и на augi.com, скажу честно, особо тщательно не искал.

Vitaly, на самом деле проблема в строках вида

LengthOv = LengthOv + object.Length 

У тебя идет сложение вычисленного значения с обычным свойством объекта, что никаких проблем и нареканий не вызывает. Мне же требуется добавлять значение <...> из того же PropertySet'a, на чем ADT и "вешается", т.е. вместо object.Length должно быть значение другого поля того же PropertySet'a.
---
Исправил некоторые ошибки в тексте.

PS ...или убедить Autodesk в необходимости вытащить на палитру нужные нам свойства, или спец утилиту от них самих. Но для этого нужно чтобы  здешние представители от Autodesk не спали, а представляли бы интересы пользователей!!!

Кулик Алексей aka kpblc, ... конечно не зря! Кстати, что за механизм? )))

Vitaly Добрый день. Стал разбираться с написанием кода для Schedule table.
Предложенный вами код не совсем понятен. Он неверно считает длину. По сути он выбирает все объекты AecbDbDuct
с PropertySet "DuctObjLength". Даже те, которые не добавлены к таблице, но имеют PropertySet "DuctObjLength"

Ещё раз поясню.
Допустим 3 разных типа объектов, как у вас на видео-примере.
Все объекты присоединены к таблице. По идее они и должны участвовать в расчёте.
Теперь скопируем любой из объектов.
Он не добавлен к таблице, но у него есть PropertySet "MemObjLength"
По логике он не должен участвовать в суммировании длин, но он участвует.

В предложенном коде нет проверки на пренадлежность входящего объекта к таблице.
Разве не так?

Всё верно, но вот этот код

For Each object In acadApp.ActiveDocument.ModelSpace 
If object.ObjectName = "AecsDbMember" 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 = "MemObjLength" Then 
For Each sch_prop In sch_propset.Properties 
If sch_prop.Name = "Style" Then 
If sch_prop.Value= n then 
totLength = totLength + object.Length 
End If 
End If 
Next 
End If 
Next 

Просчитывает всю объектную модель в независимости от того - добавлены эти объекты в таблицу или нет.
Если "MemObjLength" есть и в объектах, которые присоединены к таблице и в тех, которые не присоединены - то суммируется длина и тех и других.
Или эта строка For Each object In acadApp.ActiveDocument.ModelSpace берёт не все Structural Member'ы?

Наверно я что-то не понимаю. Вы не могли бы сбросить файл, который был в ролике на мой е-майл
pahm@yandex.ru
У меня, как вы говорите не выходит

У меня файл не открывается в AA2009 (En)

Открыл. Вот как я и говорил программный код сканирует все Structural Member'ы и те, которые присоединены к таблице и те, которые не присоединены, но у которых есть PropertySet "MemObjLength"

Я скопировал один из объектов и таблица пересчиталась, но этот объект мною не присоединялся к таблице.
Допустим, что присоединение происходит автоматически
Отсоединяю этот объект от таблицы - таблица пересчиталась. Ещё раз сделал Update
и длина отсоединённого объекта снова в таблице просуммировалась.
А всё оттого, что программа внутри таблицы не проверяет объекты по пренадлежности к таблице.

Это проблему не решает.
Создал 2 таблицы и в каждую из них добавил по одному объекту разных типов.
В 1-ую таблицу (уголок 100х63 длиной 415, круг21 длиной 391, круг12 длиной 360)
Во 2-ую таблицу (уголок 100х63 длиной 332 , круг21 длиной 340, круг12 длиной 265)

Далее правой клавишей мыши выбираю Update для 2-ух таблиц
И получаем одинаковые данные в обеих таблицах,
0.75
0.63
0.73

хотя объекты разной длины.