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

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()


        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
4 Y* a" r6 e, s% k9 |, J! D9 b        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
" l! s% v9 ?& j6 |( T1 E5 M6 u* g
: k9 y! W) |9 r% q. V- \% b        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
+ ^: s" @" {  C- p        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

: d8 _/ E1 r, V2 V3 R- B        block2.ObjectToMoveObject = Add(block1)  '要移动的体
- A$ Q0 }8 P0 b; o
! o* t5 H5 a7 n6 d4 G        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)
# b, B3 ~4 {# f* |1 ^        block2.TransformMotion.DistanceVector = direction1  '移动方向
) L/ P) C1 K/ U) h0 V2 w
0 }5 K5 F6 Q$ N, O        block2.NumberOfCopies = "3"   '移动数量

7 W! L& k/ r, V. l0 f6 D6 ?        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()
9 |- t# _- ?+ X  I
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
6 p8 P$ z1 i6 s4 Z* i* m7 ]
* d% e" k+ a0 h% _) o