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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
        Dim point1 As Double = 6
' F) G9 m4 N8 p        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
6 J& G! C7 {$ r* L* n0 Y        Dim feature1 As Features.Feature
% L7 U- |* a6 Y0 x# w2 c" `3 v' s        feature1 = block1.CommitFeature()

5 C( A+ d! b. }  j0 `8 j/ [
2 b, y# T: h3 t8 m        '以下是移动体
, q, d/ ^+ H! V  L( c8 K; p) D7 a        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
9 Y7 p- g2 F4 e        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

& |, z0 o7 y' f3 L# `0 U; f* e" B& L        block2.ObjectToMoveObject = Add(block1)  '要移动的体
- H- C7 \5 _; H; H1 s& N0 N) ~0 ^3 s9 g
5 y, Y/ V9 ?" S3 N4 b1 @        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
- N5 w. R" C4 e# ]        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
        Dim direction1 As Direction
% k- D* D' R! Y8 B! h& p        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

: ~5 W: Q4 g* Y$ N' Q+ `        block2.NumberOfCopies = "3"   '移动数量
# F, ?: ]* q1 |5 M5 `
        Dim nXObject1 As NXObject
# p/ \. U; L2 W$ @7 Y( H        nXObject1 = block2.Commit()
4 e% `$ X" X8 q3 o
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
. S2 j& b9 N2 c  o3 v2 H: o7 P
& R: g2 P" o. k- y; S