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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
* h4 N8 b3 o: Q' z        Dim point1 As Double = 6
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
' q; Q3 O) r) c8 Y* t) ]        Dim feature1 As Features.Feature
" R; J4 i* r& |3 k2 u; d, e, {        feature1 = block1.CommitFeature()

0 s* Z7 k! M# |9 Z9 X! R
3 o# @* {' y0 J% R8 X- p0 V; w        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
) j1 _- [5 o  ~        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
0 r7 {. v! z6 m* M4 x' d+ v. `        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
& B9 l* H" R3 L2 M) c  d, A* S& U        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

        block2.ObjectToMoveObject = Add(block1)  '要移动的体
6 q& {4 c9 a9 W3 H6 i; b* S
/ N) w7 T& B8 M        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
8 z! Z6 E# x& R; l; P. O( f- ^; c        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

+ V  W9 p* o1 o3 h4 E0 D* P$ @* ^        block2.NumberOfCopies = "3"   '移动数量
, P% C# e. c* F( e3 u# C/ y9 q# v
; `* ^% i6 s( v) t6 [) i        Dim nXObject1 As NXObject
! O7 [  G, s' v: l' _' H2 a" I        nXObject1 = block2.Commit()

上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）