Home Downloads Fóruns Pesquisas Sua Conta
Navegação
icon_home.gif HomeNovo conteúdo !
· Forums
· Equipe/Team
· Blog CADKlein Oficial
· Blog CADKlein Antigo
· Loja CADKlein
· Aulas ao vivo
· Podcast CADKlein
· Boletins CADKlein
· Galeria/Gallery
· Contato/Contact
· Recomende-nos

icon_vip.gif Membro VIPNovo conteúdo !Show/Hide content
· InformaçõesNovo conteúdo !

icon_usuarios.gif UsuáriosShow/Hide content
· Sua Conta/Account
_SOMRESTRICTEDMEMBERS Msg Privadas
_SOMRESTRICTEDMEMBERS Members_List
favoritos.gif NewsShow/Hide content
_SOMRESTRICTEDGROUP News Submission
· News Topics
· News Archive
som_downloads.gif DownloadsNovo conteúdo !Show/Hide content
· DownloadsNovo conteúdo !
icon_estatisticasl.gif InformaçõesShow/Hide content
· Pesquisas/Surveys
_SOMRESTRICTEDMEMBERS Estatísticas
· Top 10
som_downloads.gif LinksShow/Hide content
· Web LinksNovo conteúdo !
utils.gif UtilitáriosShow/Hide content
· conversor
icon_comunidade.gif EquipeShow/Hide content
· Administração do site
· Forums
nuke.gif Comunidade

CADKLein no Yahoogrupos
Faça parte de nossa lista de discussão no Yahoogrupos,
Grupo CADKLEIN.

Simplesmente digite o seu email no campo abaixo:

User Menu
Bem-vindo

Visitante

Apelido
Senha
Fazer Registro

Usuários:
Último(a): vitorpola
Pendente(s): 30
Hoje:: 0
Ontem: 0
Total: 28166

On-line Agora [0]:
Visitantes: 0
Cadastrados: 0
Usuário On-Line:


Páginas Vistas:
Hoje: 1309
Total: 19629751

Google Ads

CADKLEIN: Forums

CADKLEIN :: Exibir tópico - imprimir os layer e caracteristicas no properties manager
Main  •  FAQ  •  Search  •  User Groups  •  Profile  •  Members List  •  Private Messages
Arcade  •  Attachments  •  Buddy List  •  Ranks  •  Rules  •  Smilies List  •  Statistics  •  Staff


imprimir os layer e caracteristicas no properties manager

 
Novo Tópico   Responder Mensagem    CADKLEIN - Índice do Fórum -> AutoCAD 2D Exibir página para Impressão
Exibir mensagem anterior :: Exibir próxima mensagem  


Autor Mensagem
emonteiro
Ouro
Ouro


Registro: Feb 23, 2007
Mensagens: 302
Localização: Belo Horizonte - Minas Gerais

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 9:12:41 am    Assunto: imprimir os layer e caracteristicas no properties manager Responder com Citação Scroll Down to Next postGo to last Post of Page

Estou querendo copiar todos os layers que estão aparecendo na janela do layer properties manager, com todas as caracteristicas que aparecem nome do layer, cor, linetype, linewight, plotstyle, para o word ou outro editor de texto pra poder imprimir e verificar os layer que foram criados um a um e suas caracteristicas.
Se houver uma maneira mais fácil, tô esperando uma solução.

Obrigado

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
Ewerton
Equipe CADKLEIN
Equipe CADKLEIN


Registro: Mar 11, 2003
Mensagens: 157
Localização: Mogi das Cruzes - SP

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 1:31:43 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Fácil
Abra a janela com os Layers.
Selecione todos (Clique com botão direito e escolha Select All).
Clique com botão direito e escolha Save Layer States.
Depois dê um nome para este New Layer States e clique em OK.
Em seguida clique com o botão dirteito novamente sobre os layers e escolha Export, isso vai permitir que vc salve um arquivo com o nome Nome que você deu.LAS.
Salve em uma pasta de seu sistema.
Vá nesta pasta e dê duplo clique, abrirá o bloco de notas com a lista e o status de seu layer. Você poderá abrir também a partir do Excel.

Avise-nos se deu certo.


____________
Ewerton B Luppo
Técnico Manutenção
Petrobras - UN-RECAP
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
emonteiro
Ouro
Ouro


Registro: Feb 23, 2007
Mensagens: 302
Localização: Belo Horizonte - Minas Gerais

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 3:28:58 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Abrir a janela com os layers - OK
selecionar todos os layers - OK
escolher todos os layers e salvar com save layers estates - OK
dar um nome para o arquivo - OK
clicar com o botão direito sobre os layers e escolher export, - não apareceu esta opção, (Obs, meu autocad é um 2004 OK esqueci de informar a versão). Dai pra frente eu não consegui mais seguir os passos pois o autocad não deu a opção de exportar os aquivos

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
Ewerton
Equipe CADKLEIN
Equipe CADKLEIN


