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

lzhyi

        'NXOPEN创建方块体的方法
. d% M& M4 t6 b' g' C! M% o        Dim block1 As Features.BlockFeatureBuilder
8 [3 D, j! L1 Y# V! ?. Y/ ?        Dim point1 As Double = 6
% Q$ K8 C$ ]% L+ {0 X5 q        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
2 U) u4 }3 `" g+ _' N* Y' K+ m( J        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
! ^$ _" _$ l3 H8 q2 M" l/ D2 f5 d: i6 @
/ f/ s, \7 W4 j& e0 n  ?
        '以下是移动体
8 T6 W1 a0 c, `# ^+ q! h, n2 a5 A& C        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
1 r% Y' e! m) c        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
3 L# p+ }3 F( E7 |& u0 ?        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

$ u6 V5 f4 i' v% J        block2.ObjectToMoveObject = Add(block1)  '要移动的体

4 Z5 x. d1 Q& [; o5 Y7 I        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
: ?- R2 l/ p: J; E0 P        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
- I7 v. V' ]- p        Dim direction1 As Direction
* c0 p* C2 z7 k: ?" Z) W        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
! q1 }: S9 T; Z) |/ k4 [7 B        block2.TransformMotion.DistanceVector = direction1  '移动方向
, A/ l2 v; l1 b2 @9 b9 k& Z
        block2.NumberOfCopies = "3"   '移动数量
/ ^5 u# w  ^) B9 j4 r3 N6 h1 x, I8 H
! j* Q" A7 {" N  t$ C        Dim nXObject1 As NXObject
" H' x. n5 x7 u9 m        nXObject1 = block2.Commit()

上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）

) W5 b" {1 }, o0 }5 x3 L: Y