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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
- w/ f7 D8 o+ J7 k4 g5 [        Dim point1 As Double = 6
5 A. S# \8 w: z3 g; D        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
" P/ B. f/ {$ t        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
+ Y  ?2 W+ J0 p/ t        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
  g- K) z, r; f5 S/ k
( c' P: T3 Q, [- [" \- |
        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
. M  N7 `8 ]% l! Y* X3 g
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
2 A  _; k# E) Y( M, O" _        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

        block2.ObjectToMoveObject = Add(block1)  '要移动的体

        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
, h6 g0 |, `' o/ \1 d+ f) t6 B        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
. v7 u9 K, j; {: _& G) M( X6 |        Dim direction1 As Direction
3 F; Y6 p5 y8 H$ A2 Q        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
6 J  n" u$ l% j, D        block2.TransformMotion.DistanceVector = direction1  '移动方向

- W  g7 y6 J5 t$ M3 N; {+ x        block2.NumberOfCopies = "3"   '移动数量
2 o% |2 S$ B8 _" n$ ?9 t
        Dim nXObject1 As NXObject
1 {! p6 m2 J4 I+ \" Y  G        nXObject1 = block2.Commit()

9 Z/ o4 m+ h# V上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）