Pagina 2 di 2 PrimaPrima 12
Risultati da 11 a 13 di 13
  1. #11
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    NON VA.
    Ho provato a mettere una matrice (elenco) sull'elenco dei file o cartelle, ma non va.
    Tra le varie prove mi era comparso un errore del tipo che vba di excel non supportava una proprietà o metodo.

    I file log non si compilano neppure creando prima il file a mano.

    Forse bisogna chiedere sul forum americano un esempio funzionante.

    p.s.: per queste cose batch, io apri il singolo file, sostituisco il link, salvo.
    Se ti interessa ti posto un esempio.

    Codice:
    Sub Ridefinizione_collegamenti() ' non va
        Dim ObjRM As RevisionManager.Application
        Dim CurrentLinkStr As String
        Dim RedefineLinkStr As String
        
        Dim ListOfFoldersOrFiles(0) As Variant
        
        Dim DetailLogFile As Variant
        Dim ErrorLogFile As Variant
        
        CurrentLinkStr = "C:\Disegni - Locale\SDK\test SolidEdge\test1.par"
        RedefineLinkStr = "C:\Disegni - Locale\SDK\test SolidEdge\test2.par"
        
        ListOfFoldersOrFiles(0) = "C:\Disegni - Locale\SDK\test SolidEdge\"
        'ListOfFoldersOrFiles(1) = ""
        
        DetailLogFile = "C:\Disegni - Locale\SDK\test SolidEdge\DetailLogFile.txt"
        ErrorLogFile = "C:\Disegni - Locale\SDK\test SolidEdge\ErrorLogFile.txt"
        
        On Error Resume Next
        
        Set ObjRM = GetObject(, "RevisionManager.Application")
        If ObjRM Is Nothing Then
            On Error GoTo 0
            Set ObjRM = CreateObject("RevisionManager.Application")
        End If
       
        ObjRM.DisplayAlerts = True
        ObjRM.Visible = True
        
        'MsgBox (ObjRM.WhereUsedCriteria("*.*", ListOfFoldersOrFiles))
        Call ObjRM.RedefineLinks(CurrentLinkStr, RedefineLinkStr, ListOfFoldersOrFiles, , False, True, True, True, True, False, False, DetailLogFile, ErrorLogFile)
        Call ObjRM.Quit
        
        Set ObjRM = Nothing
    
    End Sub

  2. #12
    Utente Standard
    Iscritto dal
    2013
    Messaggi
    135
    Professione
    Progettista
    Regione
    Marche
    Software
    Solid Edge ST8

    Predefinito

    Si, grosso modo è uguale a come l'ho scritta io (o meglio come è diventata dopo le varie correzioni e suggerimenti), ma effettivamente non va.
    Grazie del tentativo!
    Effettivamente ho anche provato a cercare qualche esempio già scritto, ma sull'SDK della versione 19 non sono riuscito a trovarlo.

    Citazione Originariamente Scritto da vespa_83 Visualizza Messaggio
    p.s.: per queste cose batch, io apri il singolo file, sostituisco il link, salvo.
    Se ti interessa ti posto un esempio.
    Potrebbe interessarmi, spiegami meglio. Grazie

  3. #13
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    Esempio di Modifica il 3D collegato a un file draft. Si ipotizza che sia presente solo un collegamento oppure si intende modificare solo primo.

    Codice:
    FilePath = "E:\Disegni\Progetti"
    FileName = "nomefile"
    'FileEXT = "asm"
    On Error Resume Next
    
    Set rmApp = GetObject(, "RevisionManager.Application")
    	If rmApp Is Nothing Then
    On Error GoTo 0
    		Set rmApp = CreateObject("RevisionManager.Application")
    	End If
    Set rmDFT = rmApp.Open(FilePath & "\" & FileName & ".dft")
    
    ' TODO:
    ' per i dft senza 3D:  mettere un controllo
    ' rmDFT.LinkedDocuments.Count > 0
    Set rm3D = rmDFT.LinkedDocuments.Item(1)
    rm3D_filename = rm3D.FullName
    
    ' PARSE - PARSING
    testo = rm3D_filename
    pos = InStrRev(testo, ".")
    parseArg = Trim(Mid(testo, pos + 1, 3))
    FileEXT = parseArg
    ' FileEXT = "asm" ' sovrascrivi
     
    rm3D.Replace (FileName & "." & FileEXT)
    rmDFT.SaveAllLinks


  • Pagina 2 di 2 PrimaPrima 12

    Discussioni Simili

    1. rinominare piani, ridefinizione quote
      Di ataru_moroboshi nel forum Creo Parametric (ex Pro/E)
      Risposte: 3
      Ultimo Messaggio: 17-05-2015, 11: 11
    2. Gestione immagini: ridefinizione percorso
      Di Agar nel forum AutoCAD
      Risposte: 8
      Ultimo Messaggio: 03-05-2014, 15: 58
    3. Batch di stampa
      Di Alberto1961 nel forum AutoCAD
      Risposte: 5
      Ultimo Messaggio: 28-07-2008, 10: 54
    4. RIDEFINIZIONE PART IN ASSEMBLY
      Di strangelittle_girl nel forum Creo Parametric - Assemblaggio
      Risposte: 5
      Ultimo Messaggio: 30-04-2008, 15: 24
    5. ridefinizione piano sketch/feature
      Di strangelittle_girl nel forum Creo Parametric - Modellazione di parti e Lamiera
      Risposte: 2
      Ultimo Messaggio: 10-04-2008, 14: 19

    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