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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
0 q) I1 [! ~; I* ~. I        Dim point1 As Double = 6
  K: Q! m) t8 `" V$ y$ K* `' P        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
1 _# Z- ?+ w$ \/ X6 \. k' \8 I        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
4 A  y1 h* J9 C
7 f6 e* R) {/ T# K: k/ k
        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
+ }( Y3 N  P+ d9 a0 R/ i        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
0 L( z5 W$ e) |- b7 |
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
7 S, j" l+ C- K5 u! R% k
        block2.ObjectToMoveObject = Add(block1)  '要移动的体
5 a  w4 T3 _9 [" g6 I6 _' \( e  s
        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
, |9 s) o% C8 i; ]) K        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)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

, K9 w3 ^5 }5 g$ h9 |5 x& O* k        block2.NumberOfCopies = "3"   '移动数量

        Dim nXObject1 As NXObject
! K" ?$ }! y5 L* [" {        nXObject1 = block2.Commit()

9 C  F5 U% T0 h, c3 e% t上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
$ B# Q; `" w/ s# Z6 ~% }