---

2018-07-2711_24_40-CATIAV5_BMWR26SP3CA-Rel.17.20Environment_supportedbyCENITAG-F44_PR.jpg

Hallo zusammen,
ich habe ein Geometrisches Set mit vielen Unter-Sets, die alphabetisch, bzw aufsteigend (0-10 z.B.) geordnet werden müssen. Händisch will ich sie nicht ordnen.
Automatisch sortieren funktioniert leider nicht. Auch ein passendes Makro habe ich nicht gefunden.

Gibts hierfür eine Lösung/Makro?

Vielen Dank.

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

---

Hallo,

solange die Abhängigkeiten der in den einzelnen GeoSets enthaltenen Geometrie nicht in andere GeoSets referenzieren, könnte es mit Ausschneiden und Einfügen gehen. Ansonsten sehe ich eher schwarz, bzw. viel zu aufwändig.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Die Sets dienen eigentlich nur zur Information und sind leer.
Nur die Reihenfolge im Baum soll alphabetisch geordnet werden.

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

---

na dann sollte es möglich sein da ein Makro für zu schreiben.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Hallo

Wenn sie lehren sind, Ich wurde schon existierte Names ins Tabelle auslesen, sortieren mit z.B. BubbleSort script, alles löschen, und die Struktur neu erstellen...  

Grüß

Lukas

[Diese Nachricht wurde von Sylas am 27. Jul. 2018 editiert.]

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

---

Hallo,

siehe hier:
https://ww3.cad.de/foren/ubb/Forum137/HTML/004978.shtml

du kannst dieses Makro so umschreiben, dass deine Erwartungen erfüllt werden.

[Diese Nachricht wurde von imation1999 am 27. Jul. 2018 editiert.]

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

---

Das Script ist nur für Parts in einem Produkt oder?
Ich habe leider nicht allzu viel Ahnung von Makroprogrammierung.

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

---

Hallo,

na wenn Sie leer sind benenn Sie doch einfach um. Sollte am einfachsten sein.

mfG
Mario

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

Evtl. so:

Code:

---

Option Explicit

Sub CATMain()

Dim MyDocument      As Document
Dim MyPart          As Part
Dim MyHybBodies    As HybridBodies
Dim MyHybBody      As HybridBody
Dim i              As Integer
Dim z              As Integer
Dim MyNames()      As String
Dim MyName          As String

'Allgemeines
Set MyDocument = CATIA.ActiveDocument
Set MyPart = MyDocument.Part
Set MyHybBodies = MyPart.HybridBodies

'Auslesen
ReDim MyNames(MyHybBodies.Count - 1)
For i = 1 To MyHybBodies.Count
    Set MyHybBody = MyHybBodies.Item(i)
    MyNames(i - 1) = MyHybBody.Name
Next

'Sortieren
For z = UBound(MyNames) - 1 To LBound(MyNames) Step -1
    For i = LBound(MyNames) To z
        If LCase(MyNames(i)) > LCase(MyNames(i + 1)) Then
            MyName = MyNames(i)
            MyNames(i) = MyNames(i + 1)
            MyNames(i + 1) = MyName
        End If
    Next i
Next

'Umbenennen
For i = 1 To MyHybBodies.Count
    Set MyHybBody = MyHybBodies.Item(i)
    MyHybBody.Name = MyNames(i - 1)
Next

End Sub

---

mfG
Mario

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

oder kürzer:

Code:

---

Option Explicit

Sub CATMain()

Dim MyDocument      As Document
Dim MyPart          As Part
Dim MyHybBodies    As HybridBodies
Dim i              As Integer
Dim z              As Integer
Dim MyName          As String

'Allgemeines
Set MyDocument = CATIA.ActiveDocument
Set MyPart = MyDocument.Part
Set MyHybBodies = MyPart.HybridBodies

'Bearbeiten
For z = MyHybBodies.Count To 1 Step -1
    For i = 1 To z - 1
        If LCase(MyHybBodies.Item(i).Name) > LCase(MyHybBodies.Item(i + 1).Name) Then
            MyName = MyHybBodies.Item(i).Name
            MyHybBodies.Item(i).Name = MyHybBodies.Item(i + 1).Name
            MyHybBodies.Item(i + 1).Name = MyName
        End If
    Next i
Next

End Sub

---

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

Achso, hab grad auf dein Bild gesehen das es ein UntergeometricalSet ist. Dann so:

Code:

---

Option Explicit

Sub CATMain()

Dim MyDocument      As Document
Dim MyPart          As Part
Dim MyHybBodies    As HybridBodies
Dim i              As Integer
Dim z              As Integer
Dim MyName          As String

'Allgemeines
Set MyDocument = CATIA.ActiveDocument
Set MyPart = MyDocument.Part
Set MyHybBodies = MyPart.HybridBodies.GetItem("Externe Daten").HybridBodies

'Bearbeiten
For z = MyHybBodies.Count To 1 Step -1
    For i = 1 To z - 1
        If LCase(MyHybBodies.Item(i).Name) > LCase(MyHybBodies.Item(i + 1).Name) Then
            MyName = MyHybBodies.Item(i).Name
            MyHybBodies.Item(i).Name = MyHybBodies.Item(i + 1).Name
            MyHybBodies.Item(i + 1).Name = MyName
        End If
    Next i
Next

End Sub

---

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

Fehler.jpg

Bringt bei mir leider einen Fehler...

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

---

Hallo,

mach doch mal aus Next i einfach ein Next.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Klasse funktioniert.
Vielen Dank euch zwei!

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

---

Sobald eine tote Fläche drin ist wird diese nicht mit verschoben.
Kann man das nicht einfach über die "Kinder neu ordnen" Funktion ablaufen lassen im Makro? Also dass dort hin und hergeschoben wird bis es alphabetisch ist.

Allgemein ein Makro wäre toll, wo man das Fenster Kinder neu ordnen öffnet und in diesem Fenster dann alles geordnet wird.

[Diese Nachricht wurde von olleiCAD am 07. Aug. 2018 editiert.]

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

---

Hallo,

also wenn ich mich recht erinnere hattest du gesagt das die GeoSets leer sind. Jetzt doch nicht?

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Servus

Zitat:

---

Allgemein ein Makro wäre toll, wo man das Fenster Kinder neu ordnen öffnet und in diesem Fenster dann alles geordnet wird.

---

und gerade dieser Ansatz ist sehr komplex (per WinAPI "Mausklicks" nachstellen.
Pass dir doch einfach dieses Makro zum ordnen von Bodies an deine Bedürfnisse an.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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