Lisp para Inserir Molduras

[Anonymous]

Bom dia caros utilizadores,

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.

Agradeço a vossa atenção,

Obrigado

[hmsilva]

---

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

[Anonymous]

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.

Obrigado,

[hmsilva]

---

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

[hmsilva]

---

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

[hmsilva]

Na mensagem anterior, onde se lê:
Depois, com o comando '-layer' podes...
deveria ser
Depois, com o comando '-layout' podes...

Henrique

[Anonymous]

oas não consigo meter isto a funcionar...será que me podes ajudar mais um pouco?.

Obrigado.

tenho isto assim 

(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..

Obrigado

[hmsilva]

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

[hmsilva · Accepted solution]

---

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

[Anonymous]

é o maior colega...foi tiro e queda...está a bombar na boa....thaaannkkkssss

[hmsilva]

---

nmareis escreveu:
é o maior colega...foi tiro e queda...está a bombar na boa....thaaannkkkssss

---

nmareis, fico feliz por ter podido ajudar!

Henrique

[Anonymous]

viva colega o script funciona perfeitamente, mas qual foi o meu espanto...quando fecho este desenho tenho sempre que o ir buscar pk não carrega automático com o autocad???...mas porque será?...o autocad é o 2014...no 2007 no trabalho carregam todos...não percebo fogo....se me puderes ajudar?...obrigado..

[Anonymous]

esquece colega já consegui perceber o que era...obrigadão...está resolvido...abraço

[hmsilva]

---

nmareis escreveu:
esquece colega já consegui perceber o que era...obrigadão...está resolvido...abraço

---

Fico feliz, que tudo esteja resolvido!

Henrique