---

Hallo zusammen,

ich möchte mit einem Makro Bauteilen ihre Konstruktionstabellen zuweisen. Der Pfad geht durch regelmäßiges Copy&Paste verloren.
Für ein Bauteil klappt das ganze gut. Jetzt möchte ich das Makro auf alle Catparts in einem Ordner erweitern, scheitere allerdings an der For-Schleife. Gibt es eine Möglichkeit die Anzahl der Parts in dem Ordner zu zählen?

Hier mal mein Code soweit:

Sub CATMain()

Dim documents1 As Documents
Dim partDocument1 As PartDocument
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Dim part1 As Part
Dim relations1 As Relations
Dim designTable1 As DesignTable

'Auswahldialog anzeigen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1, 17)
Folder = BrowseDir.Items().Item().Path

For I = 1 To Folder.Files.Count

    Set documents1 = CATIA.Documents
    Set partDocument1 = documents1.Open(Folder & "\Kraftstofftank.CATPart")
    Set part1 = partDocument1.Part
    Set relations1 = part1.Relations
    Set designTable1 = relations1.Item("Parameter_Kraftstofftank_1")

    part1.Update

    Set partDocument1 = CATIA.ActiveDocument

    partDocument1.Save

    partDocument1.Close

Next

End Sub

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

---

Servus
Du könntest doch in der For-Schleife, vor dem Öffnen des Dokuments die Dateierweiterung auswerten (If-Verzweigung)

Gruß
Bernd

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

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

---

Hallo Bernd,

erstmal vielen Dank für die schnelle Antwort mit der if-Schleife. Das probiere ich aus.
Mein Problem ist gerade leider das For selbst. Als Fehlermeldung zu dem Folder kommt "invalid qualifier".

Sub CATMain()

Dim documents1 As Documents
Dim partDocument1 As PartDocument
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Folder As String
Dim part1 As Part
Dim relations1 As Relations
Dim designTable1 As DesignTable

'Auswahldialog anzeigen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1, 17)
Folder = BrowseDir.Items().Item().Path

For I = 1 To Folder.Files.Count
If InStr(File.Name, ".CATPart") <> 0 Then
     
    Set documents1 = CATIA.Documents
    Set partDocument1 = documents1.Open(Folder & "\Kraftstofftank.CATPart")
    Set part1 = partDocument1.Part
    Set relations1 = part1.Relations
    Set designTable1 = relations1.Item("Parameter_Kraftstofftank_1")

    part1.Update

    Set partDocument1 = CATIA.ActiveDocument

    partDocument1.Save

    partDocument1.Close
End If
Next

End Sub

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

---

Servus
Ich würde das Makro so aufbauen (nur das öffnen eingebaut):

Code:

---

Sub CATMain()

Dim documents1 As Documents
Dim partDocument1 As PartDocument
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Folder As Folder
Dim part1 As Part
Dim relations1 As Relations
Dim designTable1 As DesignTable
Dim File As File

Set documents1 = CATIA.Documents

'Auswahldialog anzeigen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1, 17)
If BrowseDir Is Nothing Then
    'Es wurde Abbrechen gedrückt
    Exit Sub
End If

Set Folder = CATIA.FileSystem.GetFolder(BrowseDir.self.Path)

For Each File In Folder.Files
    If InStr(File.Name, ".CATPart") <> 0 Then
        Set partDocument1 = documents1.Open(File.Path)
    End If
Next

End Sub

---

Gruß
Bernd

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

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

---

Hallo,

ich denke das Problem ist, das du die Variable "Folder" als String definiert hast und dann versuchst mit Folder.Files.Count die Anzahl der Dateien zu erhalten.

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

---

Vielen Dank, Bernd! Jetzt funktioniert es  
Nur beim Speichern hab ich noch ein Problem.  Es gibt keinen Fehler, aber das Änderungsdatum bleibt gleich und damit wird die neue Verknüpfung nicht gespeichet. Weiß jemand warum?

Code:

---

Sub CATMain()

Dim documents1 As Documents
Dim partDocument1 As PartDocument
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Folder As Folder
Dim part1 As Part
Dim relations1 As Relations
Dim relations2 As Relations
Dim designTable1 As DesignTable
Dim designTable2 As DesignTable
Dim File As File

Set documents1 = CATIA.Documents

'Auswahldialog anzeigen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1, 17)

'Es wurde Abbrechen gedrückt
If BrowseDir Is Nothing Then
    Exit Sub
End If

Set Folder = CATIA.FileSystem.GetFolder(BrowseDir.self.Path)

'Alle Dateien im Ordner durchgehen
For Each File In Folder.Files

    'Alle CATParts bearbeiten
    If InStr(File.Name, ".CATPart") <> 0 Then
        Name_Length = InStr(File.Name, ".CATPart")
        Name = Left(File.Name, Name_Length - 1)
        Set partDocument1 = documents1.Open(File.Path)
        Set part1 = partDocument1.Part
       
        'Abfrage nach erster Konstruktionstabelle und Zuweisung
        If relations1exist Then
            Set relations1 = part1.Relations
            Set designTable1 = relations1.Item("Parameter_" & Name & "_1")
        End If
       
        'Abfrage nach zweiter Konstruktionstabelle und Zuweisung
        If relations2exist Then
            Set relations2 = part1.Relations
            Set designTable2 = relations2.Item("Parameter_" & Name & "_2")
        End If
       
        'Part aktualisieren, speichern und schließen
        part1.Update
        Set partDocument1 = CATIA.ActiveDocument
        partDocument1.Save
        partDocument1.Close
       
    End If
Next

End Sub

---

[Diese Nachricht wurde von Nurium am 30. Jul. 2014 editiert.]

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

---

Servus
Hast du überhaupt was im Part geändert? Wenn nicht wird AFAIK das Dokument auch nicht gespeichert. (ggf muss du ein Speichern durch eine Änderung erzwingen)

Gruß
Bernd

PS: Die Zeile "Set partDocument1 = CATIA.ActiveDocument" kann entfallen.

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

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

---

Hallo,

so wie ich das sehe, veränderst du nichts an dem Part, sondern erzeugst bis hierhin nur Objekte, an die du etwas übergibst. Den Inhalt veränderst du aber nicht.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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