Pagina 1 di 3 123 UltimaUltima
Risultati da 1 a 10 di 23
  1. #1
    Utente Senior L'avatar di Tarkus
    Iscritto dal
    2007
    Messaggi
    2326
    Professione
    Progettista,Disegnatore
    Regione
    Toscana
    Software
    Autocad Mechanical,Inventor 2017,HyperMill2012

    Predefinito Individuare files di vecchie releases

    Ho grandi cartelle con files realizzati con varie versioni precedenti (nelle stesse cartelle)
    Come posso fare per individuare i files realizzati o migrati con la release p.es. 2012 piuttosto che la 2013?
    Saluti
    Tarkus

  2. #2
    Utente Standard
    Iscritto dal
    2009
    Messaggi
    139
    Professione
    disegnatore
    Regione
    Emilia romagna
    Software
    Inventor / autocad

    Predefinito

    DA EXPLORER , TASTO DX, iPproperties, scheda Dettaglio

    _foto__194.jpg

    ma così, funziona per il singolo file

  3. #3
    Utente Senior L'avatar di Tarkus
    Iscritto dal
    2007
    Messaggi
    2326
    Professione
    Progettista,Disegnatore
    Regione
    Toscana
    Software
    Autocad Mechanical,Inventor 2017,HyperMill2012

    Predefinito

    Già, un file alla volta, vorrei invece qualcosa che mi creasse un elenco o qualcosa del genere per poterli individuare alla svelta...
    Saluti
    Tarkus

  4. #4
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    798
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Ti interessa la versione o solo se deve essere migrato alla rel. corrente?
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  5. #5
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    798
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Comunque sì, si può fare una macro che apre tutti i file in una cartella, legge i dati che ti servono e li scrive scrive in un file .txt (ho una roba vecchia adattabile all'uopo); ma come scrivevo sopra cosa ti serve sapere con precisione?
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  6. #6
    Utente Senior L'avatar di Tarkus
    Iscritto dal
    2007
    Messaggi
    2326
    Professione
    Progettista,Disegnatore
    Regione
    Toscana
    Software
    Autocad Mechanical,Inventor 2017,HyperMill2012

    Predefinito

    Trovo solo adesso il tempo per rispondere.....
    Vorrei individuare e selezionare tutti i files di questa o quella versione per spostarli in cartelle relative alle versioni stesse.
    Questo per crearmi un archivio di files non migrati e ancora apribili con vecchie versioni di Inventor
    Saluti
    Tarkus

  7. #7
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    798
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    E io che pensavo fossi in ferie!
    Ho fatto prove e mi pare funzioni tutto, ma fai un test pure tu su una cartella copiata o meglio dopo un bel backup, come sempre.
    Il programma apre ogni file Inv nella cartella che indicherai e nelle sue sottocartelle: se il file deve essere migrato lo aggiunge alla lista (nome completo e versione) e lo chiude senza salvare; il tutto ci mette un po' di tempo. La lista la puoi importare in Excel senza problemi.

    Codice:
    ' Dei files che necessitano migrazione
    Public Sub VersionChecker()
        Dim oApp As Inventor.Application
        Set oApp = ThisApplication
        
        
        Dim FileSystem As Object
        Set FileSystem = CreateObject("Scripting.FileSystemObject")
        
        Dim HostFolder As String
        
        ' -------------------------------------------------
        ' SCRIVERE QUI IL PERCORSO DI RICERCA DESIDERTO
        ' -------------------------------------------------
        HostFolder = "C:\DoveDevoCercare\"
        
        Dim sListName As String
    
        ' -------------------------------------------------
        ' SCRIVERE QUI IL NOME DELLA LISTA, ADESSO LA SALVA NEL PERCORSO RADICE
        ' -------------------------------------------------
        sListName = HostFolder & "list.txt"
        
        Open sListName For Output As #2
        Write #2, "Percorso", "Versione"
        
        Call DoFolder(FileSystem.getfolder(HostFolder), FileSystem, oApp)
        
        Set oApp = Nothing
        Close #2
        MsgBox ("Fatto")
    End Sub
    ' Controlla tutte le cartelle ricorsivamente
    Sub DoFolder(Folder, oFS, oApp As Inventor.Application)
        Dim SubFolder
        Dim myFile
        
        Dim myFileName As String
        Dim isInvFile As Boolean
        Dim oDoc As Document
        
        ' Imposta l'apertura dei file ingnorando i collegamenti non risolti
        Dim oOpenWithOptions As NameValueMap
        Set oOpenWithOptions = oApp.TransientObjects.CreateNameValueMap
        Call oOpenWithOptions.Add("SkipAllUnresolvedFiles", True)
        
        For Each myFile In Folder.Files
            ' Verifica se il file ha un'estensione di Inventor
            myFileName = myFile.path
            If Strings.InStr(Strings.UCase(myFileName), ".IAM") Or _
               Strings.InStr(Strings.UCase(myFileName), ".IPT") Or _
               Strings.InStr(Strings.UCase(myFileName), ".IDW") Or _
               Strings.InStr(Strings.UCase(myFileName), ".IPN") Then
                
                isInvFile = True
            Else
                isInvFile = False
            End If
            
            ' Apre solo i files Inventor
            If isInvFile Then
                Set oDoc = oApp.Documents.OpenWithOptions(myFile.path, oOpenWithOptions, False)
                
                ' Aggiunge alla lista solo i files da migrare
                If oDoc.NeedsMigrating Then
                    Write #2, oDoc.FullFileName, oDoc.SoftwareVersionSaved.DisplayVersion
                End If
                
                oDoc.Close (True)
                Set oDoc = Nothing
            End If
        
        Next
        
        ' Non controlla le cartelle OldVersion
        For Each SubFolder In Folder.subfolders
            If Strings.InStr(Strings.UCase(SubFolder.Name), "OLDVERSION") = 0 Then
                DoFolder oFS.getfolder(SubFolder.path), oFS, oApp
            End If
        Next
        
    End Sub
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  8. #8
    Utente Senior L'avatar di Tarkus
    Iscritto dal
    2007
    Messaggi
    2326
    Professione
    Progettista,Disegnatore
    Regione
    Toscana
    Software
    Autocad Mechanical,Inventor 2017,HyperMill2012

    Icon11

    San Catafratto da CAD3D !!!!
    Grazie mille della tua disponibilità, appena posso la provo.
    Saluti
    Tarkus

  9. #9
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    798
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Usalo su poche cartelle alla volta, può essere tento lento quando apre tavole e assiemi; non ho il tempo per ottimizzartelo in fretta, la sett. prossima forse..
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  10. #10
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    798
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Ok, mi è venuto il tarlo, prova questa macro in excel, è più veloce; se becca file irrisolti o spostati comunque si rallenta per trovarli...

    TestScansione.zip
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...


  • Pagina 1 di 3 123 UltimaUltima

    Discussioni Simili

    1. Risposte: 6
      Ultimo Messaggio: 04-06-2015, 15: 17
    2. Risposte: 2
      Ultimo Messaggio: 16-11-2014, 12: 05
    3. Risposte: 20
      Ultimo Messaggio: 16-03-2012, 11: 24
    4. Compatibilità con Releases precedenti (CATIA V5)
      Di valtic nel forum CATIA V5 Infrastructure
      Risposte: 6
      Ultimo Messaggio: 04-11-2008, 10: 28
    5. Bentley Releases ProSteel v18
      Di RUGGIUNO nel forum Altri CAD per la Meccanica
      Risposte: 0
      Ultimo Messaggio: 22-04-2008, 02: 44

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  




    CAD3D.it - la community dei progettisti