[lalych]

Привет! У меня есть один вопрос: подключаюсь программно к файлу автокада dwg из программы excel.
C VBA excel знаком более чем. Но объектная модель автокада незнакома.
Вот в чем основная задача:
Есть файл с чертежом, на чертеже есть два поля типа Mtext.
Подскажите пожалуйста, есть ли у объекта MTEXT пользовательское имя, которое я сам могу задать/менять? Ну к примеру системное имя для контрола, к примеру myMtextField1.

А потом, обращаясь из другого приложения к этому имени myMtextField1 менять его содержимое (текст в частности).

Что-то типа такого, открыл нужный файл автокада программно в VBA, нашел свой MTEXT по системному имени, а потом осуществил замену/вставку нового текста типа такого myMtextField1.setText ("Какой то новый текст")

[Сергей812]

Сообщение от lalych Но объектная модель автокада незнакома.

изучайте - почти не отличается, если через COM в акад стучаться, только вместо ThisDrawing будет lCurrDoc

Код:

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

  ' Получаем объект акада
  Dim lAcadApp As AcadApplication
  Set lAcadApp = GetObject(, "AutoCAD.Application")
  ' Получаем текущий чертеж
  Dim lCurrDoc As AcadDocument
  Set lCurrDoc = lAcadApp.ActiveDocument

ну и в редакторе VBA подключить Tools -> References: AutoCAD XXXX Type Library для удобства разработки.

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

Сообщение от lalych нашел свой MTEXT по системному имени

строковое поле Handle является уникальным внутри одного файла для любого примитива на все время существования этого примитива - привязывайтесь смело через функцию HandleToObject

[lalych]

Спасибо, ну я уже нашел ранее около 10 примеров как открыть файл автокада в excel И с библиотекой в рефференсах тоже разобрался.
Вопрос - как связаться с определенным Mtext , одним из нескольких на странице . Какой у Mtext уникальный идентификатор (имя,или индекс или еще что.)
И как туда,в уже существующий примитив, передать текст. По опыту программиста со стажем более 12 лет могу сказать,когда люди отправляют учить учебник,
в котором (если присмотрется, ничего не говорится про уникальные идентификаторы Mtext по данному вопросу топика.) то они сами не знают ответа)

[Сергей812]

Сообщение от lalych По опыту программиста со стажем более 12 лет могу сказать,когда люди отправляют учить учебник,

я не знаю, какой у вас опыт программиста - если указанное напрямую решение не видеть:

Сообщение от Сергей812 строковое поле Handle является уникальным внутри одного файла для любого примитива на все время существования этого примитива - привязывайтесь смело через функцию HandleToObject

сколько нужно лет программировать, чтобы пойти и почитать про Handle и HandleToObject вместо понтов?) Вызывает затруднение сохранить строку с хендлом на листе экселя или что?

Offtop: p.s. хотя если взять отсчет "стажа" программирования с момента написания первой программы с практическим смыслом - то у меня уже почти четверть века оного

[lalych]

Нет, мне из экселя нужно передать в автокад ,в одно из полей (представим ,что таких полей в районе 7 на чертеже) типа Mtext новое текстовое значение.
Как мне указать ,что нужно передавать переменную именно в 3е поле, а не во второе или 1ое?
Что является идентификатором уникальным Mtext на чертеже? Где этот идентификатор можно посмотреть (в свойствах элемента не нашел в автокаде.)

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

[Сергей812]

Сообщение от lalych Где этот идентификатор можно посмотреть (в свойствах элемента не нашел в автокаде.)

хм -> AcadMText.Handle. Как в принципе у любого примитива - хэндл: это primary key базы данных чертежа в файле *.dwg. Пока не удалите примитив - в этом чертеже он будет иметь одно и то же значения во всех сессиях открытия чертежа.

ну а дальше дело техники - надо в экселе хранить два значение: содержимое мультитекста и хэндл примитива-мультитекста. Функцией HandleToObject получить по строке хэндла из первой ячейки примитив мультитекст и ему задать обновленное значение из второй ячейки.

[trir]

Пока не удалите примитив - в этом чертеже он будет иметь одно и то же значения во всех сессиях открытия чертежа.

как мне говорилит умные люди - это не всегда так, есть особые случаии
https://habr.com/ru/post/271109/

[Сергей812]

Сообщение от trir как мне говорилит умные люди - это не всегда так, есть особые случаии

естественно, если объект скрыто пересоздается - то ему будет присвоен следующий свободный primary key в качестве хэндла.

Сообщение от trir https://habr.com/ru/post/271109/

и что делает .Net в теме про VBA-COM-Excel?) Не путайте людей, тем более на те же события через COM не подключиться без серьезных танцев с бубном.

