Risultati da 1 a 9 di 9
  1. #1
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    tecnico
    Regione
    friuli
    Software
    solidworks

    Predefinito Macro per SolidWorks2014

    Ciao a tutti, faccio una domanda, magari qualcuno sa rispondermi, ho già letto alcuni post ma non ho trovato quello che cercavo.:
    ho la necessità di fare una macro che deve salvare in pdf solo il foglio attivo (quello che ho a video) di un drawing e posizionare il pdf nella stessa cartella dove si trova il drawing e con lo stesso filename. Ne ho registrata una però non sono capace di modificarla come serve a me:

    Sub main()

    Set swApp = _
    Application.SldWorks

    Set Part = swApp.ActiveDoc
    Part.ViewZoomtofit2
    longstatus = Part.SaveAs3("D:\Archivio SolidWorks\drawing.PDF", 0, 0)
    End Sub


    Grazie

  2. #2
    Utente Junior L'avatar di czar
    Iscritto dal
    2008
    Messaggi
    82
    Professione
    tecnico
    Regione
    Emilia Romagna
    Software
    SWX 2016 SP. 5.0

    Predefinito

    Col Task Scheduler fai tutto ciò ad eccezione dell'esportazione del solo foglio attivo, direi li esporta tutti. Se ti può interessare....

    inoltre:

    http://www.3dcontentcentral.com/macr...aspx?id=179358

    ;)
    I would like to be as my dog believes me to be...

  3. #3
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    tecnico
    Regione
    friuli
    Software
    solidworks

    Predefinito

    Grazie per info e macro :) però per me è importante poter selezionare solo il primo foglio

  4. #4
    Utente Junior L'avatar di czar
    Iscritto dal
    2008
    Messaggi
    82
    Professione
    tecnico
    Regione
    Emilia Romagna
    Software
    SWX 2016 SP. 5.0

    Predefinito

    E' un po' il problema che ho anche io e cioè che non è possibile registrare alcune operazioni come per esempio la selezione di un campo in una finestra di dialogo.
    Sono una pippa con le macro "complesse" e non ne ho mai create e non so programmare in VB.
    Rimango in ascolto pure io per capire se è possibile inserire valori fissi (tipo la dimensione in uno schizzo) o registrare appunto selezioni da finestra di dialogo.
    I would like to be as my dog believes me to be...

  5. #5
    Utente Standard
    Iscritto dal
    2010
    Messaggi
    109
    Professione
    progettista
    Regione
    emilia romagna
    Software
    solidworks,solid edge, pro/e 2000i-wf4

    Predefinito

    Prova con questa:

    ' ************************************************** ****************************
    ' MACRO PER ESPORTAZIONE PDF FOGLIO CORRENTE SU STESSA CARTELLA
    ' ************************************************** ****************************
    Dim swApp As Object

    Dim Part As Object
    Dim boolstatus As Boolean
    Dim longstatus As Long, longwarnings As Long
    Dim swExportPDFData As SldWorks.ExportPdfData
    Dim swSheet As SldWorks.Sheet
    Dim swModelDocExt As SldWorks.ModelDocExtension


    Sub main()

    Set swApp = Application.SldWorks

    Set Part = swApp.ActiveDoc

    Set swExportPDFData = swApp.GetExportFileData(1)

    Set swSheet = Part.GetCurrentSheet

    Set swModelDocExt = Part.Extension

    sPathName = Part.GetPathName

    directory = Left(sPathName, InStrRev(sPathName, "."))

    fileuscita = directory + "PDF"

    nomefoglio = swSheet.GetName

    boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpeci fiedSheets, nomefoglio)

    boolstatus = swModelDocExt.SaveAs(fileuscita, 0, 0, swExportPDFData, 0, 0)

    End Sub

  6. #6
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    tecnico
    Regione
    friuli
    Software
    solidworks

    Predefinito

    Grazie, però non mi funziona, mi da un errore di sintassi in questa riga:

    boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpeci fiedSheets, nomefoglio)

  7. #7
    Utente Standard
    Iscritto dal
    2010
    Messaggi
    109
    Professione
    progettista
    Regione
    emilia romagna
    Software
    solidworks,solid edge, pro/e 2000i-wf4

    Predefinito

    Scusa mi è scappato uno spazio di troppo
    boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpeci fiedSheets, nomefoglio)
    spero così vada

  8. #8
    Utente Standard
    Iscritto dal
    2010
    Messaggi
    109
    Professione
    progettista
    Regione
    emilia romagna
    Software
    solidworks,solid edge, pro/e 2000i-wf4

    Predefinito

    Non so per quale motivo quando mando il messaggio mi aggiunge in automatico uno spazio fra ExportSpeci e fiedSheets occorre che elimini manualente lo spazio nella tua macro. Oppure usa la macro allegata
    File Allegati File Allegati

  9. #9
    Utente poco attivo
    Iscritto dal
    2015
    Messaggi
    4
    Professione
    tecnico
    Regione
    friuli
    Software
    solidworks

    Predefinito

    Super Grazie! Funziona perfettamente, sei un grande! :D


  • Discussioni Simili

    1. swVBAServer (Solidworks2014)
      Di mirko77_tivoli nel forum Solidworks
      Risposte: 3
      Ultimo Messaggio: 14-02-2014, 21: 39
    2. Solidworks2014 what new PDF ITA
      Di pierluigip nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 05-11-2013, 17: 21
    3. Macro
      Di BRM nel forum Solid Edge
      Risposte: 22
      Ultimo Messaggio: 19-06-2013, 22: 28
    4. macro
      Di doriano nel forum Solid Edge
      Risposte: 8
      Ultimo Messaggio: 03-06-2013, 16: 50
    5. MACRO
      Di strangelittle_girl nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 07-10-2009, 20: 49

    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