---

Hallo,

Ich bin Anfänger im programmieren, und hoffe auf Hilfe im Forum, damit ich mich langsam in diese Thematik einarbeiten
kann.
Ich möchte gerne Rekursiv durch die Struktur gehen und die Teilenummer mit dem Dateinamen abgleichen.(CATPart+CATProdukt)
BSP.:
Start Situation:
Teilenummer              Dateinamen
Teil123                  Teil.CATPart

Nach dem ausführen des Script

End Situation:
Teilenummer              Dateinamen
Teil123                  Teil123.CATPart

Code:VB
'Teilenummer mit Filename abgleichen
Private Sub CommandButton1_Click()
Dim Datei As String
Dim timestamp

For i = 1 To Produktname.Products.Count

Dim Fehlermeldung
CATIA.DisplayFileAlerts = False
Datei = CATIA.FileSelectionBox("Speicherung", "*.CATPart", CatFileSelectionModeSave)
If Dir(Datei) = "" Then
    CATIA.ActiveDocument.SaveAs (Datei)
Else
    MsgBox "Die Datei wurde nicht gespeichert"
 
End If
End Sub

Hoffe auf eure Hilfe 

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Servus
Also dazu solltest du genügend "Vorlagen" hier im Forum finden: zB hier (als Anregung), ....

Gruß
Bernd

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

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

---

Super Danke bgrittmann,

Der Link war sehr Hilfreich, habe am Wochenende am Code herumgebastelt
sieht glaub ich nicht mehr so schlecht aus.
Dennoch bekomme ich eine Fehlermeldung "Compile error: Variable not defined".
Weiters hab ich unter Tools-> References
Alle Files ausgewählt die mit CATIA anfangen.
fkt leider doch nicht, er bleibt immer bei "pro" stehen.

Code:
'Teilenummer mit Filename abgleichen
Private Sub CommandButton1_Click()
Dim Eingabe As String
Eingabe = InputBox("Bitte geben Sie den Speicher Ort  ein.", "Alle Parts/Products Speichern", Eingabe)

Dim oFileSystem As INFITF.FileSystem
Set oFileSystem = CATIA.FileSystem

Dim oFolder As INFITF.Folder
Set oFolder = oFileSystem.GetFolder(Eingabe)

Dim FileSep As String

    FileSep = oFileSystem.FileSeparator
    Dim i As Long
    Dim j As Variant
    Dim oFile As INFITF.File
    Dim oActiveDoc As DrawingDocument
   
   
    For i = 1 To oFolder.Files.Count
        Set oFile = oFolder.Files.Item(i)
        If Right(oFile.Name, 7) = "CATPart" Then
            Set oActiveDoc = CATIA.Documents.Open(oFolder.Path + FileSep + oFile.Name)
       
        Dim document As document
        Dim splitname As String
       
        Set document = CATIA.ActiveDocument
        splitname = Split(document.Name, ".")
       
    Set pro = document.Product
        pro.PartNumber = splitname(0)

        oActiveDoc.Save
        oActiveDoc.Close
           
     
    End If

    'For i = 1 To oFolder.Files.Count
            Set oFile = oFolder.Files.Item(i)
            If Right(oFile.Name, 10) = "CATProduct" Then
            Set oActiveDoc = CATIA.Documents.Open(oFolder.Path + FileSep + oFile.Name)
       
        'Dim document As document
        'Dim splitname As string
        Set document = CATIA.ActiveDocument
        splitname = Split(document.Name, ".")
        Set pro = document.Product
        pro.PartNumber = splitname(0)

            oActiveDoc.Save
            oActiveDoc.Close
      End If

End Sub

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Servus
Da fehlt wo ein "Dim". zB Dim pro as Prodct
Des weiteren:
- warum deklarierst du ActveDoc als Drawing? (Dim oActiveDoc As DrawingDocument) was passiert wenn dies ein Part/Product ist?

Gruß
Bernd

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

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

---

Hallo Bernd,
Wie kann ich Produkt+Part deklarieren?

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Da Bernd anscheinend im Feierabend ist  :

Dim Part1 As Part  'deklariert Part1 als Part
Dim Product1 As Product  'deklariert Product1 als Product

Hier noch ein kleines Codebeispiel, wie du die verschiedenen Dokumenttypen erkennen/abfangen kannst:

_______________________________

Sub CATMain()

On Error Resume Next

Dim oActiveDocument As document
Set oActiveDocument = CATIA.ActiveDocument

If oActiveDocument Is Nothing Then
    Err.Clear
    MsgBox "Leere Dokumente können nicht bearbeitet werden. Das Makro wird beendet"
    On Error GoTo 0
    Exit Sub
End If

If TypeName(oActiveDocument) = "ProductDocument" Then
    MsgBox "Ich bin ein Product."
    'Exit Sub  'hier den ersten ' entfernen wenn das Makro abbrechen soll
    Else
    If TypeName(oActiveDocument) = "PartDocument" Then
        MsgBox "Ich bin ein Part."
        'Exit Sub  'hier den ersten ' entfernen wenn das Makro abbrechen soll
        Else
        If TypeName(oActiveDocument) = "DrawingDocument" Then
            MsgBox "Ich bin eine Zeichnung."
            'Exit Sub  'hier den ersten ' entfernen wenn das Makro abbrechen soll
            Else
            MsgBox "Ich bin ein unzulässiges Dokument. Das Makro wird beendet"
            On Error GoTo 0
            Exit Sub  'hier ist der ' entfernt um das Makro abzubrechen
        End If
    End If
End If

MsgBox "Das Makro läuft nun weiter ..."

'Hier soll dann weiter programmiert werden

On Error GoTo 0

End Sub

_______________________________

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

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

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 08. Feb. 2011 editiert.]

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