Vba: Копирование Sketch`а

[Russkij Drakon 0]

Нужно с помощью макроса в part'е скопировать sketch из одной плоскости в другую...

VBA выдал макрос:

Sub CATMain()

Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection

Set selection1 = partDocument1.Selection

selection1.Clear

Dim part1 As Part

Set part1 = partDocument1.Part

Dim bodies1 As Bodies

Set bodies1 = part1.Bodies

Dim body1 As Body

Set body1 = bodies1.Item("PartBody")

Dim sketches1 As Sketches

Set sketches1 = body1.Sketches

Dim sketch1 As Sketch

Set sketch1 = sketches1.Item("Sketch.3")

selection1.Add sketch1

selection1.Copy

Set partDocument1 = CATIA.ActiveDocument

Dim selection2 As Selection

Set selection2 = partDocument1.Selection

selection2.Clear

Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = body1.HybridShapes

Dim planarFace1 As PlanarFace

Set planarFace1 = hybridShapes1.GetBoundary("Selection_RSur:(Face:(Brp:(GSMPlane.1);None:();Cf9:());GSMPlane.1;Z0")

selection2.Add planarFace1

selection2.Paste

End Sub

При запуске, на строчке "selection2.Add planarFace1" выдаёт "Method "Add" of object "selection" failed."

А переменная "planarFace1 = Nothing"

Как это исправить?

[MArtmath 0]

Пойдет чтоли?