Trocando cores de entidades dentro de blocos

[henrique.oliveira]

Olá, Pessoal,

Tenho o seguinte problema: tenho desenhos convertidos do Inventor para AutoCAD que, por uma limitação do Inventor, algumas entidades que ficam dentro de blocos vêm com cores do tipo RGB, em vez das cores indexadas de longa data.

Por exemplo, a linha não fica com a cor 7 - White, e sim com a cor 255,255,255 - que na hora de visualizar na tela não tem diferença nenhuma, só que na hora de imprimir elas somem...

Eu poderia simplesmente mudar o arquivo .CTB da impressão, mas isso resolve para mim. Se eu mandar esse desenho para outro escritório, vai dar o mesmo problema.

Tentei editar a propriedade de todos as entidades Objeto.TrueColor.ColorMethod para acColorMethodByACI usando o VBA, mas achei alguma coisa na documentação dizendo que eu tenho que explodir os blocos para fazer isso... eu não quero explodir os blocos.

Parti para o AutoLISP, encontrei estas rotinas aqui:
http://www.menziengineering.ch/Downloads/Download.htm
mas toda vez que tento rodar uma delas eu recebo o erro "Automation Error".

Alguém tem alguma sugestão de como fazer isso??

Obrigado!!

[f_santana]

já pensou em uma rotina que leia a lista de blocos
crie uma relação deles entre em cada bloco pelo blockeditor
edite o que voce quer
feche o bloco salvando
e repita tudo com um outro bloco?

Olá, Pessoal,

Tenho o seguinte problema: tenho desenhos convertidos do Inventor para AutoCAD que, por uma limitação do Inventor, algumas entidades que ficam dentro de blocos vêm com cores do tipo RGB, em vez das cores indexadas de longa data.

Por exemplo, a linha não fica com a cor 7 - White, e sim com a cor 255,255,255 - que na hora de visualizar na tela não tem diferença nenhuma, só que na hora de imprimir elas somem...

Eu poderia simplesmente mudar o arquivo .CTB da impressão, mas isso resolve para mim. Se eu mandar esse desenho para outro escritório, vai dar o mesmo problema.

Tentei editar a propriedade de todos as entidades Objeto.TrueColor.ColorMethod para acColorMethodByACI usando o VBA, mas achei alguma coisa na documentação dizendo que eu tenho que explodir os blocos para fazer isso... eu não quero explodir os blocos.

Parti para o AutoLISP, encontrei estas rotinas aqui:
http://www.menziengineering.ch/Downloads/Download.htm
mas toda vez que tento rodar uma delas eu recebo o erro "Automation Error".

Alguém tem alguma sugestão de como fazer isso??

Obrigado!!

[henrique.oliveira]

Seria ótimo!

Mas dá para entrar no blockeditor pelo VBA? Como faço isso?

Eu tentei ir pelo Lisp porque por lá eu sei que dá para editar os blocos... mas não sei entrar nas entidades que formam os blocos pelo VBA...

Se puder me dar uma luz, eu agradeço!!