Как, имея чертежный размер, найти переменную, со значением этого размера?

[lavgirb]

Как, имея чертежный размер, найти переменную со значением этого размера?
Размер получаю из выделения на виде. Могу получить массив переменных из вида.
Не понятно, как выйти через размер на переменную или через переменную на размер.
Где покопать?
Спасибо.

[Михаил88]

Где покопать?

Например для линейного параметрического размера.

ILineDimension -> IDrawingObject1 -> Constraints -> Variable

А можно еще проще.

variable = kompas_document_2d_1.Variable(False, selected_object)

где selected_object это например ILineDimension

[lavgirb]

Например для линейного параметрического размера.

ILineDimension -> IDrawingObject1 -> Constraints -> Variable

А можно еще проще.

variable = kompas_document_2d_1.Variable(False, selected_object)

где selected_object это например ILineDimension

Спасибо, Михаил88

По второму варианту как-то получилось, но только первый один раз. Потом сколько не пробовал в переменную variable ничего не выдавалось
Подставлял в аргументы и размер и текст размера. Может, компьютер устал? ))))
В выходные еще буду пробовать.
По первому варианту пока не разобрался, как получить переменную по схеме Constraints -> Variable.
Constraints это массив, но в нем переменной в явном виде нет.
Время, правда, было ограничено, но и перспективу не увидел.

[Михаил88]

Constraints это массив, но в нем переменной в явном виде нет.
Время, правда, было ограничено, но и перспективу не увидел

Я думал Вам нужно получить имя переменной относящейся к выделенному размеру. Для Вашей задачи тогда так не подойдет.

По второму варианту как-то получилось, но только первый один раз. Потом сколько не пробовал в переменную variable ничего не выдавалось
Подставлял в аргументы и размер и текст размера.

Это рабочий вариант.

Код Выделить Развернуть

kompas_document = application.ActiveDocument
kompas_document_2d = kompas_api7_module.IKompasDocument2D(kompas_document)
kompas_document_2d_1 = kompas_api7_module.IKompasDocument2D1(kompas_document_2d)
selection_manager = kompas_document_2d_1.SelectionManager
selected_object = selection_manager.SelectedObjects
print(selected_object)

variable = kompas_document_2d_1.Variable(False, selected_object)
print(f'{variable.Name} = {variable.Value}')


[lavgirb]

Михаил88, программирую на VB6
Это у меня так и не работает (
variable = kompas_document_2d_1.Variable(False, selected_object)
Видимо, ошибся, когда написал, что один раз сработало. Показалось )

Но получилось так.
С помощью Вашей подсказки
ILineDimension -> IDrawingObject1 -> Constraints
нашел имя переменной размера
Потом получил массив переменных
ILineDimension -> IView -> Variables
Потом, зная имя переменной и имея массив переменных, нашел саму переменную.
Михаил88, спасибо за наводку. 

[Валерий Изранов]

lavgirb, а покажите вашу программу на VB6. Интересуюсь.

[Михаил88]

Это у меня так и не работает (

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

[Михаил88]

Михаил88, программирую на VB6

тоже работает

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

Может у меня 1 раз не сработало из-за ошибки в коде, точно не помню причину.

[lavgirb]

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

[Михаил88]

Чтобы gif нормально отображались, а не так



Нужно при вставке прописать ширину и высоту



По экспериментируйте с размерами.

[lavgirb]

Нужно при вставке прописать ширину и высоту

По экспериментируйте с размерами.

Добавил размеры из свойств файла. Получилось!
Спасибо.