Проблема обеспечения корректной привязки чертежей к 3D-модели

[ITKaitlin]

Здравствуйте,

Необходимо выполнить копирование сборочной единицы с помощью API КОМПАС с последующим переименованием указанных деталей и узлов.
В части моделей деталей и узлов я успешно реализовала данный процесс.
Однако при работе с чертежами и их связью с моделями возникают сложности.
Я пока не до конца понимаю, каким образом правильно реализовать данный аспект для обеспечения корректной привязки и обновления чертежей после копирования.

Ниже приведён фрагмент кода, в котором отражены манипуляции по переименованию и копированию сборки с чертежами, а так же добавления привязки:

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

// Открытие документа
KompasDocument3D := kompasAPI7.Documents.Open(NameNewSB, True, False) as IKompasDocument3D;
KompasDocument3D := kompasAPI7.ActiveDocument as IKompasDocument3D;
Part := KompasDocument3D.TopPart as IPart7;
PropertyKeeper := Part1 as IPropertyKeeper;
// Получение свойств документа     -----------------------------------------------
// Формируем полный путь файла              ------------------------------

// Получение менеджера продукта
ProductDataManager := KompasDocument3D as IProductDataManager;
// Получение подключенных чертежей
ProductDataManager.ObjectAttachedDocuments[PropertyKeeper];
// Процесс получения чертежа
// ...
// Предварительный просмотр метаданных дерева исходной модели
ShowMessage('MetaProductInfo DO rebuild: ' + ProductDataManager.MetaProductInfo);
// Получение чертежа
FileCdw := StringList[0];
// Перестройка и сохранение под новым именем модели
KompasDocument3D.RebuildDocument;
KompasDocument3D.SaveAs(NameNewSB);
KompasDocument3D.Close(0);

// Проверка существования файла чертежа
IsFileExists(FileCdw);
// Открытие файла чертежа (.cdw)
KompasDocument2D := kompasAPI7.Documents.Open(FileCdw, True, False) as IKompasDocument2D;

// Формируем путь и сохраняем под новым именем
// KompasDocument2D.SaveAs(NewfileName);
// Получение видов документа
// Получение интерфейса ассоциативного вида графического документа для изменения полного имени файла-источника
// Перестройка и сохранение чертежа
// ...

// Добавление нового чертежа в "Управление связанными чертежами" модели
KompasDocument := kompasAPI7.Documents.Open(NameNewSB, True, False) as IKompasDocument;
KompasDocument := kompasAPI7.ActiveDocument as IKompasDocument;
kompasDocument3d := KompasDocument as IKompasDocument3D;
Part := kompasDocument3d.TopPart as IPart7;
PropertyKeeper := Part1 as IPropertyKeeper;
ProductDataManager := kompasDocument as IProductDataManager;

// Добавление чертежа в "Управление связанными чертежами" для конкретной сборки
ProductDataManager.ObjectAttachedDocuments[PropertyKeeper] := NewfileName;

// Получение измененных метаданных дерева исходной модели
ShowMessage('MetaProductInfo sd: ' + ProductDataManager.ObjectMetaProductInfo[PropertyKeeper]);

// Перестройка и сохранение модели
// ...
Также прилагаю исходные метаданные до выполнения данных операций:

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

<infObject id="18905481-4159882976-0" type="embodiment" spUsed="allStyles" formatSourceDocument="Len_1230.cdw" setMaterialName="false" prodCopy="false" />
<document>
<property id="fullFileName" value="Len_1230.cdw.cdw" />
</document>
и метаданные после их реализации:

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

<infObject id="18905481-4159882976-0" type="embodiment" spUsed="allStyles" formatSourceDocument="..\\Len_1230.cdw" setMaterialName="false" prodCopy="false" />
<document>
<property id="fullFileName" value="Len_1.cdw" />
</document>
Буду признательна за подсказки и рекомендации по правильной организации процесса для корректного обновления и привязки чертежей.

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

ITKaitlin, вам очень важно сделать собственную программу или  попробуете готовую?
https://disk.yandex.ru/d/g2iIgcP-C-a1pg

[ITKaitlin]

ITKaitlin, вам очень важно сделать собственную программу или  попробуете готовую?
https://disk.yandex.ru/d/g2iIgcP-C-a1pg

Я считаю, что важнее сначала разобраться и доделать свою собственную программу, чтобы полностью понять процесс и реализовать всё по своему методу. Готовая программа может помочь как временное решение, но собственный подход даст больше контроля и опыта.

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

 ITKaitlin, вы готовы потратить на разбирательство и доделку 1 (один)год соей жизни?

[Doom2]

1 (один)год

Извлек исходник за 45 сек. "45 секунд Карл".

+ ИИ, не думаю что при таких инструментах будут столько затрат по времени.