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

lzhyi

        'NXOPEN创建方块体的方法
; T5 D# b2 p8 S' [) k& V8 n: n        Dim block1 As Features.BlockFeatureBuilder
        Dim point1 As Double = 6
8 {* [/ D, [( X1 O1 e        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
, O, Q" u. }! r! B        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
/ P- r! C8 m+ Y

- k  G; i- \2 D: X, S: Q) A        '以下是移动体
, w1 d( |6 B/ N0 h8 g        Dim block2 As Features.MoveObjectBuilder
        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

0 W9 d( H3 g9 f7 s" O& t: T$ H        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

        block2.ObjectToMoveObject = Add(block1)  '要移动的体

/ \: o" c; j( O- Z; B2 z3 B& r        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
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
- H. X& y+ E7 d/ |        block2.TransformMotion.DistanceVector = direction1  '移动方向
7 i# y! V$ `5 x
. A; e7 S) [* s9 U5 W- A/ L        block2.NumberOfCopies = "3"   '移动数量
9 t/ C; M- E+ b+ E- [2 W
7 {) _( Y& E* e+ {6 @( d; I        Dim nXObject1 As NXObject
        nXObject1 = block2.Commit()
2 `% w6 K& p$ j+ A* O+ @5 Y
! \5 K, A/ f; j; c0 h" U# r' q上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
3 `/ \7 o' j/ g& b$ Y$ |0 K( g
4 x- h5 @, W+ I. p