移动复制体，如何把要复制的体加代码里去

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
        Dim point1 As Double = 6
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()

; C0 K) h, Y2 `: F/ A
        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

$ f6 b% Y$ F) ]) J6 a& G        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
/ B$ V! m- ~+ Q: K        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
* P- h8 ^  ]; O- @, o: w9 [        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

3 {+ ?, V- u6 ^        block2.ObjectToMoveObject = Add(block1)  '要移动的体
1 ]: i; g5 o% V4 r# {+ `! N
        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
7 h7 W0 c) X1 w3 ~/ C1 ^2 S        Dim direction1 As Direction
7 y7 o3 B  }- q1 R$ [1 R        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
, ~4 A5 y1 R( M* c5 d4 t' j8 c6 S        block2.TransformMotion.DistanceVector = direction1  '移动方向

% J' H( d* Z  r7 H' D        block2.NumberOfCopies = "3"   '移动数量

        Dim nXObject1 As NXObject
) {: m) Y9 r; A' j& j( r        nXObject1 = block2.Commit()
  v: y2 \0 g" z) k$ m( `) b1 g8 G; q
, P" t! V9 c% b$ j7 E/ |上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）

% s( O& M. ~! `& J' e  S