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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
        Dim point1 As Double = 6
3 l6 q( r- _5 @! R" y  {        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
$ W" T& Q' v7 X6 ^/ G, a( b! N        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
8 X; Q; l: h2 u" l( ?/ p7 i        feature1 = block1.CommitFeature()
' ^& n3 S8 {7 c% G

        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
) e% Q2 }; c9 Q. [' a6 v9 G+ M
4 D5 [5 j: h5 t        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
! b2 }# _) G9 s' A9 {# R        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
8 W1 _7 c, F; g/ |- ~" u        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

        block2.ObjectToMoveObject = Add(block1)  '要移动的体

+ d! j1 \* a- G' z' L        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
+ ]" k  [' ?& H- p- c' s3 ]0 L        Dim direction1 As Direction
+ v; G, h+ b( I2 X        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

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

1 P, t7 u) m/ X+ }1 P        Dim nXObject1 As NXObject
* H3 f, `+ V8 D) e+ j1 r' Y        nXObject1 = block2.Commit()

上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
0 Z8 N0 |# e! _  e2 _