Pagina 7 di 8 PrimaPrima ... 5678 UltimaUltima
Risultati da 61 a 70 di 73
  1. #61
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Citazione Originariamente Scritto da callaghan Visualizza Messaggio
    Ho provato a riavviare il PC... Miracolo!! Funziona!!
    Quanta innocenza...
    In certe cose Windows non è cambiato negli ultimi 20 anni
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  2. #62
    Utente Junior
    Iscritto dal
    2013
    Messaggi
    67
    Professione
    disegnatore
    Regione
    Piemonte (TO)
    Software
    Inventor 2014

    Predefinito

    e lo so... ma mi sembrava impossibile..

    P.S. cmq gran cosa sta macro, mi ha risolto un sacco di casini..
    quando devo inviare 50 pdf al fornitore sai che noia a crearli uno x uno...

  3. #63
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    disegnatore
    Regione
    Veneto
    Software
    Solidworks

    Predefinito

    Salve a tutti! Scusate l'intromissione.... Ho letto il post e sono abbastanza interessato all'argomento!
    Io devo esportare in pdf un considerevole numero di file idw. L'operazione di stampa utilizzando l'utilità di programmazione operazioni è abbastanza lunga nel senso che, anche utilizzando una stampante pdf con poche impostazioni, ogni file che viene stampato necessita di aver specificato il percorso file, risoluzione e via così... il che ovviamente rende l'operazione ugualmente lunga. Trovo strano che non ci sia la possibilità di esportare automaticamente in pdf, ancor più strano se si pensa che il programma in questione è l'Inventor 2015. Esiste un comando pubblica equivalente a quello dell'Autocad che mi consenta di stampare alla stessa maniera tutti i presenti nella cartella??
    Grazie!

  4. #64
    Utente Junior
    Iscritto dal
    2013
    Messaggi
    67
    Professione
    disegnatore
    Regione
    Piemonte (TO)
    Software
    Inventor 2014

    Predefinito

    la macro in discussione lo fa perfettamente, cartella x cartella ovviamente...

  5. #65
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    disegnatore
    Regione
    Veneto
    Software
    Solidworks

    Predefinito

    Ovviamente devo prendere familiarità con il concetto di macro... cosa di cui non so nulla! Però trovo strano che, visto l'utilizzo diffusissimo del formato pdf, i programmatori non abbiano previsto un sistema integrato di pubblicazione. Come sempre Autodesk ha pecche non da poco... Prendetelo come uno sfogo, ma di certo i programmi in questione non brillano, né per intuitività né per semplicità... Grazie comunque!

  6. #66
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    3
    Professione
    Disegnatore
    Regione
    Veneto
    Software
    Inventor e Mechanical 2015

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    Non sbagli, sono io sbadato e ho perso l'inizio della macro nel copia/incolla

    - - - Aggiornato - - -

    ... e premo invia risposta prima di aver finito la risposta
    Codice:
        
    Public sub SAVE_IDWGWGPDF
        
        ' Obtain reference to drawing
        Dim oDoc As Document
        Set oDoc = ThisApplication.ActiveDocument
        
        If oDoc.DocumentType <> kDrawingDocumentObject Then
            MsgBox ("Deve essere aperta una tavola")
            Exit Sub
        End If
        
        ' Save the file with dependants
        oDoc.Save2
        
        Dim fn As String
        Dim DWGfn As String
        Dim PDFfn As String
        
        ' Generate the file names
        fn = oDoc.FullFileName
        DWGfn = Strings.Left(fn, Len(fn) - 4) & ".dwg"
        PDFfn = Strings.Left(fn, Len(fn) - 4) & ".pdf"
        
        
        ' Get the DWG translator Add-In.
        Dim DWGAddIn As TranslatorAddIn
        Set DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
    
        ' Get the DXF translator Add-In.
        Dim DXFAddIn As TranslatorAddIn
        Set DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
        
        ' Get the PDF translator Add-In.
        Dim PDFAddIn As TranslatorAddIn
        Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
        
        Dim strIniFile As String
        
        
        ' Common init
        ' Create a Context object
        Dim oContext As TranslationContext
        Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
        oContext.Type = kFileBrowseIOMechanism
          
        ' Create a NameValueMap object
        Dim oOptions As NameValueMap
        Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    
        ' Create a DataMedium object
        Dim oDataMedium As DataMedium
        Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
    
        ' ---------------------------------------------------------------------------
        ' DWG
        ' -------------------------------
        
        ' Check whether the translator has 'SaveCopyAs' options
        If DWGAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
            ' File with exportation options
            strIniFile = "C:\tempDWGOut.ini"
            ' Create the name-value that specifies the ini file to use.
            oOptions.Value("Export_Acad_IniFile") = strIniFile
        End If
    
        'Set the destination file name
        oDataMedium.filename = DWGfn
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        
        ' -------------------------------
        ' FINE DWG
        ' ---------------------------------------------------------------------------
      
        
        ' ---------------------------------------------------------------------------
        ' PDF
        ' -------------------------------
    
        ' Check whether the translator has 'SaveCopyAs' options
        If PDFAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
    
            ' Options for drawings...
    
            oOptions.Value("All_Color_AS_Black") = 0
    
            'oOptions.Value("Remove_Line_Weights") = 0
            'oOptions.Value("Vector_Resolution") = 400
            'oOptions.Value("Sheet_Range") = kPrintAllSheets
            'oOptions.Value("Custom_Begin_Sheet") = 2
            'oOptions.Value("Custom_End_Sheet") = 4
        End If
    
        'Set the destination file name
        oDataMedium.filename = PDFfn
    
    
        'Publish document.
        Call PDFAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        ' -------------------------------
        ' FINE PDF
        ' ---------------------------------------------------------------------------
    End Sub
    ... Stranissimo, la prima riga della macro non si copia/incolla... ho dovuto scriverla a mano. BOH!
    Comunque a me sovrascrive se non lo fa... non saprei perchè!

    Sovrascrivi la vecchia macro


    Buongiorno a tutti .. volevo sapere se esiste già una macro per il salvataggio di file ipt in dxf da utilizzare in ambiente lamiera (file per taglio laser).. o se si può integrare sulla macro citata??

  7. #67
    Utente Standard L'avatar di bradipo666
    Iscritto dal
    2012
    Messaggi
    202
    Professione
    disegnatore
    Regione
    abruzzo
    Software
    Inventor 2015, Autocad 2015, Solidworks 2014

    Predefinito

    mi allaccio alla discussione...
    La Macro funziona.. l'unica cosa che non ho capito è come esportare una cartella intera

    Citazione Originariamente Scritto da callaghan Visualizza Messaggio
    Ho anche suddiviso la macro: una x i pdf e una x i dwg
    potresti postare la Macro solo per PDF?
    grazie

  8. #68
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    692
    Professione
    mah!
    Regione
    .
    Software
    Inv + SW(purtroppo)

    Predefinito

    Citazione Originariamente Scritto da bradipo666 Visualizza Messaggio
    mi allaccio alla discussione...
    La Macro funziona.. l'unica cosa che non ho capito è come esportare una cartella intera

    http://www.cad3d.it/forum1/threads/4...l=1#post351470
    qua trovi la macro diridw che esporta una cartella intera

  9. #69
    Utente Standard L'avatar di bradipo666
    Iscritto dal
    2012
    Messaggi
    202
    Professione
    disegnatore
    Regione
    abruzzo
    Software
    Inventor 2015, Autocad 2015, Solidworks 2014

    Predefinito

    Citazione Originariamente Scritto da MauroM Visualizza Messaggio
    http://www.cad3d.it/forum1/threads/4...l=1#post351470
    qua trovi la macro diridw che esporta una cartella intera
    ok domani provo..GRAZIE!

  10. #70
    Utente Junior
    Iscritto dal
    2013
    Messaggi
    67
    Professione
    disegnatore
    Regione
    Piemonte (TO)
    Software
    Inventor 2014

    Predefinito

    fino a lunedì non rientro in ufficio...
    comunque dal listato devi solo cancellare quello che c'è tra:
    ---
    DWG
    ----

    ........
    -----
    FINE DWG
    ------


  • Pagina 7 di 8 PrimaPrima ... 5678 UltimaUltima

    Discussioni Simili

    1. Esportazione Modello FEM da CATIA a ".nas"
      Di SeM_Mario nel forum CAE/FEM/CFD forum generale
      Risposte: 0
      Ultimo Messaggio: 05-09-2014, 15: 32
    2. Risposte: 0
      Ultimo Messaggio: 17-04-2014, 02: 38
    3. Risposte: 7
      Ultimo Messaggio: 27-03-2013, 14: 32
    4. Risposte: 7
      Ultimo Messaggio: 28-02-2013, 00: 55
    5. quotatura "automatica"
      Di spider916 nel forum CATIA V5 CATDrawing
      Risposte: 6
      Ultimo Messaggio: 23-05-2011, 10: 01

    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