iCAx开思网

标题: CATIA－assembly用VBA如何实现Part从一点到另一点的移动 [打印本页]

作者: denisgong 时间: 2004-12-10 11:20
标题: CATIA－assembly用VBA如何实现Part从一点到另一点的移动
请教，CATIA－assembly用VBA如何实现Part从一点到另一点的移动

作者: acoka 时间: 2004-12-10 12:36
没做过，不过找到这个，你试试看，成功了贴个结果给大家分享一下哦
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

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

作者: denisgong 时间: 2004-12-19 13:53
acoka 兄:
      您所说的是HELP中的例子,可以实现的,
      但其中的坐标转换的概念没说清楚,不知能不能提供

作者: acoka 时间: 2004-12-19 20:34
3*4的行列式,在所有的cad里都是一样的(有时用4*4,如果带扩大了话)

这个例子是转45度后移动10,20,30吧

你可以去找大学数学或线性代数看看

作者: dkyang 时间: 2008-12-30 17:10
标题: haha
我来帮你看一下

作者: acoka 时间: 2008-12-30 23:02
..........

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

欢迎光临 iCAx开思网 (https://www.icax.org/)