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

Возможное появление (2), если выбрать элемент Двутавр 10 - нажать пр.кн.мыши (конт.меню) - выбрать "Копировать стиль элемента и назначить..." - ОК!, то получится стиль с именем Двутавр 10(2).
Значит, имя стиля не надо использовать.
Виталий, подскажи как правильно сделать, у меня не работает.
Set acadApp = GetObject(, "AutoCAD.Application")
On Error Resume Next
totLength = 0
temp = 0
n="[НесущийМеталл:Имя_Профиля]"
m="[Марка_Стали]"
w="[Марка_Арматуры]"
e="[Позиция2]"
r="[НесущийМеталл:Примечанияизстиля]"
h="[Handle]"
s= [Length]
For Each object In acadApp.ActiveDocument.ModelSpace
If object.ObjectName = "AecsDbMember" Then
temp = 0
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 = "MemObjLenth" Then
For Each sch_prop In sch_propset.Properties
If sch_prop.Name = "НесущийМеталл:Имя_Профиля" Then
If sch_prop.Value= n then                               
temp=1                           
End If                           
End If
If sch_prop.Name = "Марка_Стали" Then
If sch_prop.Value = m Then
temp=1
End If                           
End If
If sch_prop.Name = "Марка_Арматуры" Then
If sch_prop.Value = w Then
temp=1
End If                           
End If
If sch_prop.Name = "Позиция2" Then
If sch_prop.Value = e Then
temp=1
End If                           
End If
If sch_prop.Name = "НесущийМеталл:Примечанияизстиля" Then
If sch_prop.Value = r Then
If temp=1 Then
totLength = totLength + object.Length
End If
End If
End If
Next
End If
Next
End If
End If
Next
RESULT = Round(totLength + s, 1)

Можешь сам попробовать. Создай свойства для них, если получится, значит и с таблицей проблем не будет!

PS

...кроме тех случаев, когда нужно будет собрать в одной колонке данные с разными ед. изм., например метры и штуки.
Мы для этого пишем свою dll-ку.
Хотя локализацией не юзеры должны заниматься, а продавцы!

Виталий, подскажи пожалуйста, где не правильно?
xag (2009-01-19 08:34:10)
Так хочется,что бы это работало!!!

> xag
Сейчас подсчёт длины ведется по "Имени стиля", "Марка_стали". Работает прекрасно. Но если изменить чего ни будь другое, длина уже не правильно считается. Я попробовал добавить еще "Марку_Арматуры";"Позицию"([Позиция2]); и "ГОСТ"([НесущийМеталл:Примечанияизстиля]).

Марку арматуры можно учесть, создав дополнительный стиль!?
Номер позиции не должен по идее мешать, т.к. он присвивается всем одинаковым (см. фильтр) элементам. Поэтому я думаю, что можно остановиться на вар. >>>
http://www.vitalyf.by.ru/Sample/MemLenByStyleMat_2.rar

Огромное спасибо за Ваш труд, господа. Скачал Ваши ссылочки. Очень и очень нужные вещи. Здорово облегчает жизнь. А теперь наберусь наглости и попрошу у Вас совета. Подсчет длины труб в зависимости от диаметра у меня не работает. Пример который прилагается- идет на ура. причем добавляю, отнимаю, делаю с ним что хочe- все норм, а вот если начинаю в своем файлике подсчитывать... Трубы группирует- а вот длина получается от фонаря. Причем никакой зависимости не прослеживается. Аutocad  MEP 2009.2-й SP. Русский. Может кто посоветует что и где порыть? Буду благодарен за любой совет.

> vdnepr
Порыть нужно в переменных, т.к. в MEP RUS их перевели на русский, от большо-о-о-о-го ума!

Проблема частично решилась. Из-за моей невнимательности. Спецификация составляется, только в моем файле подсчет длины ведется не выделенных объектов, а всего количества труб выделенного типоразмера. Допустим я выделяю две трубы Dy 150. а в спецификации отображается общая длина данной трубы на чертеже. Причем кол-во элементов показывает правильно. Т.е. 2 шт. Не велика беда, конечно, но аппетит приходит во время еды. Можно как то подправить?

To  Vitaly. Я Вам отправил файл.

To Vitaly. Отправил повторно.Если не прийдет-
Вас не затруднит черкануть на мой адрес- я отвечу. Может фигня какая-то с почтой?
zrb(собака)inbox.ru

Таблицы получаются хорошо, только в сылках как то не правильно работают.
В Диспетчере проектов, создаю конструкции из бетона и арматуры. В этом файле с конструкцией таблицы работают хорошо.
Создаю файлы во вкладке Виды, Собираю из конструкций файл видов, пробую использовать спецификацию. Спецификация не правильно считает. Она из ссылки с арматурой выбирает только один арматурный стержень, а все остальные стержни не попадают в таблицу.
Посмотрите пожалуйста. Может можно подкорректировать, или что то сделать?
Файл с проектом АА2008.
http://narod.ru/disk/6059689000/%D0%94% … d.zip.html

Если без формул. Таблицы просматривают ссылки и в таблицу попадает длина элемента.
В примере проекта 25.02.2009 07:16:59
В виде собраны конструкции и спецификация находит длину элементов, а с формулой не работает!