• Вера
  • Восстановленный участник
  • На форуме с 26 марта 2003г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как извлечь атрибуты с помощью VBA?

Задача:
Как средствами VBA извлечь атрибуты деталей в Excel,
Надо получить таблицу со столбцами: Название, Длина, Ширина, Высота.
То есть сделать то что делает команда _attext
Смотрела пример attext.dvb но там извлекается только название
Спасибо.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как извлечь атрибуты с помощью VBA?

В том примере, на который вы ссылаетесь, цикл проходит по всем имеющимся атрибутам:

For Count =[b] LBound(Array1) To UBound[/b](Array1)
                    If Header = False Then
                        If StrComp(Array1(Count).EntityName, "AcDbAttribute", 1) = 0 Then
                            excelSheet.Cells(RowNum, Count + 1).Value = Array1(Count).TagString
                        End If
                    End If
                Next Count

Так что дело, скорее всего, не в коде, а атрибутах блока который обозначает (описывает или представляет) интересующую вас деталь. То есть, "Длина", "Ширина" и "Высота" должны быть включены в качестве атрибутов в ваш блок.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как извлечь атрибуты с помощью VBA?

Впрочем, попробуйте выкинуть условие:

If StrComp(Array1(Count).EntityName, "AcDbAttribute", 1) = 0 Then