Hallo
Probier's mal mit Ausschneiden -> einfügen (cut -> paste), d.h. den zu verschiebenden Teil des Strkturbaums ausschneiden und an der gewünschten Stelle einfügen.
z.B.:
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
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("Pressboden")
Dim orderedGeometricalSets1 As OrderedGeometricalSets
Set orderedGeometricalSets1 = body1.OrderedGeometricalSets
Dim orderedGeometricalSet1 As OrderedGeometricalSet
Set orderedGeometricalSet1 = orderedGeometricalSets1.Item("test")
selection1.Add orderedGeometricalSet1
selection1.Cut
Set partDocument1 = CATIA.ActiveDocument
Dim selection2 As Selection
Set selection2 = partDocument1.Selection
selection2.Clear
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim hole1 As Shape
Set hole1 = shapes1.Item("Bohrung.4")
selection2.Add hole1
selection2.Paste
End Sub
Hier wird das geordnete geometrische Set "Test" ausgeschnitten und nach "Bohrung.4" im Strukturbaum wieder eingefügt.
Tip: Hier funktioniert auch die Aufzeichnungsfunktion!!!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP