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

lzhyi

        'NXOPEN创建方块体的方法
. J( Q! ?$ t4 ~3 V' s9 O+ T' U; L8 x        Dim block1 As Features.BlockFeatureBuilder
4 |/ q/ @; `2 Q1 Y; |! V: d        Dim point1 As Double = 6
, Z+ G$ L; o0 v$ W/ ~& h7 d9 s% r        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()

  h6 j( D% \' n! x/ q) \1 D" U1 J
        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
- G* H. ~4 }3 z( x$ K3 n9 w! g        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

. G7 J4 p( F, \' }* u( T+ z        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
5 J( P. K  T: z; @        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
4 S$ I8 Q7 R& r" m
        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)
        Dim direction1 As Direction
! |+ q/ I; Q7 _( p% a% F        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
. I. ?7 O8 r* g5 j& |# K- u        block2.TransformMotion.DistanceVector = direction1  '移动方向
9 }+ V4 D2 f1 v$ s1 c/ m2 Y/ L
# U8 X( u  u9 h: N; F        block2.NumberOfCopies = "3"   '移动数量

        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()
( V& p/ L, K- G! i( D+ M
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）