• Este fórum é a tradução automática de www.cad3d.it/forum1 - a comunidade italiana de design. Vários termos não foram traduzidos corretamente.

Conversão em massa ficheiro .d em .e2

mattiar

Guest
Bom dia, eu preciso converter um grande número de arquivos de .d para .e2
Pode dizer-me uma maneira rápida, por favor?
Obrigado com antecedência
 
para fazer esta atividade, você pode usar abelhas do thinkdesign como segue:
Escrevo em vbs para simplicidade

dim converter de
dim convertido
O que é isso?
parâmetros de configuração inicial rem
- Não. Formato de partidaconvertido="e2" Formulário de entradaobjstartfolder = "c:\" «Directiva a analisarset objfso = createobject("scripting.filesystemobject")
set objfolder = objfso.getfolder (objstartfolder)
- Não.
Dim activedoc
novo nome
set td = createobject("td_appl.application")
Td.visible=true
td.interactive=true
set colfiles = objfolder. arquivos
Dim spname
para cada objfile em colfiles
msgbox "aaa" & objfile. Nome
spname=split(objfile.name,".")
if(ubound(spname)>0) then
if(spname(1)=convertfrom) then
filetoopen=objstartfolder+"\" +objfile.name
msgbox "aaa" & filetoopen
set activedoc=td.documents.open(filetoopen)
newname=objstartfolder &"\c_"+spname(0)&".
activedoc.saveas(nome novo)
activedoc.close()
terminar se
terminar se
Próximo
 
para fazer esta atividade, você pode usar abelhas do thinkdesign como segue:
Escrevo em vbs para simplicidade

dim converter de
dim convertido
O que é isso?
parâmetros de configuração inicial rem
- Não. Formato de partidaconvertido="e2" Formulário de entradaobjstartfolder = "c:\" «Directiva a analisarset objfso = createobject("scripting.filesystemobject")
set objfolder = objfso.getfolder (objstartfolder)
- Não.
Dim activedoc
novo nome
set td = createobject("td_appl.application")
Td.visible=true
td.interactive=true
set colfiles = objfolder. arquivos
Dim spname
para cada objfile em colfiles
msgbox "aaa" & objfile. Nome
spname=split(objfile.name,".")
if(ubound(spname)>0) then
if(spname(1)=convertfrom) then
filetoopen=objstartfolder+"\" +objfile.name
msgbox "aaa" & filetoopen
set activedoc=td.documents.open(filetoopen)
newname=objstartfolder &"\c_"+spname(0)&".
activedoc.saveas(nome novo)
activedoc.close()
terminar se
terminar se
Próximo
Olá.
Há algo como e2 para dxf (temos thinkdesign e thinkteam 2008.1)?
Obrigado.
 
Olá.
Eu teria o mesmo problema.
Eu estou na posse da licença, mas eu precisaria entender como fazer uma conversão maciça de .e2 para dwg (ou dxf) e pdf.

Obrigado.
 
Olá.
Eu teria o mesmo problema.
Eu estou na posse da licença, mas eu precisaria entender como fazer uma conversão maciça de .e2 para dwg (ou dxf) e pdf.

Obrigado.
você já fez o mesmo pedido em dois outros fios... não faz sentido repetir em todos os fios que falam sobre conversão.
 

Estatísticas do fórum

Tópicos
58,521
Mensagens
499,056
Membros
104,110
Último membro
ChristianR

Membros online

Nenhum membro online agora.
Voltar
Topo