samurai76
Guest
oi a todos, desculpe mas para evitar confusão eu abri outra discussão ligando-me ao seguinte:
http://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/Estou usando as macros para exportar arquivos idw em pdf e dxf e funciona perfeitamente (ringrazio catafrases) mas agora preciso de preguiça. Eu gostaria de criar, no diretório onde o idw é, uma subpasta (por exemplo...\dxf-pdf... embora não presente) em que salvar a saída da macro.
o que pode fazer o código abaixo (Não me lembro onde e editado para doc) inserido como uma regra no ilogic mas não posso entrar na macro acima.
Obrigado pela disponibilidade
samurais
http://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/Estou usando as macros para exportar arquivos idw em pdf e dxf e funciona perfeitamente (ringrazio catafrases) mas agora preciso de preguiça. Eu gostaria de criar, no diretório onde o idw é, uma subpasta (por exemplo...\dxf-pdf... embora não presente) em que salvar a saída da macro.
o que pode fazer o código abaixo (Não me lembro onde e editado para doc) inserido como uma regra no ilogic mas não posso entrar na macro acima.
Código:
Sintaxeditor código snippetopath = thisdoc. caminho
ofilename = thisdoc.filename(false) 'sem extensão
'orevnum = iproperties.value("project", "número de revisão")
'orevnum = iproperties.value("project", "checked by")
opdfaddin = esteapplication.applicationaddins.itembyid _
("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
odocumento = esta aplicação.documento ativo
ocontexto = esteapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
odatamedium = thisapplication.transientobjects.createdatamedium
currentdate = string.format("{0: mm.dd.yyyyyy}",datetime.now)
se opdfaddin.hassavecopyasoptions(odocumento, ocontexto, ooptions) então
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 1
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = inventor.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 2'ooptions.value("custom_end_sheet") = 4
terminar se
'get pdf target folder path
ofolder = thisdoc.path & "\pdfs" 'em vez de "k:\dwg\pdf\"
"Verifique para a pasta pdf e crie-a se não existir
se não system.io.directory.exists(ofolder) então
sistema.io.directory.createdirectory(ofolder)
terminar se
'defina o nome do arquivo alvo pdf
odatamedium.filename = ofolder & "\" & ofilename & _
"_rev" & actualdate & ".pdf"
'publicar documento
opdfaddin.savecopyas(odocumento, ocontexto, ooptions, odatamedium)samurais