jenuary
Guest
Obrigado ninos19
danimecc88
Guest
Olá, para mim não adiciona o rev infelizmente... ajuda-me a entender onde esse valor carrega a macro? perhcè talvez na declaração da variável há alguma incongruência! O que é suposto eu verificar?
LordRochester
Guest
Olá, Dani.
Eu o revejo como propriedade padrão dentro da parte. No meu caso é chamado de "rev" e eu colocá-lo com valor "0.0".
Minha macro olha para o valor da propriedade "rev" se ela existe e se é diferente de 0,0 então adiciona-a no nome do arquivo gerado.
no caso de você querer adicionar a propriedade em todos os arquivos, aqui eles adicionaram uma macro muito agradável, que você tem que personalizar.
danimecc88
Guest
Eu também gostaria de tomar o valor presente na caixa das propriedades do componente, que para mim é chamado de revisão, e inseri-lo no nome do arquivo exportado. .. pode ser que o comprimento definido do nome é insuficiente para conter todos os caracteres? Quero dizer, a corda:Olá, Dani.
Eu o revejo como propriedade padrão dentro da parte. No meu caso é chamado de "rev" e eu colocá-lo com valor "0.0".
Minha macro olha para o valor da propriedade "rev" se ela existe e se é diferente de 0,0 então adiciona-a no nome do arquivo gerado.
no caso de você querer adicionar a propriedade em todos os arquivos, aqui eles adicionaram uma macro muito agradável, que você tem que personalizar.
filename = strings.left(filename, len(filename) - 7)
danimecc88
Guest
Talvez eu descobrisse porque não funciona... temos propriedades personalizadas em uma pasta nas nas enquanto a macro provavelmente vai tirar o valor da pasta de trabalhos sólidos localmente. Como posso mapear o arquivo correto?Olá, Dani.
Eu o revejo como propriedade padrão dentro da parte. No meu caso é chamado de "rev" e eu colocá-lo com valor "0.0".
Minha macro olha para o valor da propriedade "rev" se ela existe e se é diferente de 0,0 então adiciona-a no nome do arquivo gerado.
no caso de você querer adicionar a propriedade em todos os arquivos, aqui eles adicionaram uma macro muito agradável, que você tem que personalizar.
jenuary
Guest
tentar colocar um arquivo modificado e macro
LordRochester
Guest
tentar compartilhar uma parte de arquivo. porque as propriedades relativas a cada parte são ou nele escritas.
LordRochester
Guest
le parti in grassetto sono quelle che devi modificare, come si chiama la proprietà di revisione nei tuoi file e come è il valore zero che vuoi che non venga riportato nel nome. quella non è la lunghezza dei caratteri ma semplicemente cancella gli ultimi del filename, ovvero l'estensione.
O que se passa?
opção explícita
dim swapp como sldworks. sldworks
dim swmodel como sldworks.modeldoc2
dim swdraw como sldworks.drawingdoc
Dim swview como sldworks. vista
dim swmodelref como sldworks.modeldoc2
dim getthatinfo as string
dim swmodeldocext como sldworks.modeldocextension
dim swexportdata as sldworks.exportpdfdata
dim boolstatus como booleano
dim boolstatuspdf como booleano
dim boolstatusdxf como booleano
dim draw como string
dim pdf como string
dim dxf como string
dim filename como string
dim lerrors por muito tempo
dim anões por muito tempo
dim revisione as strings
dim desc como string
sub principal()
set swapp = aplicação. sldworks
set swmodel = swapp.activedoc «controle do documento
se o modelo não é nada, então
msgbox "nenhum documento atual", vbcritical 'se è aperto un documento
fim
terminar se
se for modelo. <> swdocdrawing então 'se è di tipo messa em tavola
msgbox "esta macro só funciona em desenhos", vbcritical
fim
terminar se
set swmodeldocext = swmodel.extension
set swexportdata = swapp.getexportfiledata(swexportpdfdata)
«Aazeramento delle variabili di check
boolstatus = false
boolstatuspdf = false
boolstatusdxf = false
Dxf = "
pdf = "
'recupera percorso e nome file con estensione
nome do arquivo = swmodel.getpathname
'controle se è stato salvato
se nome do arquivo = "
msgbox "por favor, salve o arquivo primeiro e tente novamente", vbcritical
fim
terminar se
'save drawing / salva la messa in tavola
boolstatus = swexportdata.setsheets(swexportdata_exportallsheets, 1)
boolstatus = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
se boolstatus então
draw = "ok"
mais
draw = "falhado"
terminar se
"prende la proprietà
set swdraw = swmodel
set swview = swdraw.getfirstview
set swview = swview.getnextview
set swmodelref = swview.referenceddocument
revisione = swmodelref.getcustominfovalue("", "revólver"
' Verifique se a variável rev está vazia ou é 0,0
filename = strings.left(filename, len(filename) - 7)
se revisado0,0" e revisão <> "- Não." e revisto <> " então"
filename = filename & "_rev" & revisione 'append review if not rev 0.0
terminar se
"Save as pdf
filename = strings.left(filename, len(filename)) & ".pdf"
boolstatuspdf = swexportdata.setsheets(swexportdata_exportallsheets, 1)
boolstatuspdf = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
se boolstatuspdf então
pdf = "ok"
mais
pdf = "falecido"
terminar se
"Save as dxf"
filename = strings.left(filename, len(filename) - 3) & "dxf"
boolstatusdxf = swexportdata.setsheets(swexportdata_exportallsheets, 1)
boolstatusdxf = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
se boolstatusdxf então
Dxf = "ok"
mais
dxf = "falecido"
terminar se
'mensagem de status salvo
se boolstatus <> boolstatuspdf <> em seguida,
msgbox "salvar todo o sucesso" _
& vblf & "" _
& vblf & nome do arquivo
mais
msgbox "salvar como desenho falhou" _
& vblf & "" _
& vblf & "sw draw:" & draw _
& vblf & "pdf: " & pdf _
& vblf & "dxf: " & dxf _
& vblf & "" _
& vblf & "código de erro:" & lerrors _
& vblf & "" _
& vblf & nome do arquivo
terminar se
end sub
danimecc88
Guest
Obrigado vou tentar imediatamente, enquanto eu queria perguntar se você pode me dizer de que arquivo e em que pasta a macro vai para ler o valor de rev. Imagino que seja propriedade do documento. Tendo definido um caminho de arquivo diferente do padrão, tendo compartilhado em servidores, esta macro segue esta edição ou pesquisa nos arquivos de instalação no diretório local?
edo98
Guest
Olá.
Obrigado. Eu descobri esta macro e poderia resolver alguns problemas e evitar trabalho desnecessário.
Depois de fazer alguns testes, pergunto se de alguma forma é possível salvar todos os arquivos (ou apenas aqueles selecionados de uma lista) presentes dentro de um conjunto, sem ter que importá-los um de cada vez na janela apropriada.
Muito obrigado.
saudações
Obrigado. Eu descobri esta macro e poderia resolver alguns problemas e evitar trabalho desnecessário.
Depois de fazer alguns testes, pergunto se de alguma forma é possível salvar todos os arquivos (ou apenas aqueles selecionados de uma lista) presentes dentro de um conjunto, sem ter que importá-los um de cada vez na janela apropriada.
Muito obrigado.
saudações
jenuary
Guest
não é possível, você tem que escolhê-los de explorar recursos, carregando-os na lista.
edo98
Guest
Está bem.
Obrigado pela resposta.
se houver alguma atualização planejada eu acho que seria interessante integrar esta função
Bepi1980
Guest
Obrigado muito jenuary....useful esta macro, com uma economia considerável de tempo.
tanticapelli
Guest
Eu atiro-o lá... uma macro como este terno modificado poderia exportar um arquivo de desenho composto por muitas folhas de pdf separadas tendo cada uma delas como nome de arquivo o nome da folha?
Não sei se expliquei.
Obrigado com antecedência
tantos cabelos
Não sei se expliquei.
Obrigado com antecedência
tantos cabelos
jenuary
Guest
uma macro deve ser criada para se conectar ao evento de poupança da tabela. para salvar a exportação de macro todo o pdf único de acordo com suas solicitações.
tanticapelli
Guest
ah aqui é interessante, antes de se aposentar, então vou tomar um curso específico, sempre se ainda houver tal tecnologia.
Obrigado.
tantos cabelos
pierofox12
Guest
Olá a todo este sistema de resgate pode ser feito diretamente pelo axieme aberto? no sentido ápice e fazendo o resgate, salva-me todo o pdf com o dvx das partes que fazem parte do conjunto?
jenuary
Guest
Não, não funciona com esta lógica. nasceu para sempre ter arquivos atualizados para cada salvar indiferentemente do tipo de arquivo aberto, você também tem a possibilidade de lote exportar uma lista de arquivos. se você amarrar uma macro ao evento de resgate das assembléias pode fazer o que você pede, mas a macro deve ser criada a partir do zero. tem infinitas possibilidades de uso usando o link para macros
jiji_akiko
Guest
Olá, Lorenzo.
você tentou usar o pacote sólido: "planejamento"; Não é automático, mas é suficiente que você selecione os arquivos que você precisa e você pode convertê-los / copiá-los no formato que você quer, é um processo muito rápido que usamos no escritório onde eu estou.
Dou-lhe um exemplo de aplicação: Uma vez que concluímos todos os desenhos (tipo 50 desenhos), abrimos o planejador, selecionamos a pasta com todos os desenhos, selecionamos o formato desejado (geralmente pdf) e o software executa tudo automaticamente ao trabalhar em outro.
você tentou usar o pacote sólido: "planejamento"; Não é automático, mas é suficiente que você selecione os arquivos que você precisa e você pode convertê-los / copiá-los no formato que você quer, é um processo muito rápido que usamos no escritório onde eu estou.
Dou-lhe um exemplo de aplicação: Uma vez que concluímos todos os desenhos (tipo 50 desenhos), abrimos o planejador, selecionamos a pasta com todos os desenhos, selecionamos o formato desejado (geralmente pdf) e o software executa tudo automaticamente ao trabalhar em outro.
Smoke87
Guest
mostrar, você pode tomar um parâmetro personalizado e fazê-los fazer as pastas de destino com base nisso? exemplo arquivo de um pino salvo como um centro de custo de mecanismo, fazer a tabela e ele cria uma pasta com pdf e dwg de mecanismos?