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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
  H9 W* b0 M+ v) j        Dim point1 As Double = 6
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
' ]/ C2 s7 f+ R        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
& x" r- n: X7 a( F        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()

9 f  j; P- h, t! ]/ `' G
- m  Q7 M5 S1 e. Z& b: p$ c  i        '以下是移动体
+ c+ {6 ]1 G3 E# p        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
& h2 u3 @+ ?3 @" M! x
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
6 \+ y# w7 ^( u' }/ n        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

- F* ^- Z. V6 ?        block2.ObjectToMoveObject = Add(block1)  '要移动的体

" T9 N" |9 m( P) C4 F  [        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
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向
/ d( |4 I. p: r, S( F. L* @7 B
% {$ R: w5 L: F1 s        block2.NumberOfCopies = "3"   '移动数量

( ?3 z5 }! \6 b4 ^! h) u8 b        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()

上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
# S0 c+ f+ w  U- ^