---

Hallo Forum!

Problem 1:
Ich möchte in Catia ein Makro erstellen (VBA), oder Catia per VBA ansteuern (geht auch aus Excel?). Immer wenn ich dazu in Catia eine Makrobibliothek öffnen oder anlgegen möchte, kommt ein Fehler, dass VBA nicht richtig installiert sei. Nach einiger Recherche habe ich folgendes herausgefunden:
1) Catia V5 R21 ist nicht zu VBA7, wie es mit unserem MS Office2010 ausgeliefert wird kompatibel. Das wäre erst ab R24 der Fall.
2) Der Support von Cenit hat meine Ahnung bestätigt, dass ich VBA6 benötige
3) Zusätzlich scheint Catia (da über Cenit angesteuert) nicht lokal registriert zu sein (was akaik eine weitere Fehlerquelle sein kann).
4) Der "Tick" Catia manuell zu registrieren über CNEXT.exe -register geht nicht, da ich mit der cmd-Zeile nicht auf den Serverpfad komme...

Kann ich VBA6 "nachinstallieren"? Laufen dann VBA6 und VBA7 parallel?
Kann ich Catia auch mittels VBA7 Makro aus Excel ansprechen?
Macht es Sinn, evtl. komplett auf VB.net zu wechseln?

Problem 2:

Eigentlich möchte ich gerne mittels VBA ein Makro erstellen, welches ein (bereits geöffnetes) CATproduct elementeweise durchgeht und mir in Abhängigkeit davon, ob es sich um ein CATproduct oder ein CATpart am aktuellen Punkt der Baumstruktur handelt, verschiedene Werte zurückgibt.
Als CATproduct den PartName und PartDefinition, als CATpart den Partname, Partdefinition, Oberfläche und Volumen.
Die abgefragten Werte sollen dann in ein Excel übertragen werden, wo sie mit weiteren Makros nachbearbeitet werden.

Da meine VBA-Kenntnisse nur rudimentär sind, habe ich mir aus allerlei Codeschnipseln was zusammengebastelt:
_____
Sub CATMain()
version = "1.0"
makroname = "Catia Datenexport"

'Excel instanzieren
Dim Excel As Object
Set Excel = GetObject(, "Excel.Application")

'Abfangen Fehler
If Err.Number <> 0 Then
            Err.Clear
            Set Excel = CreateObject("Excel.Application")
Else
            Err.Clear
            MsgBox "Please note you have to close Excel", vbCritical
            Exit Sub
End If

'Excel Variablen Deklarieren

Set myworkbook = Excel.workbooks.Add

Excel.Worksheets.Add After:=Sheets(Sheets.Count)
Excel.ActiveWorksheet.Name = "Catia-Daten"

Excel.Application.Visible = True

' Datenübertragung an Excel

'Excel.ActiveWorksheet.Range...???
'Zellen formatieren
Excel.Range("A:A").ColumnWidth = 5
Excel.Range("B:B").ColumnWidth = 30
Excel.Range("C:L").ColumnWidth = 15
Excel.Range("A:L").Font.Name = "Arial"
Excel.Range("A:L").Font.Size = 10

'mehr Zellenformatierung
Excel.Range("1:1").Font.Bold = True
Excel.Range("1:1").RowHeight = 20
Excel.Range("1:1").Font.Size = 11
   
'Erste Reihe
Excel.Cells(1, 1) = "Materialnummer"
Excel.Cells(1, 2) = "Teilenummer"
Excel.Cells(1, 3) = "Name"
Excel.Cells(1, 4) = "Fläche"
Excel.Cells(1, 5) = "Volumen"
Ecxel.Cells(1, 6) = "Gewicht"

'CATIA Initialisierung
Dim objSPAWkb
Set objSPAWkb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Dim Dkmnt As Document
Set Dkmnt = CATIA.ActiveDocument

Dim partDoc As Object
Set partDoc = CATIA.ActiveDocument.Part

Dim productDoc As Object
Set productDoc = CATIA.ActiveDocument.Product

Dim bodyNumber As Integer
bodyNumber = productDoc.Products.Count

Dim RwNum As Integer
RwNum = 1

'Schleife durch alle Baugruppen, Unterbaugruppen und Einzelteile

Dim i As Integer

'Zugriff auf Metadaten eines CATParts oder CATProducts über das Ankerobjekt "Product" der Klasse "PartDocument"

