---

Hallo zusammen,

ich bin hier schon länger im Forum unterwegs und habe jede Menge wertvoller Information finden können. Da dies mein erstes Posting ist, zuallererst mal ein großes Dankeschön in die Runde!

Ich hatte das Problem, dass nach Anwendung der Funktion „Delete Useless Elements“ regelmäßig ziemlich viele (verschachtelte) leere Geosets übrigbleiben, die ich ordnungshalber gelöscht haben wollte. Dazu habe ich mal versucht ein eigenes Skript zusammenzubasteln, das auch ganz gut funktioniert.

Hat jemand eine Idee, wie das ganze eleganter geht, ich meine ohne umständlich über String-Funktionen neue Pfade erzeugen zu müssen?

Ich freue mich schon mal auf Feedback!
Gruß, Jorgosch

Hier das Skript:

Code:

---

'Makro zum Entfernen leerer Geosets

'-------------------- DEKLARATION GLOBALE VARIABLEN----------------------------

Dim part1 As Part
Dim GeoSelection As Selection

'-----------------------------------------------------------------------------
'----------------------------HAUPTBLOCK---------------------------------------
'-----------------------------------------------------------------------------

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies

Set GeoSelection = partDocument1.Selection
GeoSelection.clear

strPfad = "part1"
strPfadAdd = ""
strPfadCount = ""
strPfadPass = ""
strPfadNew = ""
iNbDeletedGeoSets = 1
iNbDeletedGeoSetsAbsolut = 0

'Schleife wird so oft wiederholt, bis keine leeren GeoSets mehr vorhanden sind
Do
deepScan strPfad
iNbDeletedGeoSets = GeoSelection.Count
iNbDeletedGeoSetsAbsolut = iNbDeletedGeoSetsAbsolut + iNbDeletedGeoSets
if (iNbDeletedGeoSets > 0) Then
  GeoSelection.Delete
End If
strPfad = "part1"
Loop Until iNbDeletedGeoSets=0

part1.Update()

Box1 = MsgBox ("Es wurde(n) " & iNbDeletedGeoSetsAbsolut & " leere GeoSets gelöscht.", 64)

End Sub

'------------------------------------------------------------------------------
'--------------------------FUNKTIONEN-------------------------------------
'------------------------------------------------------------------------------

'----------------rekursiver Baumdurchlauf mit Löschfuntkion--------------------

Function deepScan (strPfadPass As String) As String

strPfadCount = strPfadPass + ".HybridBodies.Count"
strPfadAdd = strPfadPass + ".HybridBodies.Item("

for i =1 to eval(strPfadCount)

strPfadNew = strPfadAdd + CStr(i) + ")"
Set hbGeoSet = eval(strPfadNew)

iElements=hbGeoSet.HybridShapes.Count + hbGeoSet.HybridBodies.Count + hbGeoSet.HybridSketches.Count

if (iElements = 0) then
GeoSelection.Add hbGeoSet
Else
deepScan strPfadNew
End If
Next
End Function

---

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

---

Servus
Hier findest du eine weitere Möglichkeit. (sollte einfacher sein)

Gruß
Bernd

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

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

---

Wow, das war eine schnelle Antwort, danke Bernd!

Bei dem verlinkten Skript ist offensichtlich die Search-Funktion der Schlüssel, da muss ich mich aber zuerst aufschlauen.

Kann es sein, dass es trotzdem ein Problem bleibt, wenn ein geometrischen Set (ohne Geomtrie) ein leeres geometrisches Set als Kind hat, also quasi ein Baum aus leeren Geosets. Den Baum möchte ich ja auch komplett weghaben?

Grüße,
Jorgosch

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