Registro: Mar 11, 2003
Mensagens: 157
Localização: Mogi das Cruzes - SP

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 3:41:54 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Ihhh, o meu aqui é 2006, antigamente tinha até o 14 em casa instalado para responder as questões, mas agora... rsrs

Vê se não tem a opção Save ou Save As

Emonteiro, descreve os botões que aparecem neste quadro de diálogo.

Em um passado recente, dei desta dica aqui mesmo no site do CADKlein, em algum post... E a versão do AutoCAD era 2004...


____________
Ewerton B Luppo
Técnico Manutenção
Petrobras - UN-RECAP
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
emonteiro
Ouro
Ouro


Registro: Feb 23, 2007
Mensagens: 302
Localização: Belo Horizonte - Minas Gerais

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 3:52:36 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Ewerton, eu estou enviando um printscrren via email OK, dá uma olhada na tela que eu enviei ok.

Grato Euller

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
Ewerton
Equipe CADKLEIN
Equipe CADKLEIN


Registro: Mar 11, 2003
Mensagens: 157
Localização: Mogi das Cruzes - SP

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 4:14:43 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Acabei de ver.
Se a opção Save Layer State não lhe permitir salvar como arquivo EULLER.LAS, tente o botão State Manager para ver se tem opção de Salvar ou exportar ou então o Show Details para visualizar os detalher e capturar os dados.


____________
Ewerton B Luppo
Técnico Manutenção
Petrobras - UN-RECAP
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
emonteiro
Ouro
Ouro


Registro: Feb 23, 2007
Mensagens: 302
Localização: Belo Horizonte - Minas Gerais

Status: Offline

MensagemEnviada: Seg 16 Abr 2007 4:36:28 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

OK, valeu, não saiu como eu queria, ficou muito desconfigurado más saiu, vou ver se consigo uma maneira de sair o que eu quero. se houver outra maneira tô na area,
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
mcm
Ouro
Ouro


Registro: Oct 04, 2003
Mensagens: 318


Status: Offline

MensagemEnviada: Ter 17 Abr 2007 5:54:41 pm    Assunto: Lista de Layers Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

emonteiro,

É básica mas deve ajudar.

Código:

;;------------------------------------------------------------ --------------------------
;; ROTINA QUE CRIA UM ARQUIVO TXT (NOTEPAD.EXE - BLOCO DE NOTAS) COM TODOS OS LAYERS
;; EXISTENTES NO DESENHO. ESTE ARQUIVO É CRIADO NO DIRETÓRIO DE FUNCIONAMENTO DO AUTOCAD
;; TÍTULO ORIGINAL LYRX.LSP RENOMEADO PARA LAYERTXT.LSP
;;----------------------------------------------------- ---------------------------------
;; Tip1776:  LYRX.LSP         LAYER STATE EXPORT    (c)2002, Lee Ambrosius
;;
;; Version 1.1
;; LYRX is a complete Layer State Export program to a text file.
;; The text file is then automatically opened for viewng and              saving
;; to a different file name.  Default file that is created              everytime
;; is LYRX.txt and is placed in the working directory of AutoCAD.

