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

lzhyi

        'NXOPEN创建方块体的方法
9 q# h% [* w0 M# a        Dim block1 As Features.BlockFeatureBuilder
3 P$ m! R& `# O( D% w        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
. b+ l9 H( ^1 |/ t0 g        feature1 = block1.CommitFeature()

) J1 p( ~1 D' q# L
        '以下是移动体
, Q0 Y  b, I$ S* ]        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
: Q. Z1 ~1 @2 w1 m4 |1 q* p) e
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
" H! [( Y# r& W1 ]; p        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
1 l$ C" t% E  q5 j! _  s( n
: }1 @: W" w5 i# a        block2.ObjectToMoveObject = Add(block1)  '要移动的体
4 k' W( E+ Y( M
- S7 L% r" \3 H0 {! J1 S        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
0 Q5 e" f# W- h6 r        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)
6 v% R. B6 Y, e( O4 g        block2.TransformMotion.DistanceVector = direction1  '移动方向
/ E$ @$ I" b. \! w
        block2.NumberOfCopies = "3"   '移动数量
2 |6 ^$ G1 a' i0 X& c& o
$ ^7 t( l7 M2 I        Dim nXObject1 As NXObject
  }  Y# @4 U. A3 d) p4 \1 B        nXObject1 = block2.Commit()
% q0 m; h  k7 U$ M4 x3 p6 `& G0 h
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
' O% M$ |8 G0 Y- W6 J" m; H
2 l' ~8 t+ T. T& P6 _