CATIA－assembly用VBA如何实现Part从一点到另一点的移动

请教，CATIA－assembly用VBA如何实现Part从一点到另一点的移动

没做过，不过找到这个，你试试看，成功了贴个结果给大家分享一下哦
Example:  
This example applies the transformation (45 degrees-rotation around the x axis and a translation)
  
Dim myMovableObject As Move
  Set myMovableObject = MyObject.Move.MovableObject
   
  Dim TransformationArray( 11 )
  'Rotation( 45 degrees around the x axis) components
  TransformationArray( 0 )  = 1.000
  TransformationArray( 1 )  = 0
  TransformationArray( 2 )  = 0
  TransformationArray( 3 )  = 0
  TransformationArray( 4 )  = 0.707
  TransformationArray( 5 )  = 0.707
  TransformationArray( 6 )  = 0
  TransformationArray( 7 )  = -0.707
  TransformationArray( 8 )  = 0.707
  'Translation Vector (10,20,30)
  TransformationArray( 9 )  = 10.000
  TransformationArray( 10 ) = 20.000
  TransformationArray( 11 ) = 30.000
  
  MyMovableObject.Move.Apply TransformationArray
  

小弟做了一个简单的VBS程序（在公司主管看的严：《），不知道是不是您要的结果，我上传一下，您看看！（真不好意思，程序太简陋了，但是可以实现，输入点坐标实现PART移动的功能）

acoka 兄:
      您所说的是HELP中的例子,可以实现的,
      但其中的坐标转换的概念没说清楚,不知能不能提供

3*4的行列式,在所有的cad里都是一样的(有时用4*4,如果带扩大了话)
  
这个例子是转45度后移动10,20,30吧
  
你可以去找大学数学或线性代数看看

我来帮你看一下

..........

[ 本帖最后由 acoka 于 2008-12-30 23:05 编辑 ]