.dファイルから.e2への変換

[mattiar]

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]

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]

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

 

[matrix.crown]

こんにちは。
同じ問題があります。
私はライセンスを所有していますが、私は.e2からdwg(またはdxf)とPDFに大規模な変換を行う方法を理解する必要があります。

お問い合わせ

 

[MassiVonWeizen]

こんにちは。
同じ問題があります。
私はライセンスを所有していますが、私は.e2からdwg(またはdxf)とPDFに大規模な変換を行う方法を理解する必要があります。

お問い合わせ

すでに2つのスレッドで同じリクエストをしました。変換について話すすべてのスレッドで繰り返すことは意味がありません。