(defun
   C:LYRX ()
  ;; Grabs the value from the designated location in the DXF code
  ;; ie. (dxf 2 <ENTITY DATA>)
  (defun DXF (CODE ELIST) (cdr (assoc CODE ELIST)))
  ;; Reset CSTATE to nil and STATIS to "" (an empty string)
  (setq
    CSTATE NIL
    STATIS ""
  ) ;_ end of setq
  ;; Opening prompt of application
  (prompt "\nExporting Layer list...")
  ;; Grab very first Layer entity in Layer Table
  (setq ED (tblnext "LAYER" t))
  ;; Grab the first Layer name from table entity
  (setq LAYNAM (DXF 2 ED))
  ;; Open the LYRX.TXT file for write
  (setq FP (open "lyrx.txt" "w"))
  ;; Write the file header information
  (write-line
    "Layer name                       State                  Color           Linetype"
    FP
  ) ;_ end of write-line
  (write-line
    "--------------------------------------------------------------------- -----------------"
    FP
  ) ;_ end of write-line
  ;; Keep looping while there is an entity in the layer table
  (while (/= LAYNAM NIL)
    ;; If the Layer name is less than 32 characters then add some xtra spaces in the value
    (while (< (strlen LAYNAM) 33) (setq LAYNAM (strcat LAYNAM " ")))
    ;; Get the Layer's color State (Positive - On or Negative -  Off)
    (setq COLOR (DXF 62 ED))
    ;; Get the Layer's States (Locked and/or Frozen)
    (setq STATIS (DXF 70 ED))
    ;; Get the Layer's Line Type name
    (setq LTYPE (DXF 6 ED))
    ;; Gets the Layers Color Value
    (setq COLORT (itoa (abs COLOR)))
    ;; COLOR is a Negative Value so layer is Off
    (if (< COLOR 0)
      (setq CSTATE "Off")
    ) ;_ end of if
    ;; COLOR is a Positive Value so layer is On
    (if (> COLOR 0)
      (setq CSTATE "On")
    ) ;_ end of if
    ;; Layer is in the states of Locked and Frozen
    (if (or (= STATIS 69) (= STATIS 5) (= STATIS 53))
      (setq STATIS "/Locked and Frozen")
    ) ;_ end of if
    ;; Layer is in the state of Locked
    (if (or (= STATIS 68) (= STATIS 4) (= STATIS 52))
      (setq STATIS "/Locked")
    ) ;_ end of if
    ;; Layer is in the state of frozen
    (if (or (= STATIS 65) (= STATIS 1) (= STATIS 49))
      (setq STATIS "/Frozen")
    ) ;_ end of if
    ;; Layer is in the states of Unlocked and Thawed
    (if (or (= STATIS 0) (= STATIS 48) (= STATIS 16))
      (setq STATIS "")
    ) ;_ end of if
    ;; If the Layer states are less than 23 characters then add some extra spaces in the value
    (setq LYRSTATE (strcat CSTATE STATIS))
    (while (< (strlen LYRSTATE) 24)
      (setq LYRSTATE (strcat LYRSTATE " "))
    ) ;_ end of while
    ;; If the Layer color is less than 14 characters then add some extra spaces in the value
    (while (< (strlen COLORT) 15) (setq COLORT (strcat COLORT " ")))
    ;; Write layer information out to the LYRX.TXT file
    (write-line (strcat LAYNAM LYRSTATE COLORT LTYPE) FP)
    ;; Reset CSTATE to nil and STATIS to "" (an empty string)
    (setq
      CSTATE NIL
      STATIS ""
    ) ;_ end of setq
    (setq LYR_DATA (strcat LAYNAM LYRSTATE COLORT LTYPE))
    ;; Grab the next Layer entity in Layer Table
    (setq ED (tblnext "LAYER"))
    ;; Grab the Layer name from table entity
    (setq LAYNAM (DXF 2 ED))
  ) ;_ end of while
  ;; Close the file LYRX.TXT for write
  (close FP)
  ;; Launch NotePad with the LYRX.TXT file
  (startapp "notepad.exe" "lyrx.txt")
  (princ)
) ;_ end of defun

(defun
   C:LYRX? ()
  (textscr)
  (prompt "\n")
  (prompt
    "\nCreated by Lee Ambrosius, HyperPics all rights reserved."
  ) ;_ end of prompt
  (prompt "\nVisit HyperPics on the web at: www.hyperpics.com")
  (prompt "\nDate: 3/14/00")
  (prompt "\n")
  (prompt "\nVersion 1.1")
  (prompt "\n")
  (prompt
    "\nLYRX is a complete Layer State Export program to a text file."
  ) ;_ end of prompt
  (prompt
    "\nThe text file is then automatically opened for viewing and saving"
  ) ;_ end of prompt
  (prompt
    "\nto a different file name.  The default file, which is created each time, "
    ) ;_ end of prompt
  (prompt
    "\nis LYRX.txt and is placed in the working directory of AutoCAD."
  ) ;_ end of prompt
  (prompt "\n")
  (princ)
) ;_ end of defun

(prompt "\n")
(prompt "\nCopyright(c) 2000 Layer Export tool.")
(prompt "\nAll rights reserved by HyperPics, www.hyperpics.com .")
(prompt "\nDigite LYRX para criar a lista de Layers.")



[]s,

Márcio

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
LuKlein
Equipe CADKLEIN
Equipe CADKLEIN


Registro: Feb 27, 2003
Mensagens: 2737
Localização: Brasil

Status: Offline

MensagemEnviada: Sex 20 Abr 2007 9:43:52 am    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Outra maneira mais "rústica" é digitar:
-layer e dar enter
? e dar enter
e ir dando enter, vai aparecer uma lista na janela de texto, expanda a janela (F2), copie e cole no bloco de notas ou word e imprima, veja um exemplo:

