---

Hallo Ihr,

ich würde gerne die "Reorder"-Funktion aus dem PartDesign in ein Makro reinpacken. Könnt Ihr mir vielleicht weiterhelfen wie ich das realisieren kann? Die Makroaufzeichnung gibt in diesem Fall mal wieder nix her :-(

Danke schon mal
Gruß Alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Alex,

am gleichen Problem habe ich mir auch schon die Zähne ausgebissen. Ich habe versucht das Problem mit dem Befehl: AppendHybridShape zu lösen.
Leider habe ich es damit nur geschafft im Makro erzeugte Elemente an einen OpenBody zu hängen.
Elemente aus einer Selektion konnte ich bis jetzt nicht in einen neuen Körper verschieben.
Ich habe immer einen "Typenkonflikt" bekommen. Ich habe da schon unzählige Varianten versucht, aber keine lief fehlerfrei.
Die Makroaufzeichnung funktioniert leider nur sehr lückenhaft. Bei diesem Problem ist sie keine Hilfe. Auch die Doku spart mit Beispielen bzw. Hinweisen, was die Funktion genau kann und was nicht.
Wenn als irgendwer einen guten Tipp hat ist mir das auch ein paar Punkte wert.

------------------
Gruß Michael B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

siehe auch http://ww3.cad.de/foren/ubb/Forum137/HTML/001560.shtml

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP