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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
; u; t) J+ s' F6 M; R( j        Dim point1 As Double = 6
" ?% {2 P  ^3 n" z: |7 G0 s+ t        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
7 ^( ?+ O& m" C5 i' m; Z; N! {        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
- g& {6 Z4 `. e) X0 f        Dim feature1 As Features.Feature
  O( V1 M, P: s% T/ A3 Z6 P        feature1 = block1.CommitFeature()
: e. Q. F4 U4 k0 B

        '以下是移动体
" v* U- ~& p: v8 l        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
# j  o1 K5 r! p5 f! Q3 ~3 s
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
9 h, e) [, n% x$ i! L
% h# L) p* x5 I; a        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)
6 f% p+ F; j- d- S$ ~        Dim direction1 As Direction
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

' ~" n  w- Z3 }' C        block2.NumberOfCopies = "3"   '移动数量

        Dim nXObject1 As NXObject
& J2 r; S7 ]- D8 C! i, `  w        nXObject1 = block2.Commit()

8 O, P! E/ ~1 \! ^7 l' P上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）