Command: -layer
Current layer: "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Tha w/LOck/Unlock
/stAte]: ?
Enter layer name(s) to list <*>:
Layer name State Color Linetype Lineweight
------------------ ----------- ------------------ ------------ ------------
"0" on -P 7 (white) "Continuous" Default
"Layer1" off -P 1 (red) "Continuous" Default
"Layer2" Frozen -P 2 (yellow) "Continuous" Default
"Layer3" on -L-P 3 (green) "Continuous" Default
"Layer4" off -L-P 4 (cyan) "Continuous" Default

"Layer5" Frozen -P 5 (blue) "Continuous" Default
"Layer6" Frozen -L-P 6 (magenta) "Continuous" Default
"Layer7" Frozen -L-P 7 (white) "Continuous" Default
"Layer8" on -P 8 "Continuous" Default
Current layer: "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Tha w/LOck/Unlock
/stAte]:


____________
Abraços,
Luciana Klein
Sócia-Fundadora CADKlein
Autodesk Expert Elite
Autora Livros AutoCAD:
2006 2D, 2008 2D/3D
2010 2D/3D, 2012 2D/3D
AutoCAD 2009/10/11/12/13 Certified Professional/Associate
www.lucianaklein.com/loja
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email Visitar a homepage do Usuário

Autor Mensagem
emonteiro
Ouro
Ouro


Registro: Feb 23, 2007
Mensagens: 302
Localização: Belo Horizonte - Minas Gerais

Status: Offline

MensagemEnviada: Sex 20 Abr 2007 10:15:14 am    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Lú sua resposta é sempre prática e boa, foi mais rápido e saiu como eu queria.

Obrigado.

Agora, eu tenho uns layers que migraram de um outro desenho que não querem deletar, como eu excluo eles?

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger

Autor Mensagem
LuKlein
Equipe CADKLEIN
Equipe CADKLEIN


Registro: Feb 27, 2003
Mensagens: 2737
Localização: Brasil

Status: Offline

MensagemEnviada: Sex 20 Abr 2007 10:18:19 am    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous post

Smile

Obrigada!

Dá uma olhada na minha resposta quanto à sua outra pergunta aqui:
http://www.cadklein.com/modules.php?name=Forums&file=viewtopic&p=7632#7632


____________
Abraços,
Luciana Klein
Sócia-Fundadora CADKlein
Autodesk Expert Elite
Autora Livros AutoCAD:
2006 2D, 2008 2D/3D
2010 2D/3D, 2012 2D/3D
AutoCAD 2009/10/11/12/13 Certified Professional/Associate
www.lucianaklein.com/loja
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email Visitar a homepage do Usuário

Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    CADKLEIN - Índice do Fórum -> AutoCAD 2D Todos os horários são GMT - 3 Hours
Página 1 de 1

Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.

Related topics
 Tópicos   Respostas   Autor   Exibições   Última mensagem 
Não há mensagens novas Quem é Quem??? 93 abroba 35075 Seg 23 Jul 2012 2:36:35 pm
weder_nti Exibir a última mensagem
Não há mensagens novas Lisp para mudar todos os objetos de uma layer selecionada! 24 luislhss 10000 Dom 01 Mai 2011 6:50:36 pm
luislhss Exibir a última mensagem
Não há mensagens novas Alguem tem uma lip que faz isso 5 eliselsoares 4875 Qui 04 Dez 2008 11:46:00 am
eliselsoares Exibir a última mensagem
Não há mensagens novas Linhas estão nos layers,mas só apracem na cor cinza 3 Cadista_free 2371 Qui 30 Out 2008 5:24:05 pm
Cadista_free Exibir a última mensagem
Não há mensagens novas unificando boundarys que estão juntas 1 Ismaeldoxp 2139 Qua 06 Fev 2008 9:42:34 am
LuKlein Exibir a última mensagem
 


Powered by phpBB 2.0.10 © 2001-2003 phpBB Group

T-Platinum v.2.0.0 © TechGFX.com
Forums ©

Todos os logos e marcas registradas são propriedade de seus respectivos proprietários. Os comentários são propriedade e responsabilidade de seus autores,
todo o resto © 2002, 2003, 2004 e 2005 - Equipe CADKLEIN.
Você pode ter o conteúdo deste portal/fórum acessando os arquivos Backend?s (RSS) Conteúdo de nossos artigos em seu portal Conteúdo de nosso fórum em seu portal


PHP-Nuke Copyright © 2004 by Francisco Burzi. This is free software, and you may redistribute it under the GPL.
PHP-Nuke comes with absolutely no warranty, for details, see the license.
Powered by PHP-Nuke Platinum

Tempo para gerar esta página: 1.01 segundos
TechGFX