Catia 的 VBA 问题 （新手问题）

a_a_a_a

Sub CATMain()
  
     '==================================================================
     ' 1-Prolog
     '==================================================================
     '------------------------------------------------------------------
     ' 1.a-Declare required variables: command set, motion matrix
     '------------------------------------------------------------------
     Dim dValcmd(0 To 1)  'As  ' Double
     'Dim dMotion(11) As Double
  
     '------------------------------------------------------------------
     ' 1.b-Retrieve the root product
     '------------------------------------------------------------------
     Dim oRootProduct As AnyObject
     Set oRootProduct = CATIA.ActiveDocument.Product
  
     '------------------------------------------------------------------
     ' 1.c-Retrieve the Mechanisms as a TechnologicalObject of the Product
     '------------------------------------------------------------------
     Dim cTheMechanisms As AnyObject
     Set cTheMechanisms = oRootProduct.GetTechnologicalObject("Mechanisms")
  
     '------------------------------------------------------------------
     ' 1.d-Take 1st mechanism found, and first moving part
     '------------------------------------------------------------------
     Dim oFirstMechanism As Mechanism
     Set oFirstMechanism = cTheMechanisms.Item(1)
  
     '==================================================================
     ' 2-Retrieve number of moving parts, and first one
     '==================================================================
     Dim iNbProd As Integer
     iNbProd = oFirstMechanism.NbProducts
  
     Dim oMovingPart As Product
     oMovingPart = oFirstMechanism.GetProduct(1)
  
     '==================================================================
     ' 3-Retrieve current command values
     '==================================================================
     oFirstMechanism.GetCommandValues dValcmd()
  
     '==================================================================
     ' 4-Solve for other command values
     '==================================================================
     '------------------------------------------------------------------
     ' 4.a-Create another command set
     '------------------------------------------------------------------
     dValcmd(0) = dValcmd(0) + 10
  
     '------------------------------------------------------------------
     ' 4.b-Apply the command set
     '------------------------------------------------------------------
     oFirstMechanism.PutCommandValues dValcmd
  
     '==================================================================
     ' 5-Retrieve motion for a part after solving and apply it
     '==================================================================
     '------------------------------------------------------------------
     ' 5.a-Retrieve motion for a part after solving
     '------------------------------------------------------------------
     oFirstMechanism.GetProductMotion oMovingPart, dMotion
     '------------------------------------------------------------------
     ' 5.b-Apply the motion to the part
     '------------------------------------------------------------------
     oMovingPart.Move.Apply dMotion
  
End Sub
  
以上程序为Catia自带程序，可是在运行时，程序停在：oFirstMechanism.GetCommandValues dValcmd()
中的GetCommandValues处，并提示：编译错误：函数或接口标记为限制的，或函数使用了Visual Basic不支持的自动化（Automation）类型。
  
请问各位高手，你们如何处理这个问题？
多谢！！！1

a_a_a_a

mei8686

a_a_a_a

whofullwin

whofullwin