[Константин Селикатов]

Есть объект написанный при помощи .NET и библиотеки MultiCAD API (статья на Хабре). Необходимо достать свойства(текст) из данного объекта.
Свойства видно через диспетчер свойств акада. В VBA при выделении объекта он определяется как AcadEntity. Каким образом можно достать текст из данного объекта используя VBA? Заранее благодарен за ответы.

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

Я бы сначала снял дамп объекта.

[Константин Селикатов]

Вот дамп объекта:

_$ (entget(car(entsel))'("*"))
((-1 . <Имя объекта: 7ee5b4f8>) (0 . "TESTENTITY") (330 . <Имя объекта: 7ee59cf8>) (5 . "217") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (48 . 100.0) (100 . "TESTENTITY") (100 . "TESTENTITY") (90 . 1) (301 . "Name") (300 . "тестовый объект") (301 . "Info") (300 . "тестовый объект") (301 . "Scale") (40 . 100.0) (301 . "Text") (300 . "Text field") (301 . "ClassID") (300 . "8d0ac8b1-0d5f-423f-abc9-958ea9c11ed0") (301 . "IsTempObject") (290 . 1) (301 . "DbEntity") (300 . "Multicad.DatabaseServices.McDbEntity") (301 . "ID"))

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

Константин Селикатов, дамп (в смысле - свойства и методы) можно обычно смотреть не только в лиспе. Ты ж работаешь в VBA? Вот там и смотри свойства объекта.
P.S. Лично у меня нет никакой возможности ковыряться.

[Константин Селикатов]

Вся проблема в том что доступны методы только AcadEntity, т.е. нужные свойства отсутствуют, но всё равно спасибо за помощь.
Буду пытать сделать свой COM объект чтобы связать .NET и VBA.

[VVA]

В порядке бреда - через SendCommand послать лисп, который выберет нужное значение и запишет в текстовую переменную, например USERS1. Потом значение прочитать в VBA. Может будет полезно
LISP & VBA. Передача данных и Vlax.cls concerns

[maratovich]

Подниму тему так как решения не было, а вопрос остался открытый.
Как не пробовал у AcadEntity нет прямых свойств получения (301 . "Text").
Лисп работает, но связка лиспа с VBA - это мягко выражаясь нехорошо.
Кто знает, как получить значения 301, 310 свойств ? Хотябы вектор в каком направлении двигаться.

[Александр Ривилис]

Сообщение от maratovich Кто знает, как получить значения 301, 310 свойств ? Хотябы вектор в каком направлении двигаться.

Нормально получить dxf-коды можно только в AutoLisp/ObjectARX, через одно место (называемое P/Invoke) в .NET. А вот в VBA (точнее средствами только VBA) - никак.

[maratovich]

Сообщение от Александр Ривилис Нормально получить dxf-коды можно только в AutoLisp/ObjectARX

Мне бы хоть и не нормально, пускай с кракозябрами, но что нибудь от туда выдрать.

[Do$]

Сообщение от maratovich Лисп работает, но связка лиспа с VBA - это мягко выражаясь нехорошо.

VBA - это уже "мягко выражаясь нехорошо". Так что использование Auto-VisualLISP картины уже не испортит, ятд.

[maratovich]

Сообщение от Do$ VBA - это уже "мягко выражаясь нехорошо".

Спорить не буду т.к. это ни к чему не приведёт, просто запускать из exe лисп вообще не фантан, так что нужно только VBA.
Вообще странно, всё есть, а получить данные невозможно.

[Дима_]

Сообщение от maratovich Мне бы хоть и не нормально, пускай с кракозябрами, но что нибудь от туда выдрать.

Ну можно еще кривее - запомнить дескриптор (Handle) примитива, сохранить файл в dxf - там его найти и ....

[Boxa]

Сообщение от Александр Ривилис через одно место (называемое P/Invoke) в .NET.

Любопытство не порок =)
Можно пример?

[Александр Ривилис]

Сообщение от Boxa Можно пример?

В этом коде есть использование функции из ObjectARX с именем acdbEntGet, которая является аналогом (entget) в AutoLisp'е:
Зеркальное отображение примитива однострочного текста (DBText)

----- добавлено через ~3 мин. -----

Сообщение от maratovich Мне бы хоть и не нормально, пускай с кракозябрами, но что нибудь от туда выдрать.

Тогда пиши arx, который из VBA-будешь загружать, передавать ему ObjectID и код группы, и получать значение.
Только с lisp'ом явно будет проще - как минимум от версии и платформы AutoCAD не зависит.

