[Дмитрий Асташев]

Добрый день, коллеги!
Подскажите, как через COM (на Visual Studio) получить доступ к массиву и его свойствам? Также, как ,собственно, выбрать массив?

[trir]

Какой "Массив"??

[Дмитрий Асташев]

Который Array

[Кулик Алексей aka kpblc]

Обычный массив объектов не имеет никакой связи между его составляющими. Это просто копии объектов, располагающиеся в достаточно произвольном порядке. Динамический массив - совершенно другое дело.

[Дмитрий Асташев]

Алексей, конечно динамический. Вы все шутить изволите

[trir]

Код:

[Выделить все]

Dim MyArr() as AcadEntity

[Дмитрий Асташев]

Сообщение от trir Dim MyArr() as AcadEntity

это точно на правду не похоже. Уверен, существует класс со свойствами.

Код:

[Выделить все]

   ARRAY     Layer: "0"
                            Space: Model space
                   Handle = 235
      Array type:  Rectangular
      Base point:  X=1695.7400  Y=1065.6442  Z=   0.0000
        Number of columns:          4
           Column spacing:   146.7501
           Number of rows:          3
              Row spacing:   117.3131
  Row elevation increment:     0.0000
         Number of levels:          1
            Level spacing:     1.0000
      Included axis angle:         90

[trir]

Уверен, существует класс со свойствами.

Так массив или класс??

Вообще зачем в VS работать с АкАд'ом через COM, когда есть NET API??

Autodesk.AutoCAD.DatabaseServices.AssocArray?

[Дмитрий Асташев]

Сообщение от trir зачем в VS работать с АкАд'ом через COM, когда есть NET API

Сейчас срачъ начнется...
Зачем, зачем... Надо. Прошу писать по существу вопроса, (а то все интернеты уже замусорены)

[trir]

Подозреваю, что так же как AcadAcCmColor в версии x64...

[Кулик Алексей aka kpblc]

Сообщение от Дмитрий Асташев Алексей, конечно динамический. Вы все шутить изволите

Вообще-то я не шутил.
А так, динамический массив - обычный анонимный блок. Вот и все.

[trir]

И как его теперь в Document.Blocks найти?

[Дмитрий Асташев]

Так выглядят кишки массива (если смотреть через ENTGET (SSNAME):
((-1 . <Entity name: 7ffff705bd0>) (0 . "INSERT") (5 . "235") (102 . "{ACAD_REACTORS") (330 . <Entity name: 7ffff705ca0>) (102 . "}") (330 . <Entity name: 7ffff7039f0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (2 . "*U2") (10 1695.74 1065.64 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

Если получать в COM через SelectionSet, то массив является объектом типа AcadBlockReference.

Его свойство IsDynamicBlock= False, метод GetDynamicBlockProperties срабатывает, но возвращает пустой объект (нету свойств).
Но ведь хранятся где-то же все эти свойства

Код:

[Выделить все]

   ARRAY     Layer: "0"
                            Space: Model space
                   Handle = 235
      Array type:  Rectangular
      Base point:  X=2054.0547  Y=1113.3026  Z=   0.0000
        Number of columns:          4
           Column spacing:   128.4063
           Number of rows:          3
              Row spacing:    98.9829
  Row elevation increment:     0.0000
         Number of levels:          1
            Level spacing:     1.0000
      Included axis angle:         90

[trir]

Если работать с COM, то кишки надо смотреть через VBA. Только не представляю как его отличить от других анонимных блоков...

[Boxa]

Сообщение от Кулик Алексей aka kpblc обычный анонимный блок

Не совсем обычный. Это динамический блок с именем вида "*U21" у которого параметр IsDynamicBlock=False и еще если брать COM модель, то на сколько я понял, массив отличается от динамического блока тем, что у Дин блока EffectiveName ("BlockName") и Name ("*U20") как правило не равны, а у массива эти поля имеют одинаковое значение, вида "*U21"

[Дмитрий Асташев]

ОК. Массив можно поймать через, например,:

Dim block As AcadBlockReference = entity
If block.EffectiveName = block.Name Then

далее ищем его в блоках:
For Each bl As AcadBlock In doc.Blocks
If bl.Name = block.Name Then

bl - это наш массив!
Сразу можем получить число элементов массива через Dim Count = bl.Count.
Интересно, что все элементы массива имеют одинаковые имена вида *U104, но разные handle и objectid. Причем данное поведение на зависит от того, является элемент массива простым примитивом или блоком.
Но информации о количестве строк, столбцов и прочем нигде поблизости не наблюдается.
Перехожу на прием.

[Кулик Алексей aka kpblc]

Дмитрий Асташев, по такой технологии любой анонимный блок будет считаться массивом. Это неверно в принципе: любой динамический блок можно преобразовать в анонимный, у которого EffectiveName будет таким же, как и Name. Так что это в принципе - не критерий.

[Дима_]

Нет у меня автокада с дин. массивами (я вобще долго тупил смотря на первые сообщения и не мог ухватить сути - потом понял что это про авктокадовские массивы - вспомнил что такие есть) - но сильно подозреваю что через COM к их свойствам не подобраться (как и ко многому другому). Если в COM свойств нету - то и взяться им неоткуда (если только самому не проонализировать геометрию выделив строки\столбцы - но метод этот будет кривой как турецкая сабля). В общем, скорее всего, тут либо колхоз, либо .Net или DXF на выбор.

Интересно, что все элементы массива имеют одинаковые имена вида *U104, но разные handle и objectid.

Было-бы действительно интересно, еслиб они одинаковые были...

[Do$]

Сообщение от Дмитрий Асташев Dim block As AcadBlockReference = entity If block.EffectiveName = block.Name Then далее ищем его в блоках: For Each bl As AcadBlock In doc.Blocks If bl.Name = block.Name Then

Сдается мне, что любой статический блок тоже пройдет через этот фильтр. У него Reference Name = Reference EffectiveName = Defenition Name.
P.S.
Как вариант, может сделать подгружаемый в AutoCAD NET-плагин, который извлечет нужные данные по массиву? А затем передать эти данные в приложение с помощью внешнего файла/буфера обмена/реестра или другого известного Вам способа. В NET есть инструменты работы с массивами. Запустить плагин через SendCommand возможно, наверное (не пробовал). Думаю, должно получиться.
Предложение №2 - возможно, что данные о массивах хранятся где-то в словарях чертежа. Покопать в этом направлении. Как отправная точка - (102 . "{ACAD_REACTORS") (330 . <Entity name: 7ffff705ca0>) (102 . "}")

[Дмитрий Асташев]

Как жаль. Очень удобная штука - динамические массивы. Но без возможности получения свойств (в случае использования COM) - не такая полезная, как могла бы быть. Заказать бы у разработчиков (как подарок на рождество) такой функционал...