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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
        Dim point1 As Double = 6
: d0 }4 i: o5 k" g0 K, [        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()

7 I3 k- M7 c. i# O# N
        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
& ^4 h/ d- C0 q1 c6 `) i/ R; e) j        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
: G% N( P' H1 W7 P* }+ p
& B: Q0 U: B$ P1 J1 u8 a4 B. s% T        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
, ]# L+ W4 ]1 }+ h1 B        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

7 p4 n' o+ J3 l7 E+ {( G        block2.ObjectToMoveObject = Add(block1)  '要移动的体

        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
7 O2 n8 V+ R+ {3 E        Dim direction1 As Direction
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
/ T8 ?9 b6 F; m2 m$ [8 B) [- f        block2.TransformMotion.DistanceVector = direction1  '移动方向
; R4 o( q0 t* l( [
/ `; H& O5 r& ^/ p& W1 C, C+ D        block2.NumberOfCopies = "3"   '移动数量

& I$ s9 ~" Y5 B        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()

" o  P% c- z% \上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
$ ~) L" a% }( O9 P+ @" d7 {1 h
1 B; n2 r# G, M# N