----- добавлено через ~12 мин. -----

Сообщение от maratovich Спорить не буду т.к. это ни к чему не приведёт, просто запускать из exe лисп вообще не фантан, так что нужно только VBA. Вообще странно, всё есть, а получить данные невозможно.

Еще вариант. Поищи VLAX.CLS - он может помочь обойтись без лиспа в явном виде.

[maratovich]

Сообщение от Александр Ривилис Еще вариант. Поищи VLAX.CLS - он может помочь обойтись без лиспа в явном виде

Вот, это уже интересней...
Случайно не подскажете что такое "VL.Application.1" и чем отличается от "VL.Application.16" и будет ли зависимость VLAX.CLS от версии Автокада?

[Дима_]

Все нижеизложенное воспринимать не как инструкция к приминению, а что-то вроде, что всегда можно придумать как.
Из "чистого" VBA (или Net) получить текстовую строку по DXF 310 - да пожалуйста - он dxf читать не умеет, но задавать их в качестве критерия выборки SelectionSet (FilterType, FilterData) - может. Выбираем все примитивы (301 . "") - смотрим есть-ли с нашим Handle (если мне память не изменяет задать фильтр на DXF 5 - нельзя), если есть - то значит строка пустая, если нет, то ищем с (301 . "*") - соответственно есть такие или нет в принципе - а далее в цикле прогоняем все значения (симовлов 1-255) по каждой букве (учитывая что * и ? надо "маскировать") то есть "a*", "b*"... пока не поймаем 1-ую букву - допустим выдаст совпадение "X*". Далее проверяем на просто "X" и если нет то идем дальше "Xa*", "Xb"... (под a и b - имеются в виду начало алфавита). В итоге получим-таки всю строку (в наихудшем случае за X*255 обращений - где X длинна строки).
з.ы. Я сам против таких методов - любую работу надо делать предназначенным на то инструментом, но...

[maratovich]

Сообщение от Дима_ качестве критерия выборки SelectionSet (FilterType, FilterData) - может

Согласен, а вот далее написанное вообще не переварил.
Ну выберем мы через фильтр 5 примитивов, у каждого по 38 кодов 301, и как это мы сможем перебрать эти коды на наличие в них символов ?

[Александр Ривилис]

Сообщение от maratovich Случайно не подскажете что такое "VL.Application.1" и чем отличается от "VL.Application.16" и будет ли зависимость VLAX.CLS от версии Автокада?

Код:

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

HKEY_CLASSES_ROOT\VL.Application.16

Вроде от версии AutoCAD начиная как минимум с AutoCAD 2004 не зависит. Но я им не пользовался никогда, так что утверждать не берусь.

Сообщение от Дима_ Выбираем все примитивы (301 . "")

Насколько мне не изменяет память по группе 301 отфильтровать не получится (могу ошибаться). Кстати, в примитиве таких групп может быть несколько.

[Дима_]

У 5-ти мы проверим есть-ли там наш - по handle - что может быть несколько 301 - это я не учел - тогда нада для каждого примитива проверять всегда (а не до 1-го совпадения) весь алфавит, то есть выделить вначале все первые буквы, потом все вторые и пр - количество обращений "геометрически немного" вырастет и небудет понятно где какая строка (в каком порядке) - это минус....
з.ы. внимание на этом методе я бы не акцентировал

[maratovich]

Сообщение от Дима_ тогда нада для каждого примитива проверять всегда (а не до 1-го совпадения) весь алфавит,

Что то я недопонимаю...
Выбрал через фильтр 5 примитивов у которых есть группа 301, и у каждого есть такое:
.......
(301 . "Text1") (300 . "Text field1")
(301 . "Text2") (300 . "Text field2")
(301 . "Text3") (300 . "Text field3")
.......
38 шт таких строк

Мне нужно найти программно значение (300 . "Text field2"), я же не знаю что там "Text field2", если Вы говорите про перебор группы (301 . ...) и сравнением с искомым, то тут и непонятно как получить 301 а следом и 300 ? Фильтр внутри примитива - фантастика, тогда как ?

[kakt00z]

Сообщение от maratovich Мне нужно найти программно значение (300 . "Text field2")

Код:

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

 
(cadr
  (member '(301 . "Text2")
	  '((301 . "Text1") (300 . "Text field1")
	    (301 . "Text2") (300 . "Text field2")
	    (301 . "Text3") (300 . "Text field3"))
	  )
  )

[maratovich]

kakt00z спасибо конечно, но через VBA требуется. Никак не найду время раскусить это всё, скорей бы отпуск чтоли.