VBA (Excel) Чтение и Запись в Чертеж КОМПАСа

[Валерич]

Пожалуйста,
подскажите, как подсветить (как бы выбрать мышкой) строку в спецификации чертежа?

[Михаил88]

Пожалуйста,
подскажите, как подсветить (как бы выбрать мышкой) строку в спецификации чертежа?

У Вас позиции на чертеже уже проставлены в момент, когда вы хотите связать их с объектами спецификации?

[lavgirb]

У Вас позиции на чертеже уже проставлены в момент, когда вы хотите связать их с объектами спецификации?

Здесь ТС писал (выделено мной)

как можно программно сформировать на сборочном чертеже обозначения позиций,
с указанием связанных (синих) номеров из спецификации чертежа, созданной вручную (в данном случае программно)?
Спецификация чертежа не связана со сборками и деталями.

[Михаил88]

Если я правильно понял, он хочет позицию на чертеже связать с объектом спецификации. Наверное, чтобы позиция синхронизировалась с СП при её редактировании. В СП ничего выделять не нужно. Нужно просто получить объект СП и связать его с позицией. Я подобную вещь делал с линией выносной. Здесь думаю делается также. Но могут быть неприятности т.к. в 18.1 мне не удалось это сделать из-за ошибок в API. Причем этот же код на ура работал в 21 версии.

[lavgirb]

Если я правильно понял, он хочет позицию на чертеже связать с объектом спецификации. Наверное, чтобы позиция синхронизировалась с СП при её редактировании. В СП ничего выделять не нужно. Нужно просто получить объект СП и связать его с позицией. Я подобную вещь делал с линией выносной. Здесь думаю делается также. Но могут быть неприятности т.к. в 18.1 мне не удалось это сделать из-за ошибок в API. Причем этот же код на ура работал в 21 версии.

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

Зачем ему надо выделять строку в спецификации я не понял, не делал и мне это не нужно.
Может быть это с номерами позиций и не связано. Он же не пояснил.

[Михаил88]

И с помощью программы же такие же номера увидеть синими на сборочном чертеже.

Здесь Вы имеете ввиду позиции на сборочном чертеже?


Я так понял, он так хочет сделать. Я просто начертил 2 окружности, поставил 2 позиции, добавил 2 объекта спецификации и привязал их к позициям. Они стали синими.


Связал, как описано здесь.


Сделал вручную, но Валерич хочет это делать автоматом. Я так понял его.

[lavgirb]

Здесь Вы имеете ввиду позиции на сборочном чертеже?

Я так понял, он так хочет сделать. Я просто начертил 2 окружности, поставил 2 позиции, добавил 2 объекта спецификации и привязал их к позициям. Они стали синими.
...

Связал, как описано здесь.
...

Сделал вручную, но Валерич хочет это делать автоматом. Я так понял его.

Я предложил другой вариант.

Если он хочет так, как Вы написали, то мой совет не нужен.
Его еще надо пробовать со спецификациями на чертеже. Чего я не делал.

[Михаил88]

То, что я написал в сообщении #105, я уже попробовал сделать программно, работает нормально, всё получилось.

[Михаил88]

https://disk.yandex.ru/i/sIc4TdzgOEAbkw

Записал видео, можете посмотреть.

[Валерич]

Добрый день!
Спасибо большое за дельные советы и помощь!
Строку в спецификации хотел выделять, как индикатор работы программы.
Записывается номер элемента в сборку - выделяется строка.
В общем спецификация заполняется, номера позиций на выносных линиях активные (синие).

[Валерич]

Программа здесь

[Валерич]

Исправлена ошибка записи в спецификацию объектов исключенных из расчёта.
Добавлена возможность записи Номеров Изменений в основную надпись.
Заполнение списка файлов именами типа «+-Wire», (Excel понимает как неверную формулу).
Изменен обработчик ошибок, при открытии файлов занятых другими пользователями.
ПРОГРАММА ЗДЕСЬ

[Валерич]

Пожалуйста, подскажите,
каким методом можно получить ЕДИНИЦЫ ИЗМЕРЕНИЯ установленные для ЧЕРТЕЖА?

[p3452]

см. справку...
ksSetDocOptions - Задать тип настройки текущего документа
ksSetSysOptions - Установить системные настройки

[Валерич]

А, прочитать как через API7?

[p3452]