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

lzhyi

        'NXOPEN创建方块体的方法
2 p2 K. P0 h" X& |        Dim block1 As Features.BlockFeatureBuilder
- H1 K3 |6 v1 d/ U9 x6 T        Dim point1 As Double = 6
1 O1 _$ H  g1 o( |7 @        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
0 e: }' w, g- k* Y. ~4 c! H+ B        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
: I5 m% q3 s+ J* w        feature1 = block1.CommitFeature()
- }5 @1 A; [! |; Z
) `( N! |9 h/ G2 b2 d7 ?! A3 s! y
        '以下是移动体
: j. G' t- q. N! j7 \- G. q        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
1 U' L. s- m6 z! _* O0 i        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
, B1 b+ h' }) L8 u/ N$ T' P# F
/ B" |) R4 R9 k: M        block2.ObjectToMoveObject = Add(block1)  '要移动的体
! q( j% ]: }8 ^6 U# u9 {
5 _6 ]6 r/ V! ?- a: t$ j        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
0 p1 s/ ^; m3 @6 Y& v# _        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
& W% B# T* Z! A3 \' o6 l8 b        block2.TransformMotion.DistanceVector = direction1  '移动方向
3 n3 c8 Y  d0 n' b7 h
        block2.NumberOfCopies = "3"   '移动数量
1 @) N/ u9 B! H$ Y
        Dim nXObject1 As NXObject
9 \8 Z/ R- W% U2 W        nXObject1 = block2.Commit()
5 d0 o$ }( ?; a* {  n! N7 K
3 ~/ q$ u& S" ^/ X- _上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）