'Schleife durch alle Komponenten

    For i = 1 To CATIA.ActiveDocument.Product.Count
   
    'Abfrage nach Part oder Product und Schreiben der Werte in Excel
    'Eventuell besser über CASE zu regeln...
   
        'Select Case [CATIA.Documents.Item(i).Name]
        'Case (Right(CATIA.Documents.Item(i).Name, 10) = "CATProduct")
        If (Right(CATIA.Documents.Item(i).Name, 10) = "CATProduct") Then
       
        'Deklaration der Objekte
            Dim prod1 As Product
            Dim ProdName As String
            Dim ProductNumber As String
           
            Set prod1 = CATIA.Documents.Item(i).Product
        'Produktnamen abfragen
            ProdName = prod1.Definition
        'Produktnummer abfragen
            ProdNumber = prod1.PartNumber
           
        'Element unsichtbar setzen
            prod1.SetShow catVisPropertyNoShowAfter
       
        'Datenübergabe an Excel
            'Excel.Cells(RwNum + 1, 1) = i
            Excel.Cells(RwNum + 1, 2) = ProdNnumber
            Excel.Cells(RwNum + 1, 3) = ProdName
           
            RwNum = RwNum + 1
       
        'Case (Right(CATIA.Documents.Item(i).Name, 7) = "CATPart")
        ElseIf (Right(CATIA.Documents.Item(i).Name, 7) = "CATPart") Then
       
        'Deklaration der Objekte
            Dim part1 As Part
            Dim PNumber As String
            Dim PName As String
            Dim PArea As Object
            Dim PVolume As Object
            Dim PMass As Object
           
        'Platzhalter auf das i-te Element setzen
            Set part1 = CATIA.ActiveDocument.Item(i)
        'get "Part Number"
            PNumber = part1.PartNumber
        'get "Definition"
            PName = part1.Definition
        'get "volume"
            PArea = part1.Analyze.WetArea
        'get "surface"
            PVolume = part1.Analyze.Volume
        'get "weight"
            PWeight = part1.Analyze.Mass
           
        'Element unsichtbar setzen
            part1.SetShow catVisPropertyNoShowAfter
           
        ' Row two
            Excel.Cells(RwNum + 1, 1) = i
            Excel.Cells(RwNum + 1, 2) = PName
            Excel.Cells(RwNum + 1, 3) = PNumber
            Excel.Cells(RwNum + 1, 4) = PArea
            Excel.Cells(RowNum + 1, 5) = PVolume
            Ecxel.Cells(RowNum + 1, 6) = PMass
       
            RwNum = RwNum + 1
           
        'Case Else
            'Next
        End If
        'End Select
       
    Next i

Excel.ActiveWorkbook.Name = Excel.Cells(1, 3).Value

'User Interface: Save result?
If MsgBox("Fertig! Ergebnis speichern?" + makroname + "" + version, _
    vbYesNo Or vbQuestion, "Sicherung") = vbYes Then
    Dim Erfolg As Boolean
    Erfolg = Excel.Application.Dialogs(xlDialogSaveAs).Show(arg1:=Excel.ActiveWorkbook.Name) 'file name = product name
    If Not Erfolg Then
    MsgBox "Keine Datei Ausgewählt. Nicht gespeichert!"
    End If
End If

MsgBox "Makro ist beendet", 64, makroname + "" + version

End Sub
_____

[Diese Nachricht wurde von felix302 am 10. Okt. 2018 editiert.]

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

---

Servus Felix

Willkommen im Forum.
Wo hängst du bei deinem Problem 2?
Deine Schleife über alle Elemente der Baugruppe scheint noch etwas "schräg" zu sein.
Hier ein kleines Beispiel:

Code:

---

Sub CATMain()

dim oRootDocument as ProductDocument
dim oRootProduct as Product
dim oChildProduct as Product

Set oRootDocument = Catia.ActiveDocument
Set oRootProduct = oRootDocument.Product

'ist die Baugruppe leer?
if oRootProduct.Products.Count <> 0 then
    'Schleife über alles Instanzen/Exemplare
    for i = 1 to oRootProduct.Products.Count
        Set oChildProduct = oRootProduct.Products.item(i).ReferenceProduct
        'Dokumententyp auswerten
        if TypeName(oChildProduct.Parent) = "PartDocument" then
            MsgBox "PartDoc"
            'weitere Code oder Aufruf einer Unterroutine für ein CATPart
        elseif TypeName(oChildProduct.Parent) = "ProductDocument" then
            MsgBox "ProductDoc"
            'weitere Code oder Aufruf einer Unterroutine für ein CATProduct
        end if 
    next   
end if

End Sub

---

Gruß
Bernd

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

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

---

Servus,

zu Problem 1:

Versuch mal folgendes. Ich hab es mal im Forum gefunden und es hat super funktioniert:

Installiere folgende Datei als Admin neu
S:\software\_CAx\CATIA\V5R21_64_win\VBA\vba6.msi

Viel Erfolg und viele Grüße,
Marcel

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

---

Hallo Felix,

du musst einfach nur von den CATIA Installations-CD's aus dem VBA - Verzeichnis dort beide .msi Dateien (vba6.msi und vbaof11.msi) installieren.

Dann hast du letztendlich wieder die 6.5.1053 Version installiert.
Für Office läuft weiterhin vba 7.0 damit.

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

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

CATIA - eine Laune der Natur ...

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

---

Hallo und sorry für die späte Rückmeldung, ich war erstmal mit einem anderen Projekt beshcäftigt.

Einfach von der CD installieren kann ich gar nichts, da unser Catia von Cenit zur Verfügung gestellt wird, über einen Server läuft und lediglich lokal ausgeführt wird. Daher muss ich alles über unsere IT machen lassen (die sich mitunter etwas anstellt).

Aber die Info, dass VBA6 und 7 parallel laufen können ist schonmal sehr hilfreich.

