Conversione di massa file .d in .e2

mattiar

Utente poco attivo
Professione: impiegato
Software: think
Regione: Veneto
#1
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
 

euro_ii

Utente Standard
Professione: Consulente/Sviluppatore ERP PLM CAD
Software: ThinkDesign,Odoo,Python,.....
Regione: Veneto
#2
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
 

atom1

Utente Junior
Professione: Disegnatore meccanico
Software: Thinkdesign, Creo
Regione: Toscana
#3
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