Rispondi alla discussione

Messaggio

<blockquote data-quote="alxG88" data-source="post: 426727" data-attributes="member: 53393">Buongiorno a tutti,Ho da poco scritto una macro in VB, che lavora solo in ambiente .asm, e funziona più o meno così:1. Fa una scansione di tutte le parti (o sottoassiemi) che compongono l'assieme di base2. Apre i dft di tutte le singole parti (o sottoassiemi)3. Salva in pdf tutti i dft e li deposita in un percorso prestabilito4. Chiude tutti i dft apertiPS La macro si spinge solo al primo livello di eventuali sottoassiemiLa macro fa esattamente ciò che desidero, ma risulta essere un po' lenta con gli assiemi composti da un gran numero di parti (la macro impiega mediamente 2.8 s a elaborare ogni file) proprio perchè è costretta ad aprire tutti i dft per poter creare il rispettivo pdf.La mia domanda è dunque la seguente: si può fare in modo di salvare in pdf senza obbligatoriamente aprire il dft, ma direttamente conoscendo il par/asm/psm desiderato?[CODE]Imports System.Runtime.InteropServicesImports SystemImports System.DrawingModule Module1&nbsp; &nbsp; Dim objApp As SolidEdgeFramework.Application&nbsp; &nbsp; Dim objDft As SolidEdgeDraft.DraftDocument&nbsp; &nbsp; Dim objSht As SolidEdgePart.SheetMetalDocument&nbsp; &nbsp; Dim objPrt As SolidEdgePart.PartDocument&nbsp; &nbsp; Dim objPwd As SolidEdgePart.AssemblyWeldment&nbsp; &nbsp; Dim objAsm As SolidEdgeAssembly.AssemblyDocument&nbsp; &nbsp; Dim oOccs As SolidEdgeAssembly.Occurrences&nbsp; &nbsp; Dim PrtName As String&nbsp; &nbsp; Dim AsmName As String&nbsp; &nbsp; Dim DftName As String&nbsp; &nbsp; Dim PdfName As String&nbsp; &nbsp; Dim pathname As String&nbsp; &nbsp; Dim filename As String&nbsp; &nbsp; Public Sub Main()&nbsp; &nbsp; &nbsp; &nbsp; On Error Resume Next&nbsp; &nbsp; &nbsp; &nbsp; '...se Solid Edge non è aperto&nbsp; &nbsp; &nbsp; &nbsp; objApp = GetObject(, &quot;SolidEdge.Application&quot;)&nbsp; &nbsp; &nbsp; &nbsp; If objApp Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Solid Edge non è aperto! Aprire Solid Edge.&quot;, vbCritical, &quot;Attenzione&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; '...se il file aperto non è un assieme (.asm)&nbsp; &nbsp; &nbsp; &nbsp; If objApp.ActiveDocumentType &lt;&gt; SolidEdgeFramework.DocumentTypeConstants.igAssemblyDocument Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Il documento aperto non è un ASSIEME (.asm)! Aprire un ASSIEME (.asm).&quot;, vbInformation, &quot;Attenzione&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; '...se non c'è nessun documento di Solid Edge aperto&nbsp; &nbsp; &nbsp; &nbsp; objAsm = objApp.ActiveDocument&nbsp; &nbsp; &nbsp; &nbsp; If objAsm Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Nessun documento aperto!&quot;, vbInformation, &quot;Attenzione&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; 'Apri il .dft dell'assieme d'origine&nbsp; &nbsp; &nbsp; &nbsp; objApp.DisplayAlerts = False&nbsp; &nbsp; &nbsp; &nbsp; AsmName = objAsm.FullName&nbsp; &nbsp; &nbsp; &nbsp; DftName = Left(AsmName, Len(AsmName) - 3) + &quot;dft&quot;&nbsp; &nbsp; &nbsp; &nbsp; objDft = objApp.Documents.Open(DftName)&nbsp; &nbsp; &nbsp; &nbsp; PdfName = Left(objDft.Name, Len(objDft.Name) - 4)&nbsp;&nbsp; 'Ricava il nome del rispettivo pdf&nbsp; &nbsp; &nbsp; &nbsp; pathname = &quot;S:\utenti\Alex\Macro_PDF\&quot;&nbsp; &nbsp; &nbsp; 'Percorso in cui salvare il file pdf&nbsp; &nbsp; &nbsp; &nbsp; Call objDft.SaveAs(pathname + PdfName + &quot;.&quot; + &quot;pdf&quot;) ' Salva il pdf nella cartella desiderata&nbsp; &nbsp; &nbsp; &nbsp; objDft.Save()&nbsp;&nbsp; 'salva .dft&nbsp; &nbsp; &nbsp; &nbsp; objDft.Close()&nbsp; 'chiudi .dft&nbsp; &nbsp; &nbsp; &nbsp; 'Inizia a scansionare le occorrenze dell'albero delle parti&nbsp; &nbsp; &nbsp; &nbsp; oOccs = objAsm.Occurrences&nbsp; &nbsp; &nbsp; &nbsp; For i As Integer = 1 To oOccs.Count&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '...se l'occorrenza è un file .par/.psm/.pwd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If oOccs.Item(i).PartDocument = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPrt = oOccs.Item(i).PartDocument&nbsp; &nbsp;&nbsp; '.par&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objSht = oOccs.Item(i).PartDocument&nbsp; &nbsp;&nbsp; '.psm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPwd = oOccs.Item(i).PartDocument&nbsp; &nbsp;&nbsp; '.pwd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PrtName = oOccs.Item(i).PartFileName&nbsp; &nbsp; 'Ricava il nome del file .par&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DftName = Left(PrtName, Len(PrtName) - 3) + &quot;dft&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft = objApp.Documents.Open(DftName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PdfName = Left(objDft.Name, Len(objDft.Name) - 4)&nbsp;&nbsp; 'Ricava il nome del rispettivo pdf&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; pathname = &quot;S:\utenti\Alex\Macro_PDF\&quot;&nbsp; &nbsp; &nbsp; 'Percorso in cui salvare il file pdf&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call objDft.SaveAs(pathname + PdfName + &quot;.&quot; + &quot;pdf&quot;) ' Salva il pdf nella cartella desiderata&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft.Save()&nbsp;&nbsp; 'salva .dft&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft.Close()&nbsp; 'chiudi .dft&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPrt.Close()&nbsp; 'chiudi .par&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objSht.Close()&nbsp; 'chiudi .psm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPwd.Close()&nbsp; 'chiudi .pwd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '...se l'occorrenza è un file .asm (sottoassieme dell'assieme d'origine)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If oOccs.Item(i).Subassembly = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; AsmName = oOccs.Item(i).OccurrenceFileName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DftName = Left(AsmName, Len(AsmName) - 3) + &quot;dft&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft = objApp.Documents.Open(DftName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each soOcc In oOccs.Item(i).SubOccurrences&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPrt = soOcc.SubOccurrenceDocument&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objSht = soOcc.SubOccurrenceDocument&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPwd = soOcc.SubOccurrenceDocument&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PrtName = soOcc.SubOccurrenceFileName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DftName = Left(PrtName, Len(PrtName) - 3) + &quot;dft&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft = objApp.Documents.Open(DftName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PdfName = Left(objDft.Name, Len(objDft.Name) - 4)&nbsp;&nbsp; 'Ricava il nome del rispettivo pdf&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; pathname = &quot;S:\utenti\Alex\Macro_PDF\&quot;&nbsp; &nbsp; &nbsp; 'Percorso in cui salvare il file pdf&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call objDft.SaveAs(pathname + PdfName + &quot;.&quot; + &quot;pdf&quot;) ' Salva il pdf nella cartella desiderata&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objDft.Close()&nbsp; 'chiudi .dft&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPrt.Close()&nbsp; 'chiudi .par&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objSht.Close()&nbsp; 'chiudi .psm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objPwd.Close()&nbsp; 'chiudi .pwd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Next i&nbsp; &nbsp; &nbsp; &nbsp; objApp.DisplayAlerts = True&nbsp; &nbsp; End SubEnd Module[/CODE]Grazie a tutti in anticipo,Alex</blockquote>

[QUOTE="alxG88, post: 426727, member: 53393"] Buongiorno a tutti, Ho da poco scritto una macro in VB, che lavora solo in ambiente .asm, e funziona più o meno così: 1. Fa una scansione di tutte le parti (o sottoassiemi) che compongono l'assieme di base 2. Apre i dft di tutte le singole parti (o sottoassiemi) 3. Salva in pdf tutti i dft e li deposita in un percorso prestabilito 4. Chiude tutti i dft aperti PS La macro si spinge solo al primo livello di eventuali sottoassiemi La macro fa esattamente ciò che desidero, ma risulta essere un po' lenta con gli assiemi composti da un gran numero di parti (la macro impiega mediamente 2.8 s a elaborare ogni file) proprio perchè è costretta ad aprire tutti i dft per poter creare il rispettivo pdf. La mia domanda è dunque la seguente: si può fare in modo di salvare in pdf senza obbligatoriamente aprire il dft, ma direttamente conoscendo il par/asm/psm desiderato? [CODE]Imports System.Runtime.InteropServices Imports System Imports System.Drawing Module Module1 Dim objApp As SolidEdgeFramework.Application Dim objDft As SolidEdgeDraft.DraftDocument Dim objSht As SolidEdgePart.SheetMetalDocument Dim objPrt As SolidEdgePart.PartDocument Dim objPwd As SolidEdgePart.AssemblyWeldment Dim objAsm As SolidEdgeAssembly.AssemblyDocument Dim oOccs As SolidEdgeAssembly.Occurrences Dim PrtName As String Dim AsmName As String Dim DftName As String Dim PdfName As String Dim pathname As String Dim filename As String Public Sub Main() On Error Resume Next '...se Solid Edge non è aperto objApp = GetObject(, "SolidEdge.Application") If objApp Is Nothing Then MsgBox("Solid Edge non è aperto! Aprire Solid Edge.", vbCritical, "Attenzione") Exit Sub End If '...se il file aperto non è un assieme (.asm) If objApp.ActiveDocumentType <> SolidEdgeFramework.DocumentTypeConstants.igAssemblyDocument Then MsgBox("Il documento aperto non è un ASSIEME (.asm)! Aprire un ASSIEME (.asm).", vbInformation, "Attenzione") Exit Sub End If '...se non c'è nessun documento di Solid Edge aperto objAsm = objApp.ActiveDocument If objAsm Is Nothing Then MsgBox("Nessun documento aperto!", vbInformation, "Attenzione") Exit Sub End If 'Apri il .dft dell'assieme d'origine objApp.DisplayAlerts = False AsmName = objAsm.FullName DftName = Left(AsmName, Len(AsmName) - 3) + "dft" objDft = objApp.Documents.Open(DftName) PdfName = Left(objDft.Name, Len(objDft.Name) - 4) 'Ricava il nome del rispettivo pdf pathname = "S:\utenti\Alex\Macro_PDF\" 'Percorso in cui salvare il file pdf Call objDft.SaveAs(pathname + PdfName + "." + "pdf") ' Salva il pdf nella cartella desiderata objDft.Save() 'salva .dft objDft.Close() 'chiudi .dft 'Inizia a scansionare le occorrenze dell'albero delle parti oOccs = objAsm.Occurrences For i As Integer = 1 To oOccs.Count '...se l'occorrenza è un file .par/.psm/.pwd If oOccs.Item(i).PartDocument = True Then objPrt = oOccs.Item(i).PartDocument '.par objSht = oOccs.Item(i).PartDocument '.psm objPwd = oOccs.Item(i).PartDocument '.pwd PrtName = oOccs.Item(i).PartFileName 'Ricava il nome del file .par DftName = Left(PrtName, Len(PrtName) - 3) + "dft" objDft = objApp.Documents.Open(DftName) PdfName = Left(objDft.Name, Len(objDft.Name) - 4) 'Ricava il nome del rispettivo pdf pathname = "S:\utenti\Alex\Macro_PDF\" 'Percorso in cui salvare il file pdf Call objDft.SaveAs(pathname + PdfName + "." + "pdf") ' Salva il pdf nella cartella desiderata objDft.Save() 'salva .dft objDft.Close() 'chiudi .dft objPrt.Close() 'chiudi .par objSht.Close() 'chiudi .psm objPwd.Close() 'chiudi .pwd End If '...se l'occorrenza è un file .asm (sottoassieme dell'assieme d'origine) If oOccs.Item(i).Subassembly = True Then AsmName = oOccs.Item(i).OccurrenceFileName DftName = Left(AsmName, Len(AsmName) - 3) + "dft" objDft = objApp.Documents.Open(DftName) For Each soOcc In oOccs.Item(i).SubOccurrences objPrt = soOcc.SubOccurrenceDocument objSht = soOcc.SubOccurrenceDocument objPwd = soOcc.SubOccurrenceDocument PrtName = soOcc.SubOccurrenceFileName DftName = Left(PrtName, Len(PrtName) - 3) + "dft" objDft = objApp.Documents.Open(DftName) PdfName = Left(objDft.Name, Len(objDft.Name) - 4) 'Ricava il nome del rispettivo pdf pathname = "S:\utenti\Alex\Macro_PDF\" 'Percorso in cui salvare il file pdf Call objDft.SaveAs(pathname + PdfName + "." + "pdf") ' Salva il pdf nella cartella desiderata objDft.Close() 'chiudi .dft objPrt.Close() 'chiudi .par objSht.Close() 'chiudi .psm objPwd.Close() 'chiudi .pwd Next End If Next i objApp.DisplayAlerts = True End Sub End Module [/CODE] Grazie a tutti in anticipo, Alex [/QUOTE]

Verifica

Rispondi alla discussione

Utenti online

Statistiche forum