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

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")
. d4 \3 |6 s( x$ ?5 j* ~- K6 N5 U) e        Dim feature1 As Features.Feature
4 g# |1 t; b, H$ r% F* h        feature1 = block1.CommitFeature()
( V- n7 ^( r- S1 x

        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
, r, R6 H0 z* R- L  O2 }5 l. o
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
* c0 [8 a6 C: X5 \
& h" L! e" Y6 \/ b* s6 _9 r3 ?        block2.ObjectToMoveObject = Add(block1)  '要移动的体
: I" X$ p* L. d' U: P! b, H
        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)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

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

; Y( ?6 X' [9 I0 N9 }        Dim nXObject1 As NXObject
' o' p7 _- R7 k        nXObject1 = block2.Commit()

1 w/ u$ f1 p- ]$ r* Q1 @6 v# D上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
2 m) ~) ]1 [0 w' q: e$ W
0 B! \& |0 W7 J! {