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

lzhyi

        'NXOPEN创建方块体的方法
        Dim block1 As Features.BlockFeatureBuilder
+ A: }+ ]/ B9 n, D' H" v! ~/ i        Dim point1 As Double = 6
) q# K+ m" ?' ~4 X# o8 @6 X+ m        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
; L8 W  w& F( m' l8 d) z) a        Dim feature1 As Features.Feature
* Z: R0 k* C5 L        feature1 = block1.CommitFeature()
, d4 R/ F# }' _

        '以下是移动体
; j$ o& R* L- j0 e        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
% m9 ?0 r/ \/ O& D        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
* f) y; ]/ H2 S* D% f  N( X" X
1 M/ f* |# U6 k& @        block2.ObjectToMoveObject = Add(block1)  '要移动的体

* Y! c$ J# r2 R7 z        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
4 W3 z2 J, Y- N: e- l; n        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
        Dim direction1 As Direction
3 n7 H6 ?3 c+ \$ N* \        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

$ k* H$ G; n) f0 m* u$ v        block2.NumberOfCopies = "3"   '移动数量
9 w6 Z; b9 N( Q, V' v7 {
+ H$ R. Q5 q+ r9 Q9 ^" P        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()
$ y" s8 i" q$ f3 O) x3 c
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）