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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
! @! d9 a7 W$ f4 N1 y. p        Dim point1 As Double = 6
8 C3 {4 g7 X- r& W  h' [        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
$ Y6 i! y  j. S* T6 Y/ c        Dim feature1 As Features.Feature
6 C) ]7 T& K# K4 I" b        feature1 = block1.CommitFeature()


        '以下是移动体
3 N! y2 `6 M4 G; j% w2 I        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

( k% Q1 ]6 w, \; K/ |        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
% r- ]- u( p. U1 O. `5 ^( x- G7 X        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
4 R6 c5 f& c& q3 o+ ?0 C- S
9 H: u6 V5 l; B: R0 `* i% b6 ]& J        block2.ObjectToMoveObject = Add(block1)  '要移动的体

        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
2 t  ?) L0 P! t6 c" D+ W        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"   '移动数量
- D8 U, B6 T4 n3 n( @
        Dim nXObject1 As NXObject
7 m/ j6 N) m% k        nXObject1 = block2.Commit()
1 \! p* E1 ?. q+ h  _% i
2 n4 k6 U$ y% P! l% N3 ?" P上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
! _3 X4 l. b* O% o1 I- T( T
# K7 C. P- n' A- v