Conversione di massa file .d in .e2

euro_ii ha detto:

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

Clicca per espandere...

matrix.crown ha detto:

Ciao,
avrei lo stesso problema.
sono in possesso della licenza ma mi servirebbe capire come poter fare una conversione massiva da .e2 a DWG (o DXF) e PDF.

Grazie,

Clicca per espandere...