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

lzhyi

        'NXOPEN创建方块体的方法
8 y1 Z4 I# v' [3 }$ k3 ^        Dim block1 As Features.BlockFeatureBuilder
9 H) z9 ^$ u, s        Dim point1 As Double = 6
2 A& v8 ?1 K, e1 M% S  X        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
1 ~; M, W" O9 _" u8 \4 h0 p# n( e4 l        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
0 f' I' H/ r1 n. G

- `! F+ e, t' z8 @) d% B1 c# p        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
; d6 F, ^. ~4 [) S- |        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

- \4 y" _1 n7 ]+ R        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
7 z4 q$ O0 H* w; B" ]' S
  d% E7 \2 c- }. X" j2 u/ j        block2.ObjectToMoveObject = Add(block1)  '要移动的体
, G3 A7 R5 R7 Z3 ~. ]. T$ ^
3 C; A2 b& |1 H) v# Z        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
        Dim direction1 As Direction
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
( }* U& k+ H" w        block2.TransformMotion.DistanceVector = direction1  '移动方向

        block2.NumberOfCopies = "3"   '移动数量

        Dim nXObject1 As NXObject
) z# u' X. U8 N' U  ]. j        nXObject1 = block2.Commit()

: f. R# x: g9 P0 |! C3 m上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）