---

Hallo Leute,
ich bin leider nicht so bewandert in Macroprogramierung. Ich hab da immer weider  das Problem das ich allcatparts erstellen muß und dann lösch ich in der #Egel noch einige elemente wieder raus und den rest speichere ich ab. Leider hab ich dann ständig eine Menge leere Bodies und Geosets im Part. Und dann lösch ich sie händisch immer raus. Das ganze wollt ich gern automatiesert machen. Hab zwar schon versucht mit dem Macrorecorder das mal aufzunehmen aber das funktioniert auch irgendwie nicht.
Hab auch schon verschiedene Codes aus dem Netzt ausprobiert doch leider funktionieren die auch nicht und laufen immer auf Fehler.
Ich hoffe mir kann jemand weiterhelfen oder ein paar hilfreiche Tips geben.

Danke schon mal im vorraus.
Gruß CX

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

---

Servus

Hast du das Makro schon auf catia.cad.de angeschaut?

Gruß
Bernd

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

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

---

Hallo Bernd,

auf der seite war ich schon lange nciht mehr. Aber danke, das Macro funktioniert super.

 

Gruß CX

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

---

catiamacrofehler.JPG

Hallo Bernd,
also bei der R19 funktioniert das Macro super. Bei der V5-6 2016 bekomme ich ein Fehler.
der Fehler ist in der Zeile wo oSel gedimt wird. "Dim oSel As Selection"
Fehlermeldung lautet:
Compile error:
CanŽt find project or library.

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

---

Versuch mal anstelle As Selection
As Object
zu setzen.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

---

Hallo Thomas,

ja das mit Object funktioniert. Aber dann kommt gleich der nächste Fehler be "Dim oDoc As PartDocument"
und bekomme die Fhelermeldung das das Projekt oder die library nicht gefunden wird.
MuŽß ich noch irgendwelche libarys zusätzlich anwählen?

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

---

Zitat:

---

Original erstellt von Creator-X:
Hallo Thomas,

ja das mit Object funktioniert. Aber dann kommt gleich der nächste Fehler be "Dim oDoc As PartDocument"
und bekomme die Fhelermeldung das das Projekt oder die library nicht gefunden wird.
MuŽß ich noch irgendwelche libarys zusätzlich anwählen?

---

Hallo
Versuch mal an deine Referenzen bei Tools/References... gucken. Untick alles, wo "MISSING" steht.

Sorry für schlecht Deutsch

[Diese Nachricht wurde von Sylas am 10. Jan. 2018 editiert.]

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

---

Hallo,

das hab ich gemacht. Leider hat sich nichts geändert. Kann es sein das da mit den VBA Editor was nicht stimmt?
Falsche
Version oder so?

Gruß Marco

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

---

Servus

Werden überhaupt Bibliotheken von CATIA in den Referenzen angezeigt? Sind die wichtigen Bibliotheken aktiviert (in der Liste)?
Hat VBA bei dir schon mal funktioniert?
Schon mal VBA deinstalliert und wieder installiert?

Gruß
Bernd

PS: ggf hilft auch ein "regserver" (Forensuche)

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

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

---

Hallo Bernd,

also die Catia Biblioteken werden in den Ref angezeigt und sind alle aktiviert.Daheim funktioniert es ja auch. In der Arbeit da bekomm ich dann Feghler wenn der Code ausgeführt werden soll obwohl es die gleiche Version ist. Vielleicht liegt es ja am Windof10. Daheim hab ich W7 drauf.
Ist schon komisch. Andere Macros laufen ja auch bei mir in der Arbeit.
Bin ein bissel ratlos.

Gruß Marco

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

---

Zitat:

---

Original erstellt von Creator-X:
Hallo Bernd,

