---

Hallo,

ich suche eine Möglichkeit, zwei wiederkehrenden Parameter (Zeichenfolge) in ca. 120 parts zu ändern, ohne es bei jedem einzeln auszuführen.
Habe mir zwar ein makro mitgeschrieben, würde jetzt aber gern alle parts im Verzeichniss automatisch abarbeiten.
Gibts dazu vielleicht irgendwo ein Makro zum download?

Würde mich freuen, wenn es eine Lösung gibt.

Gruß
Berthold

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

---

Hallo Berthold,
eine fertige Lösung wird es nicht geben. Daher musst du dir schon selbst etwas schreiben. Aber wenn du diese 120 Parts in einem Ordner legst, kannst du sogar mit reinen vba-Mitteln diesen Ordner auslesen, jedes einzelne Part öffnen, entsprechend deinem aktuellen Makro ändern, sichern und schließen.

------------------
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

---

Hallo rick,

danke für deine Antwort,
leider hab ich von vba keine Ahnung, werde mir wohl eine Button fürs Makro machen und die Dateien einzeln abarbeiten müssen...

Gruß
berthold

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

---

Hallo,
hier mal ein kleines Skript was dir die PartNumber an den Dateinamen anpasst. (alle parts/prudukte werden dir geöffnet welche sich in diesem Ordner befinden)
sollte leicht anzupassen sein  

Code:

---

Sub CATMain()
Dim Eingabe As String

'sInputFile = CATIA.FileSelectionBox("*.CATProduct auswaehlen und ab geht's! (alle Produkte und Parts werden in diesem Ordner geoeffnet und mit dem Dateinamen abgeglichen)", "*.CATProduct", 'CatFileSelectionModeOpen)

'EingabeOO = Left(sInputFile, InStrRev(sInputFile, "\") )

EingabeOO = "D:\Beispiel"
EingabeOO = InputBox ("Bitte geben Sie den Oeffnungs Ort  ein.", "Alle Parts/Products Oeffnen", 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
    'Dim BackView As DrawingView
    'Dim oText As DrawingText
    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)

'------------------------------- hier Code wenn noetig ------------------------------------

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

'------------------------------- hier Code wenn noetig ------------------------------------      
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)

'------------------------------- hier Code wenn noetig ------------------------------------

'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

'------------------------------- hier Code wenn noetig ------------------------------------

      End If

    Next

End Sub

---

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

[Diese Nachricht wurde von K.Siebert am 27. Sep. 2012 editiert.]

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

---

Hallo ..,

vielen Dank, werde es mal versuchen, aber ob ich das so hinkriege, bezweifele ich. 

Gruß
berthold

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