Catia 的 VBA 问题 （新手问题）

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

没人做开发吗？

你是用宏录的程序吗.最好说一下你用在什么地方的.哪一个模块

'COPYRIGHT DASSAULT SYSTEMES 2000-2001
Option Explicit
Dim Language as String
Language="VBSCRIPT"
  
'*****************************************************************************
' Purpose:      This macro calls the kinematics solver  
'               and applies the computed motion to a  
'               part of the mechanism
'               in a specific product document
' Assumptions:  The product document used as input is result of the  
'               CAAKiiMechanismCreation use case
' Author:        
' Languages:    VBScript
' Version:      V5R6
' Locales:      US English
'*****************************************************************************
  
Sub CATMain()
  
    '==================================================================
    ' 1-Prolog
    '==================================================================
    '------------------------------------------------------------------
    ' 1.a-Declare required variables: command set, motion matrix
    '------------------------------------------------------------------
    Dim dValcmd(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帮助中带的一个程序。
  
以上程序应该是VBScript的所以不能在VBA中运行。
  
而且我刚才比较了一下，帮助中几乎所有的程序都是VBScript的。真不明白，放着VBa不用却用VBScript（调试会很不方便），大侠们用什么编程？
Caa？
VBA？
VBScript？（能说说你用的什么编辑工具吗?)

我也遇到了这个问题，请高手指点

GetCommandValues可以通过,PutCommandValues去不行，不知道什么原因，请高手指教！！！！！！！！！1