also die Catia Biblioteken werden in den Ref angezeigt und sind alle aktiviert.Daheim funktioniert es ja auch. In der Arbeit da bekomm ich dann Feghler wenn der Code ausgeführt werden soll obwohl es die gleiche Version ist. Vielleicht liegt es ja am Windof10. Daheim hab ich W7 drauf.
Ist schon komisch. Andere Macros laufen ja auch bei mir in der Arbeit.
Bin ein bissel ratlos. 

Gruß Marco

---

Hallo
Hast du deine Makro an andere PC versucht? Startet es?

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

---

Servus Marco

In der Firma habt ihr V5-6 2016? Das müsste ja schon VBA 7 sein.
Wie sieht denn unter VBA 7 so ein Code aus (zB löschen eines Bodies per Makrorekorder aufnehmen)?
Nicht dass sich da was bei den Deklarationen verändert hat

Gruß
Bernd

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

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

---

Hallo, ja macro läuft auf anderen Rechner super. nur nicht in der Arbeit.

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

---

Hallo Gemeinde,
hab hier dieses Makro schon länger in gebrauch, nur funktioniert es nicht mehr wenn ich Hybrid Bodies bei dem Part drinhabe bekomme immer ne Fehlermeldung bei diesem Satz

  For n = oParent.hybridBodies.Count To 1 Step -1

kann mir nicht erklären voran dies liegen kann.
Ohne Hybridbodies funzt es ohne Probleme

Bin leider nicht so fit im ganzen

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

---

Servus

Vielleicht fehlt da eine Abfrage ob überhaupt eine Hybridbody existiert.
Tausch mal die Funktion DelEmptyGeoSets aus (ungetestet):

Code:

---

Function DelEmptyGeoSets(oParent As Object) As Integer
  Dim oHB As HybridBody
  Dim n  As Integer
  Dim i  As Integer
 
  oSel.Clear
  'part-hybrid-bodies
  If oParent.hybridBodies.Count <> 0 then
        For n = oParent.hybridBodies.Count To 1 Step -1
            Set oHB = oParent.hybridBodies.Item(n)
            If oHB.hybridBodies.Count > 0 Then DelEmptyGeoSets oHB  'if set in set re-call
            If (oHB.GeometricElements.Count + oHB.HybridSketches.Count + _
                oHB.HybridShapes.Count + oHB.hybridBodies.Count) = 0 Then
                oSel.Add oHB              'if set is empty
                i = i + 1                  'inc. counter
                'Debug.Print oHB.Name
                oSel.Delete                'delete
                oSel.Clear
            End If
        Next
    End If
    DelEmptyGeoSets = i              'return number of deleted hybridbodies
End Function

---

Gruß
Bernd

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

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

---

FehlerMakro.jpg

Hi Brittmann,
erstmal Dankeschön für Deine Hilfe.
Hab die Funktion ausgetauscht, bekomme jetzt leider die Fehlermeldung.
Häng hier mal das Makro rein.

'---------------------------------------------------------------------------------------
' Module    : modDelEmpty
' Author    : jherzog
' Date      : 23.07.2015
' Purpose  : Delete Empty Bodies and HybridBodies from a CatPart
' Reqs.    : An opened CatPart
'---------------------------------------------------------------------------------------
'
Const strVersion As String = "V1.0"
Const strMacroName As String = "DelEmptyBodies"
Dim oSel As Selection

Sub CATMain()
  Dim oDoc As PartDocument
  Dim oPart As Part
  Dim oBody As Body
  Dim oHB As HybridBody
  Dim n As Integer
  Dim i  As Integer                            'counter for hybridbodies
  Dim j  As Integer                            'counter for bodies
 
  Set oDoc = CATIA.ActiveDocument
  Set oPart = oDoc.Part
  Set oSel = oDoc.Selection
 
  CATIA.RefreshDisplay = False
