Кинематика в catia с использованием ошибки автоматизации VBA

Question

Я пытаюсь написать код для создания кинематических соединений в VBA. Я получаю эту ошибку компилятора: функция или интерфейс помечены как ограниченные, либо функция использует тип автоматизации, не поддерживаемый в Visual Basic

Код, который я написал до сих пор,

Sub CATMain()

Dim oRootProduct As AnyObject
Set oRootProduct = CATIA.ActiveDocument.Product
Dim oProductToFix As Product
Set oProductToFix = oRootProduct.Products.Item(1)
oRootProduct.ApplyWorkMode DESIGN_MODE
Dim sRefName As String
sRefName =  "Product1/PartKIN_1.1/!Line.1"
Dim oReferenceLine1 As Reference
Set oReferenceLine1 = oRootProduct.CreateReferenceFromName  ( sRefName ) 
sRefName =  "Product1/PartKIN_2.1/!Line.1"
Dim oReferenceLine2 As Reference
Set oReferenceLine2 = oRootProduct.CreateReferenceFromName  ( sRefName )

Dim cTheMechanisms As AnyObject
Set cTheMechanisms = oRootProduct.GetTechnologicalObject("Mechanisms")
Dim oNewMechanism As Mechanism
Set oNewMechanism = cTheMechanisms.Add()

Dim iNbmech As Integer
iNbmech =cTheMechanisms.Count
Dim sMechanismName As String
sMechanismName = oNewMechanism.Name

oNewMechanism.FixedPart = oProductToFix


Dim aVar1(1)
Set aVar1(0) = oReferenceLine1
Set aVar1(1) = oReferenceLine2

Dim oNewJoint as Joint
Set oNewJoint = oNewMechanism.AddJoint("CATKinCylindricalJoint",aVar1)
Dim iNbjnt As Integer
iNbjnt = oNewMechanism.NbJoints

Dim oNewCommand1 as MechanismCommand
Dim oNewCommand2 as MechanismCommand
Set oNewCommand1 = oNewMechanism.AddCommand("CATKinLengthCmd",oNewJoint)
Set oNewCommand2 = oNewMechanism.AddCommand("CATKinAngleCmd",oNewJoint)
End Sub

Строка ошибки Set oNewJoint = oNewMechanism.AddJoint("CATKinCylindricalJoint",aVar1) с добавить совместное освещение. Может кто-нибудь пролить свет на эту ошибку, пожалуйста.

благодарю вас