Risultati da 1 a 3 di 3
  1. #1
    Utente poco attivo
    Iscritto dal
    2014
    Messaggi
    1
    Professione
    impiegato
    Regione
    Veneto
    Software
    think

    Predefinito Conversione di massa file .d in .e2

    Buongiorno, ho la necessità di convertire un gran numero di files da .d in .e2
    Sapete indicarmi una via rapida, per cortesia ?
    Grazie in anticipo

  2. #2
    Utente Standard L'avatar di euro_ii
    Iscritto dal
    2011
    Messaggi
    153
    Professione
    Consulente/Sviluppatore ERP PLM CAD
    Regione
    Veneto
    Software
    ThinkDesign,Odoo,Python,.....

    Predefinito

    Per fare questa attivita', puoi utilizzare le api com di thinkdesign nel seguente modo:
    lo scrivo in vbs per semplicita'

    dim convertFrom
    dim convertTo
    dim objStartFolder
    rem parametri iniziali di configurazione
    convertFrom="d" ' formato di partenza
    convertTo="e2" 'Formato di arrivo
    objStartFolder = "C:\" ' direttorio da analizzare

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(objStartFolder)
    dim td
    dim activeDoc
    dim newName
    set td = CreateObject("td_appl.application")
    td.visible=true
    td.interactive=true
    Set colFiles = objFolder.Files
    dim spName
    For Each objFile in colFiles
    msgbox "aa" & objFile.Name
    spName=split(objFile.Name,".")
    if(ubound(spName)>0) then
    if(spName(1)=convertFrom) then
    fileToOpen=objStartFolder+"\"+objFile.Name
    msgbox "aa" & fileToOpen
    set activeDoc=td.Documents.Open(fileToOpen)
    newName=objStartFolder &"\C_"+spName(0)&"."+convertTo
    activeDoc.saveAs(newName)
    activeDoc.close()
    end if
    end if
    Next
    Matteo Boscolo
    OmniaSolutions.eu

  3. #3
    Utente Junior
    Iscritto dal
    2012
    Messaggi
    22
    Professione
    Disegnatore meccanico
    Regione
    Toscana
    Software
    Thinkdesign, Creo

    Predefinito

    Citazione Originariamente Scritto da euro_ii Visualizza Messaggio
    Per fare questa attivita', puoi utilizzare le api com di thinkdesign nel seguente modo:
    lo scrivo in vbs per semplicita'

    dim convertFrom
    dim convertTo
    dim objStartFolder
    rem parametri iniziali di configurazione
    convertFrom="d" ' formato di partenza
    convertTo="e2" 'Formato di arrivo
    objStartFolder = "C:\" ' direttorio da analizzare

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(objStartFolder)
    dim td
    dim activeDoc
    dim newName
    set td = CreateObject("td_appl.application")
    td.visible=true
    td.interactive=true
    Set colFiles = objFolder.Files
    dim spName
    For Each objFile in colFiles
    msgbox "aa" & objFile.Name
    spName=split(objFile.Name,".")
    if(ubound(spName)>0) then
    if(spName(1)=convertFrom) then
    fileToOpen=objStartFolder+"\"+objFile.Name
    msgbox "aa" & fileToOpen
    set activeDoc=td.Documents.Open(fileToOpen)
    newName=objStartFolder &"\C_"+spName(0)&"."+convertTo
    activeDoc.saveAs(newName)
    activeDoc.close()
    end if
    end if
    Next
    Salve.
    Esiste qualcosa di simile da E2 a Dxf (abbiamo Thinkdesign e Thinkteam 2008.1)?
    Grazie


  • Discussioni Simili

    1. conversione file pro-e
      Di student nel forum Creo Parametric (ex Pro/E)
      Risposte: 11
      Ultimo Messaggio: 14-03-2015, 16: 46
    2. CONVERSIONE FILE
      Di CODY nel forum Thinkdesign
      Risposte: 1
      Ultimo Messaggio: 24-02-2012, 13: 42
    3. Conversione file
      Di looksin87 nel forum Solid Edge
      Risposte: 6
      Ultimo Messaggio: 18-11-2011, 10: 20
    4. Conversione file
      Di Jon_86 nel forum Archicad
      Risposte: 2
      Ultimo Messaggio: 08-11-2011, 15: 28
    5. Conversione file 3dm in igs
      Di profran nel forum Altri software di CAD generico
      Risposte: 3
      Ultimo Messaggio: 20-11-2009, 12: 12

    Tag per Questa Discussione

    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