manipulando arquivos*.ARG profile

[marcio.cartacho]

olá sera que alguem tem algo que possa me ajudar com manipulação de profiles no AutoCAD atraves do VBA??? setar como corrente, deletar, importar ou exportar?

[rodrigorecco]

Olha, eu trabalho com AutoCAD e desenvolvi uma metodologia que poderia te ajudar em alguns aspectos, como não posso passar toda a metodologia para você por questões eticas e profissionais, passo pra você o code de como voce pode manipular o profile em VBA.

' Ativando profiles

ThisDrawing.Application.Preferences.Profiles.ActiveProfile = "<<ACADMPP>>"

' Deletando Profiles

ThisDrawing.Application.Preferences.Profiles.DeleteProfile = "<<ACADMPP>>"

' Exportando Profiles
ThisDrawing.Application.Preferences.Profiles.ExportProfile "<<ACADMPP>>", "C:\teste.arg"

' Copiando Profiles

ThisDrawing.Application.Preferences.Profiles.CopyProfile "<<ACADMPP>>", "<<ACADMPP_NOVO>>"

' Importando Profiles
' O ultimo argumento é opcional, pode-se ou nao deixar informacoes do local do arquivo

ThisDrawing.Application.Preferences.Profiles.ImportProfile "<<TESTE_ACAD>>", "C:\teste.arg", True

' Renomeando Profiles

ThisDrawing.Application.Preferences.Profiles.RenameProfile "<<ACADMPP>>", "<<New_ACAD_PROF>>"


Perdão pela resposta ao post antigo, mas como estou andando pelo forum vi e achei que
podia ser util, uma vez que eu as vezes dou uma olhada no forum.

Espero ter ajudado

[f_santana]

sem problemas, outra forma de mudar o ARG é setar as informações diretamente com um setenv (algumas vão via setvar) se voce abrir o arquivo ARG vai notar que ele é um arquivo de texto ACII assim voce pode encontrar todas as variaveis que voce pode configurar.

agora uma pergunta, é nessario mesmo usar o ThisDrawing para configurações externas ao arquivo?

Olha, eu trabalho com AutoCAD e desenvolvi uma metodologia que poderia te ajudar em alguns aspectos, como não posso passar toda a metodologia para você por questões eticas e profissionais, passo pra você o code de como voce pode manipular o profile em VBA.

' Ativando profiles

ThisDrawing.Application.Preferences.Profiles.ActiveProfile = "<<ACADMPP>>"

' Deletando Profiles

ThisDrawing.Application.Preferences.Profiles.DeleteProfile = "<<ACADMPP>>"

' Exportando Profiles
ThisDrawing.Application.Preferences.Profiles.ExportProfile "<<ACADMPP>>", "C:\teste.arg"

' Copiando Profiles

ThisDrawing.Application.Preferences.Profiles.CopyProfile "<<ACADMPP>>", "<<ACADMPP_NOVO>>"

' Importando Profiles
' O ultimo argumento é opcional, pode-se ou nao deixar informacoes do local do arquivo

ThisDrawing.Application.Preferences.Profiles.ImportProfile "<<TESTE_ACAD>>", "C:\teste.arg", True

' Renomeando Profiles

ThisDrawing.Application.Preferences.Profiles.RenameProfile "<<ACADMPP>>", "<<New_ACAD_PROF>>"


Perdão pela resposta ao post antigo, mas como estou andando pelo forum vi e achei que
podia ser util, uma vez que eu as vezes dou uma olhada no forum.

Espero ter ajudado

[rodrigorecco]

Opa fabio,
É o seguinte, como ninguém comentou nada de onde estaria o code eu acabei usando o Thisdrawing, porém, não há uma necessidade de usar, pode-se começar do Application.
Mas vale a dica.

sem problemas, outra forma de mudar o ARG é setar as informações diretamente com um setenv (algumas vão via setvar) se voce abrir o arquivo ARG vai notar que ele é um arquivo de texto ACII assim voce pode encontrar todas as variaveis que voce pode configurar.

agora uma pergunta, é nessario mesmo usar o ThisDrawing para configurações externas ao arquivo?

[f_santana]

perguntei porque recentemente estive em um workshop de migração de VBA para .NET e justamente o ThisDrawing vai existir alguns passos a mais para a conversão dos codigos

Opa fabio,
É o seguinte, como ninguém comentou nada de onde estaria o code eu acabei usando o Thisdrawing, porém, não há uma necessidade de usar, pode-se começar do Application.
Mas vale a dica.