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

lzhyi

        'NXOPEN创建方块体的方法
0 Y# E3 f/ F6 O8 n3 H& [6 E6 g, g        Dim block1 As Features.BlockFeatureBuilder
: D" G; }( W; T2 J( k        Dim point1 As Double = 6
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
( c: O% r3 C' L- ]% L6 ]; s        Dim feature1 As Features.Feature
        feature1 = block1.CommitFeature()
' W  s: Y. [6 L0 N; y4 S) J- E% I
- e2 J( u) t) ^  {! w, L  S
% w' M: s3 B% I7 y. w" ~! C        '以下是移动体
        Dim block2 As Features.MoveObjectBuilder
, K+ j* W  d# ^9 A! m4 h        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
5 H5 N. a- l3 n' n; K# @$ I- W
        block2.ObjectToMoveObject = Add(block1)  '要移动的体

        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
& v+ u! w- ?/ R- X8 |( z7 ~2 n/ c        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)
        block2.TransformMotion.DistanceVector = direction1  '移动方向

        block2.NumberOfCopies = "3"   '移动数量
% B& Q8 S% D, x7 m7 i
        Dim nXObject1 As NXObject
6 F# s( {# d, l6 F! F- ^1 h; K        nXObject1 = block2.Commit()
( `+ `) @7 a" n
' F2 k. B7 k; N上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
4 b% U( T8 ^* ]- O! u! j- E: m& v
4 o* Q& P. x' H* n/ U