• This forum is the machine-generated translation of www.cad3d.it/forum1 - the Italian design community. Several terms are not translated correctly.

conversion of mass .d file to .e2

mattiar

Guest
Good morning, I need to convert a large number of files from .d to .e2
Can you tell me a quick way, please?
thanks in advance
 
to do this activity, you can use thinkdesign bees as follows:
I write in vbs for simplicity

dim convertfrom
converted dim
dim objstartfolder
rem initial configuration parameters
convertfrom="d" 'Departure formatconverted="e2" 'incoming formobjstartfolder = "c:\" 'Directory to be analysed

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
 
to do this activity, you can use thinkdesign bees as follows:
I write in vbs for simplicity

dim convertfrom
converted dim
dim objstartfolder
rem initial configuration parameters
convertfrom="d" 'Departure formatconverted="e2" 'incoming formobjstartfolder = "c:\" 'Directory to be analysed

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
Hello.
Is there something like e2 to dxf (we have thinkdesign and thinkteam 2008.1)?
Thank you.
 
Hi.
I would have the same problem.
I am in possession of the license but I would need to understand how to make a massive conversion from .e2 to dwg (or dxf) and pdf.

Thank you.
 
Hi.
I would have the same problem.
I am in possession of the license but I would need to understand how to make a massive conversion from .e2 to dwg (or dxf) and pdf.

Thank you.
you already made the same request on two other threads... it makes no sense to repeat on all threads that talk about conversion.
 

Forum statistics

Threads
44,997
Messages
339,767
Members
4
Latest member
ibt

Members online

No members online now.
Back
Top