'---------------------------------------------------------------------------------------
  i = DelEmptyGeoSets(oPart)                  'delete empty 'root' geosets from part

  oSel.Clear
  'Schleife über alle Bodies
  For n = oPart.Bodies.Count To 1 Step -1      'step backwards because of delete
      Set oBody = oPart.Bodies.Item(n)
      i = i + DelEmptyGeoSets(oBody)            'delete empty geosets in body
      If (oBody.Shapes.Count + oBody.hybridBodies.Count + oBody.Sketches.Count = 0) _
        And Not (oBody Is oPart.MainBody) Then 'skip 'PartBody'
        oSel.Add oBody
        j = j + 1                              'inc. counter
'        Debug.Print oBody.Name
        oSel.Delete                            'delete
        oSel.Clear
      End If
  Next
'---------------------------------------------------------------------------------------
  CATIA.RefreshDisplay = True
  oPart.Update
'  DoEvents
  CATIA.StatusBar = "Macro finished."
  MsgBox i & " empty hybridbodies and " & j & " empty bodies found and deleted.", _
      vbOKOnly Or vbInformation, strMacroName & " " & strVersion
End Sub

'---------------------------------------------------------------------------------------
' Procedure : DelEmptyGeoSets
' Author    : jherzog
' Date      : 23.07.2015
' Time      : 15:47
' Languages : VBA 6.5
' V5-Release: V5R19/21
' Purpose  : Delete empty geometric sets from parent
' Parms    : oParent:  Part or Body
' Ret. Value: Number of deleted bodies
'
' Syntax    : DelEmptyGeoSets oBody
'
' Prereqs  : an opened catpart
' Remarks  : checks for sketches, geosets, shapes and geometric elements
'---------------------------------------------------------------------------------------
'Function DelEmptyGeoSets(oParent As Object) As Integer
  Dim oHB As HybridBody
  Dim n  As Integer
  Dim i  As Integer

  oSel.Clear
  'part-hybrid-bodies
  If oParent.hybridBodies.Count <> 0 then
        For n = oParent.hybridBodies.Count To 1 Step -1
            Set oHB = oParent.hybridBodies.Item(n)
            If oHB.hybridBodies.Count > 0 Then DelEmptyGeoSets oHB  'if set in set re-call
            If (oHB.GeometricElements.Count + oHB.HybridSketches.Count + _
                oHB.HybridShapes.Count + oHB.hybridBodies.Count) = 0 Then
                oSel.Add oHB              'if set is empty
                i = i + 1                  'inc. counter
                'Debug.Print oHB.Name
                oSel.Delete                'delete
                oSel.Clear
            End If
        Next
    End If
    DelEmptyGeoSets = i              'return number of deleted hybridbodies
End Function

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

---

Servus

Die Zeile 'Function DelEmptyGeoSets(oParent As Object) ist auskommentiert (das ' am Anfang entfernen)

Gruß
Bernd

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

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

---

FehlerMakro.jpg

Augen auf beim kopieren 
ich hab den `entfernt das Makro läuft jetzt bis zur Zeile 76 und hat dann hier den Fehler

If oParent.hybridBodies.Count <> 0 then

ich kapiers nicht

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

---

Servus

Wie sieht denn dein Strukturbaum aus?
Bei welchem Objekt (das an DelEmptyGeoSets übergeben wird) steigt das Makro aus?

Gruß
Bernd

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

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

---

vorMakro.jpg FehlerMakro.jpg

Sorry für die späte Antwort,
mir ist leider was dazwischen gekommen.
Hab Dir mal schematisch zwei Bilder eingestellt vor ausführung des Makros und bis dahin wo dann die Fehlermeldung kommt.
Die Sets kann er mir löschen, bei den Hybriden bleibt er mir stehen.

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

---

Ach so Brittmann,
hab vergessen zu erwähnen wenn ich keine Hbridbodies habe funzt das Makro ohne Probleme.
Gruß Cimnese

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

---

Servus

Mit HybridBody ist bei Makros eine geometrisches Set gemeint.
Hybrid-Design und Non-Hybrid-Design zu mischen ist eine sehr schlechte Idee.

Gruß
Bernd

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

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