Создайте PowerCopy в CATIA V5R19 с помощью макросов VBA

Question

Я не могу понять, как создать экземпляр Power-copy, используя макрос VBA. У меня есть CATPart1, у которого есть имя Power-copy «MyPC». И я хочу создать экземпляр этой копии в текущей части. Например, эти входы Power-Copy: «Plane», «Start_point» и «End_point». Я нашел в «CAA V5 VB help», что есть объект InstanceFactory, у которого есть методы для создания копии Power-Copy и UDF. Но мой код не работает.

Sub CATMain() 
Dim partDocument1 As partDocument 
Set partDocument1 = CATIA.ActiveDocument 

Dim part1 As part 
Set part1 = partDocument1.part 

Dim hybridBodies1 As HybridBodies 
Set hybridBodies1 = part1.HybridBodies 

Dim hybridBody1 As HybridBody 
Set hybridBody1 = hybridBodies1.Item("gt") 

Dim mplane As Plane 
Dim StartPnt As point 
Dim EndPnt As point 

Set mplane = hybridBody1.HybridShapes.Item(1) 
Set StartPnt = hybridBody1.HybridShapes.Item(2) 
Set EndPnt = hybridBody1.HybridShapes.Item(3) 

Dim InstFactory As InstanceFactory 
Set InstFactory = part1.HybridShapeFactory 

Dim instance 

InstFactory.BeginInstanceFactory "MyPC", "D:\myFolder\Part1.CATPart" 
InstFactory.BeginInstantiate 

InstFactory.PutInputData "Plane", mplane 
InstFactory.PutInputData "Start_point", StartPnt 
InstFactory.PutInputData "End_point", EndPnt 

Set instance = InstFactory.Instantiate 
hybridBody1.AppendHybridShape instance 
InstFactory.EndInstantiate 

End Sub 

ошибка автоматизации происходит в соответствии

InstFactory.BeginInstanceFactory "MyPC", "D:\myFolder\Part1.CATPart" 

ли мне помочь кто-нибудь, чтобы понять, почему это не работает? Спасибо заранее)

Answer 1

Есть две вещи, которые могут быть причиной ошибки вы имеете:

1 - Использование

Dim InstFactory As InstanceFactory 
Set InstFactory = part1.GetCustomerFactory("InstanceFactory") 

вместо

Dim InstFactory As InstanceFactory 
Set InstFactory = part1.HybridShapeFactory 

2 - Вам необходимо активировать плавающую лицензию KT1, чтобы использовать операцию PowerCopy через API. Чтобы активировать его, перейдите в меню «Катия» -> «Инструменты» -> «Параметры», а затем выберите вкладку «Перекрестные продукты» и активируйте лицензию.