[lalych]

Ребят, оставьте .Net мне для других целей. Для разработки клиентсерверных приложений в связке с SQL сервером И кстати я надеюсь никто не работает с VB.Net, так как язык не развивается , сейчас развивается либо C# на net платформе либо под web ASP.net
Давайте дожмем вставку текстовой переменной "тратата" в одно из полей проекта autocad

----- добавлено через ~19 мин. -----
Итак, я из excel подключаюсь к файлу

Код:

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

...
filePath = "C:\Users\SL\Desktop\autoc\dwg1.dwg"
Dim Acad As New AcadApplication
Set docA = Acad.Documents
docA.Open filePath 
....

[trir]

HandleToObject Method
Gets the object that corresponds to the given handle.

Signature

RetVal = object.HandleToObject(Handle)

Object

Document
The object or objects this method applies to.

Handle

String; input-only
The handle of the object to return.

RetVal

Object
The object that corresponds to the given handle.

Remarks

This method can return only objects in the current document.

[lalych]

trir
Спасибо, что у меня будет объектом ,который необходимо вставить в HandleToObject? У меня на чертеже 7 объектов типа Mtext. Как мне выбрать именно 3ий сверху) , а не 4ый к примеру.

[Сергей812]

какой хэндл скормите HandleToObject - тот мультитекст и обновите) Вопросы для программиста с опытом работы 10+ лет, мягко говоря, странные - к этому времени обычно уже умеют искать информацию в инете самостоятельно.

[lalych]

Куском кода бы помогли лучше. Объектная модель и обработка объектов в автокаде весьма отличается от остальных.
dwg1.zip

Вот чертеж. На нем три поля типа Mtext. Как к примеру во второе поле Проверил вставить значение Иванов.

[lalych]

Кодом бы лучше помогли)

[Сергей812]

Вариантов куча - напрямую в мультитекст писать, сделать свойства в чертеже и полями ссылки (что у вас в принципе и сделано), подшивки и т.д. Доделывайте свой вариант - почитайте в инете про AcadSummaryInfo и вперед. Хэндлы в данном случае вообще не нужны, как и знать порядок следования мультитекстов на чертеже.

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

Сообщение от lalych Объектная модель и обработка объектов в автокаде весьма отличается от остальных.

объектная модель каждого приложения отличается от других - было бы очень странно, если они совпадали бы даже у одного разработчика. Как понимаю, книжку из второго поста даже не пробовали открывать)

[lalych]

Открывал, посмотрел свойста объекта Mtext на 553 странице. Не нашел у него атрибутов типа text, либо методов типа setText, либо updateText.
Каждый отдельный объект (будь это поле в приложении excel,access,libreOffice. C# windows forms , JavaFx и прочие программы с GUI имеют либо свое системное имя ,которое можно задавать, либо свой уникальный индекс в коллекции
элементов . ) И при открытии проекта, к уже созданным ранее полям можно обратиться по системному имени/индексу и изменить значение этого поля .
В бейсике к примеру ИмяСлояИлиЛистаИлиФОрмы.имяКонтрола.Text = "Какое то новое значение".
В Java к примеру нужно сначала выбрать этот обьект, при помощи findViewById(имя.объекта) и потом что то с ним делать. (Ну к примеру android java, или javaFx.)

[lalych]

Я не пишу в AC , мне нужно помочь одному человеку тупо вставить значения в три поля, и после теста и корректной работы VBA забыть об автокаде.
А как писать напрямую в мультитекст из VBA?

----- добавлено через ~35 мин. -----
Думаю что предпочтительней и проще писать напрямую. Только как обратиться напрямую к Mtext конкретному? У него индекс в коллекции есть какой либо?

К примеру что тто типа такого
ThisDrawing.Documents.Collection.Controls("Mtext")(0) = "какой то новый текст"

[Сергей812]

Сообщение от lalych Открывал, посмотрел свойста объекта Mtext на 553 странице

переверните на 554 страницу Чем TextString не устроил?

Сообщение от lalych К примеру что тто типа такого ThisDrawing.Documents.Collection.Controls("Mtext")(0) = "какой то новый текст"

Если только будете вести какую-то свою коллекцию. Русским языком же было сказано про хендлы, про свойства чертежа. Обновили свойства чертежа и сделали регенерацию, поля сами подхватят значения из пользовательских свойств файла.

p.s. ThisDrawing.Documents - это даже не масло маслянное, Documents является контейнером для документа, а не наоборот.

----- добавлено через ~3 мин. -----
p.s.s. И сначала пробовать подключаться к запущенному акаду, и если неудачно - то тогда запускать новый экземпляр акада. Оперативка не резиновая)

[lalych]

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