• Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

PS

нажать на маленькую иконку в самом низу.

называется она Add Property Set

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Молодеж то найдет эту кнопку, у меня работают люди, возраст от 55 до 71 года. Если чего то берется с палитры инструментов, это без проблем, а если найти маленькую иконку в самом низу, то это уже сложнее!!! smile) Бум обучать!!!

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Vitaly: Посмотри пожалуйста файлик!
Можно ли сделать выборку длины, по 5 пунктам?
Там спецификацию надо подкорректировать!

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Гут, чуть позже!

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

В файле - 2Спецификация - графа Наименование; есть две строки Двутавр 10. У этого двутавра подсчитана длина и масса с двух строк, а надо по отдельности. Получается что это не правильная длина и в графе масса, не правильная масса.
Длина подсчитывается из отфильтрованных свойств:
n="[Style]"
h="[Handle]"
s= [Length]
А хочется, что бы еще отфильтровывалась свойствами:
Номер_позиции
Марка_Стали
Марка_Арматуры
Примечанияизстиля
Можно ли эти свойства добавить в формульные характеристика VBA?
http://narod.ru/disk/4961554000/%D0%A1% … 2.dwg.html

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Вы путаете фильтрацию с сортировкой

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

АГА!!! sad
Сделать то можно чего ни будь?

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

PS

Длина подсчитывается из отфильтрованных свойств:
n="[Style]"
h="[Handle]"
s= [Length]
А хочется, что бы еще отфильтровывалась свойствами:
Номер_позиции
Марка_Стали
Марка_Арматуры
Примечанияизстиля

Для этого есть сортировка в самой таблице.

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Но Двутавр 10 - это уже два разных элемента. Так как материал у них разный. Длина то считывается как будто Двутавр 10 это один элемент. Спецификация отсортировала на 2 строки - это правильно. Длины и массы там не правильно!!!
А Сортировка в таблице, это разве не условие очерёдности в строках?

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Виталий, можешь выложить, как правильно выполнить таблицу?
Пожалуйста!

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

xag пишет:

Виталий, можешь выложить, как правильно выполнить таблицу?

...готового примера нет, создавать некогда, попробуй сам
http://www.vitalyf.by.ru/Sample/DuctLength_byStyle.rar
почти готовый пример выборка по форме и по размерам, т.е. по двум параметрам а не по одному. Нужно только заменить имена переменных.

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Попробовал! sad(
Тихо!!!
Видимо на этом спецификация и зависнет! sad
А идея была хорошая!

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Тогда чуть позже сам сделаю.

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

У меня пришла прекрасная идея!!!
Только она АА2008 убивает на повал!
В наборе характеристик - MemObjLenth
Создаю формульную характеристику.
[Style][Марка_Стали][Марка_Арматуры][НесущийМеталл:Примечанияизстиля][Позиция:Номер_позиции]
Имя характеристики любое (например: "Стиль2").
Теперь иду редактировать VBA в характеристику "Длина_мм".
В строке
If sch_prop.Name = "Style" Then
Пробую заменить "Style" на "Стиль2".
И компьютер зависает!!!
Видимо чего то не то сделал?

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

Видимо!

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Почему для марки стали (см. табл. кол."Примечание")завел классификатор? Почему не присвоить ему материал?

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

У меня всегда раскрыта панель "Характеристики".
Изменить во вкладке "дополнительно" (Материал - классификация) быстрее, чем выбрать элемент нажать пр.кн.мыши - Выбрать из контекстного меню (Редактировать стиль) - Перейти на вкладку (Материалы) - И если материал присутствует в списке выбрать его - нажать ОК! А если материала нет в списке то надо загрузить из библиотеки материалов (еще + несколько действий).
Примерно так! smile

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
проверяй, почему [QUANTITY]/[QUANTITY]?
"Ведомость стали"- http://www.vitalyf.by.ru/Sample/MemLenByStyleMat.rar
Длина Member объектов по стилю и материалу DWG файл 250kb

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Не успел я сбросить файл, как пришла идея присвоить текущему элементу номер позиции и сохранить его в свойство. Ведь для этого мы уже всё сделали. Далее по этому свойству сделаем марку номера позиции.

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Vitaly: "проверяй, почему [QUANTITY]/[QUANTITY]?"
Если брать просто [QUANTITY], то там количество элементов из которых считается длина. Например из 5 элементов длина 5 метров: (0,8м+1,2м+2м+0,5м+0,5м) [QUANTITY] = 5, а в спецификации должно указываться что длина одного элемента =5м, т.к. есть столбец "Масса ед.кг", масса получается туда так, Единица элемента длиной 5м. весит столько то.
А если [QUANTITY] = 5, то столбец "Масса ед.кг", читается так, 5 элементов по 5 метров весят...
Получилась таблица, что то типа сводная металла.
В файле было две таблицы, первая выбрать поэлементно, а вот эта таблица свести одинаковые элементы в одну строку таблицы.

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Vitaly: я, скачал файл, открыл, посчитал длины элементов сравнил в спецификации, не совпадают.
Может у меня как то не так файл открылся.
Строка 3
Двутавр 10 L=7000мм на самом деле L=примерно=5000мм
Строка 6 (последняя)
Двутавр 14 L=9000мм на самом деле L=примерно=2000мм
"Ведомость стали"- "http://www.vitalyf.by.ru/Sample/MemLenByStyleMat.rar"

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Vitaly: как у вас, таблица нормально работает?

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
проверь этот вариант...
http://www.vitalyf.by.ru/Sample/MemLenByStyleMat_2.rar

  • xag
  • Активный участник
  • На форуме с 22 декабря 2008г.
  • Сообщений: 175
  • Спасибо: 1

Re: ADT, MEP Общая Длина элементов по стилям

Виталий: КЛАСС, все работает!
Меня только еще беспокоит: совпадение имен стилей элементов и не совпадение (Двутавр 10(2), или что нибудь типа такого же). Может создать произвольную характеристику для имени элемента и туда набирать имя (Двутавр 10), и выборку элементов вести не по программной характеристики "Style", а по той где произвольная характеристика с именем элемента?

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: ADT, MEP Общая Длина элементов по стилям

> xag
Не понял, окуда (2), стили не могут сами появляться ниоткуда!
Имя стиля не очень подходит для наименования, т.к. в реальной жизни именуются порой так замысловато, что ни одна программа не примет.
У меня наименование и обозначение - формульные характеристики, например устройства именуются >>>
Select Case "[Класс]"
    Case "Junction Box" RESULT = "[ID][Number]"
    Case "Портал" RESULT = "[ID]"
    Case "Безадресные" RESULT ="[ID][Number]"
    Case "Адресные" RESULT = "[PanelName][ID][№Шл_Цепи]"
    Case "ВРУ" RESULT = "[ID]"
    Case "Панель" RESULT ="[Number][ID]"
    Case  "Lighting" RESULT ="[ID][Number]"
    Case "ВЭП" RESULT =     "[ID][Number]"
    Case "ГЭП" RESULT =     "[ID][Number]"
    Case "ЛВС" if "[NameObj]"= "ОСБ" Then RESULT = "[PanelName]:[CircuitNumber]" Else RESULT = "[ID][Number]-[PanelName]:[CircuitNumber]"
    Case "ТЛФ" RESULT = "[ID][Number]-[PanelName]:[CircuitNumber]"
    Case "РО" RESULT = "[ID][Number]"
    Case "Switch" RESULT = "[ID][Number]"
    Case "TV" RESULT = "[ID][Number]"
    Case Else
        RESULT = "NOT DEFINED"
End Select