@bernd
Da CATvba bei mir momentan (noch) nicht läuft kann ich den Code nichtmal testen und weiß daher auch nicht, er hängt. Ich wusste auch nicht, dass man den Dateityp mit TypeName direkt ansprechen kann und habe daher die "komplierte" Lösung gewählt. Ansonsten sieht die Schleife recht ähnlich, aber du nutzt jedes mal das oChildProduct als Zeiger auf das aktuelle Produkt(i). Brauchts das?

Beste Grüße
Felix

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

---

Servus Felix

In deinem Code ist ein Mischmasch zwischen Instanzen und Dokumenten innerhalb der Schleife drin.
Die Documents-Collection enthält alle geöffneten Dokumente (auch in einem anderen Fenster oder Zeichnungen usw).
Über die Products-Collection der Baugruppe kommst du an die Exemplare/Instanzen.

Gruß
Bernd

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

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

---

Update:
VBA6 läuft jetzt zumindest, ich kann also meinen Code in der Catiaumgebung bearbeiten (auch wenn das Intellisense nicht immer so toll ist).
Die Registrierung von Catia klappt leider immernoch nicht...

Zu Problem 2:
Ich habe die Schleife mal nach deinem Beispiel angepasst, Bernd. Allerdings bin ich gerade nicht mehr sicher, ob ich damit wirklich durch die gesamte Produktstruktur komme, oder einfach in der obersten Ebene bleibe. Hier steht was von rekursivem Code, der sich durch die Struktur arbeitet...

Was ich gerade auch nicht verstehe:
  if TypeName(oChildProduct.Parent) = "PartDocument"
Warum fragst du nach dem Typename vom Parent, wenn du davor  mit
  Set oChildProduct = oRootProduct.Products.item(i).ReferenceProduct
den Zeiger auf das i-te Item legst?

Viele Grüße
Felix

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

---

Update:
VBA6 läuft jetzt zumindest, ich kann also meinen Code in der Catiaumgebung bearbeiten (auch wenn das Intellisense nicht immer so toll ist).
Die Registrierung von Catia klappt leider immernoch nicht...

Zu Problem 2:
Ich habe die Schleife mal nach deinem Beispiel angepasst, Bernd. Allerdings bin ich gerade nicht mehr sicher, ob ich damit wirklich durch die gesamte Produktstruktur komme, oder einfach in der obersten Ebene bleibe. Hier steht was von rekursivem Code, der sich durch die Struktur arbeitet...

Was ich gerade auch nicht verstehe:
  if TypeName(oChildProduct.Parent) = "PartDocument"
Warum fragst du nach dem Typename vom Parent, wenn du davor  mit
  Set oChildProduct = oRootProduct.Products.item(i).ReferenceProduct
den Zeiger auf das i-te Item legst?

Viele Grüße
Felix

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

---

Servus Felix

Wenn du nicht nur die erste Ebene durcharbeiten willst brauchst du eine Rekursion. Siehe Forensuche (Rekursiv, TreeWalk, ProductScan,...)
Das i-te Element ist die Instanz, das Referenzproduct dann das Product aus dem Dokument aus dem die Product-Instanz stammt (siehe auch Doku) und Parent dann logischer weise das PartDocument oder das ProductDocument.

Gruß
Bernd

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

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

---

Hallo Bernd,

nach einigem Suchen habe ich hier passenden Code gefunden, der für mich nur noch minimale Modifikation benötigt hat.

Nun möchte ich die Schleife weiterhin modifizieren, um nicht immer alle Kinder anzuschauen, sondern selektiver vorzugehen.
Konkret geht es darum, Objekte, die im hide Modus sind zu übergehen:

Code:

---

For Each oChild In oProd.Products
        excelRow = excelRow + 1
        If oChild.VisProperties.GetShow = 1 Then
            If oChild.Products.Count > 0 Then
                'product has children
                If oDict3.Exists(oChild.PartNumber) = False Then
                    oDict3.Add (oChild.PartNumber), "printed"
                    treewalk oChild, excelRow, instalLvl + 1, oDict1.Item(oChild.PartNumber)
                End If
            Else
                If oDict2.Exists(oChild.PartNumber) Then
                    excelRow = excelRow - 1
                Else
                    oDict2.Add (oChild.PartNumber), True
                    WriteToExcel oChild, excelRow, oDict1.Item(oChild.PartNumber), instalLvl + 1
                End If
            End If
        End If
    Next

---

Die dritte Zeile

Code:

---

If oChild.VisProperties.GetShow = 1 Then

---

soll die entsprechende Abfrage realisieren. Allergings bekomme ich immer eine Fehlermeldung 438, dass das Objekt die Methode nicht unterstützt. Hast du eine Idee?

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

---

Servus

VisProperties gibt es nur bei der Selektion (siehe auch Doku).
Du müsstest also das Produkt selektieren. zB (ungetestet)

Code:

---

oSelection.Clear
oSelection.add oChild
If oSelection.VisProperties.GetShow = 1 Then
'hier dein weiterer Code

---

Gruß
Bernd

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

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