---

Hallo Forum..

wenn ich ein Product oder Part durch Neu aus erstelle und umbennene bleibt die alte Bezeichung des Product oder Parts im Strukturbaum dieselbejedoch im wird sie im Explorer Umbennant dagestellt. Kann man das einstellen, dass es im Strukturbaum auch geändert wird?

Vielen Dank im Vorraus..

Natascha

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

---

Hallo Natascha,

Im Strukturbaum steht die Partnumber (Teilenummer) und nicht der Dateiname. Die Teilenummer muss in diesem Fall händisch umbenannt werden.

gruß
Mörchen

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

---

Hallo snatascha,

Folgendes Skript gleicht den Dateinamen mit dem Partnamen ab und ändert den Partnamen endsprechend dem Dateinamen.

Und für den Exemplarnamen siehe hier

Code:

---

Sub CATMain()

Dim Eingabe As String
EingabeOO = "D:\pf"
EingabeOO = InputBox ("Bitte geben Sie den Öffnungs-ORT ein.", "Alle Parts/Products Öffnen", Eingabe)

    Dim oFileSystem As INFITF.FileSystem
    Set oFileSystem = CATIA.FileSystem
    Dim oFolder As INFITF.Folder
    ' Verzeichnisname für CATIA-Part
    Set oFolder = oFileSystem.GetFolder (EingabeOO)

   
    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)

On Error Resume Next

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

    Next
End Sub

---

PS:Wenn du nicht über eine InputBox den Pfad eingeben willst sonder über eine Dialog-box

Dann folgendes bitte Ändern

Code:

---

Dim Eingabe As String
EingabeOO = "D:\pf"
EingabeOO = InputBox ("Bitte geben Sie den Öffnungs-ORT ein.", "Alle Parts/Products Öffnen", Eingabe)

---

Durch

Code:

---

Dim Shell As Object
Dim Ordner As String
Set Shell = CreateObject("Shell.Application")
EingabeOO = Shell.BrowseForFolder(0, "Wählen Sie", 0).Self.Path

---

------------------
   Sei Schlau bleib Dumm !!?!!   

[Diese Nachricht wurde von K.Siebert am 25. Jul. 2008 editiert.]

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