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

lzhyi

        'NXOPEN创建方块体的方法
4 q# p0 i# {# V, ^8 _        Dim block1 As Features.BlockFeatureBuilder
; Q: |: l4 H3 ]% ~  |        Dim point1 As Double = 6
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
        Dim feature1 As Features.Feature
" _& z' F: G; Q- F; b% a        feature1 = block1.CommitFeature()
' C& z3 Y$ m4 X; Q+ m) d

$ J3 _( ^& J. @/ ~        '以下是移动体
- N8 ?5 u. Z' n3 a( w8 I  E        Dim block2 As Features.MoveObjectBuilder
4 h2 x- E' |& e0 Z) k* w        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)

        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
1 ~$ k7 O: K1 P( W% }        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
4 o3 ]  j0 [  r4 C# ^4 S        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal

% X' v; @5 |: p& j  e0 |        block2.ObjectToMoveObject = Add(block1)  '要移动的体
& w  ~7 t. r4 W6 a& w$ T9 g( v
        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
8 l5 r8 T( ?) B1 H2 }) k        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
        Dim direction1 As Direction
% _$ Q/ {' d8 l' J4 }- ^/ H; p9 N) n        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
- T: }1 P# o3 t" U6 `- |        block2.TransformMotion.DistanceVector = direction1  '移动方向
! I$ d7 y+ m- n; ]
4 J) _7 b: W5 `# ~! x3 {2 f        block2.NumberOfCopies = "3"   '移动数量

! F6 S! Q7 o. w. M        Dim nXObject1 As NXObject
; V& j2 [* G5 r0 t7 e. E        nXObject1 = block2.Commit()
1 C' ?  I* v& P, ~
1 w% C+ B9 J' ]5 c! B上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）

1 @( c2 D( d6 f; q- s1 ~