nmareis escreveu:
Venho pedir a vossa ajuda para encontrar um Lisp para fazer a inserção de molduras que estão num outro desenho ( no layout ) em qualquer desenho que se esteja a trabalhar, escrevendo a respetiva rotina.
Olá nmareis,
tens que nos explicar um pouco mais o que pretendes.
- as molduras são blocos?
- o outro dwg tem uma localização fixa?
- as molduras têm todas o mesmo tamanho, se não, o nome do bloco tem relação com o tamanho?
Se for possivel e não confidencial, anexa um dwg com as molduras tipo, que assim será mais facil de compreender...
Henrique
nmareis escreveu:
As molduras estão num ficheiro num local fixo sim..os dwgs onde trabalho e onde irei colocar as molduras não tem local certo.
As molduras estão num ficheiro dwg nas abas dos layouts....e não são blocos.
As molduras são de tamanhos diferentes: A4, A3, A2..
poderei criar blocos com as respetivas molduras, mas preferia inserilas nos layouts tal como elas estão no desenho de origem.
nmareis,
quando eu perguntei, se as molduras eram blocos, foi porque se forem blocos, poderemos utilizar ObjectDBX para abrir o dwg, copiar a definição do bloco para o nosso dwg atual, inserir e explodir...
Como objectos soltos (linhas, polilinhas...) não estou a ver como importar apenas a moldura... 
Pode ser que mais alguem intervenha e forneça uma solução diferente... 
Henrique
nmareis escreveu:
...
As molduras são de tamanhos diferentes: A4, A3, A2..
poderei criar blocos com as respetivas molduras, mas preferia inserilas nos layouts tal como elas estão no desenho de origem.
...
nmareis,
uma outra aproximação, poderá ser copiar o layout, e criar um novo layout a partir desse desenho em que tens as molduras...
e.x.
(command "_.-layout" "_T" "C:\\caminho\\completo\\BaseLayouts.dwg" "A1")
BaseLayouts = nome do desenho com as molduras
A1 = nome do layout a copiar
Depois, com o comando '-layer' podes renomear o recente layout para o nome que mais convier...
Espero que ajude
Henrique
Na mensagem anterior, onde se lê:
Depois, com o comando '-layer' podes...
deveria ser
Depois, com o comando '-layout' podes...
Henrique
Depois, com o comando '-layer' podes...
deveria ser
Depois, com o comando '-layout' podes...
Henrique
Talvez algo assim...
(defun c:A3 nil (command "_.-layout" "_T" "C:\\Users\\Nelson Reis\\Desktop\\Trabalhos\\localização\\folhas.dwg" "A3") (princ) )
Espero que ajude
Henrique
Solução aceita
nmareis escreveu:
(command "_.-layout" "_T" "C:\\Users\\Nelson Reis\\Desktop\\Trabalhos\\localização\\folhas.dwg" "A3")queria colocar de forma a que no comando do autocad apenas digitar A3...e o layout é puxado para o desenho..
nmareis,
tambem podes definir uma função mais genérica e sub-funções para os nome dos layouts, para não teres que escrever sempre o caminho completo do ficheiro a copiar...
(defun My_Layout (lyt / echo) (setq echo (getvar 'cmdecho)) (setvar 'cmdecho 0) (command "_.-layout" "_T" "C:\\Users\\Nelson Reis\\Desktop\\Trabalhos\\localização\\folhas.dwg" lyt) (setvar 'cmdecho echo) ) (defun c:A4 nil (My_Layout "A4") (princ) ) (defun c:A3 nil (My_Layout "A3") (princ) ) (defun c:A2 nil (My_Layout "A2") (princ) ) (defun c:A1 nil (My_Layout "A1") (princ) )
Espero que ajude
Henrique
nmareis escreveu:
é o maior colega...foi tiro e queda...está a bombar na boa....thaaannkkkssss
nmareis, fico feliz por ter podido ajudar!
Henrique
nmareis escreveu:
esquece colega já consegui perceber o que era...obrigadão...está resolvido...abraço
Fico feliz, que tudo esteja resolvido!
Henrique