CATIA 编写VBA进行DMU运动副建立出错

'学着对运动模型进行VBA 编写，查看 V5Automation.chm 文件找到一段代码，如下：
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