See the top rated post in this thread. Click here

Results 1 to 4 of 4

Thread: Renomear LAYOUTS

  1. #1
    Member
    Join Date
    2005-04
    Posts
    11
    Login to Give a bone
    0

    Default Renomear LAYOUTS

    Boas,
    Tenho varios desenhos compostos por varios LAYOUTS, agora precisava de uma rotina que me alterasse(substitui-se) o nome dos Layouts. Alguem pode-me dar uma ajuda?
    Obrigado

  2. #2
    Member
    Join Date
    2008-08
    Location
    Brazil.
    Posts
    41
    Login to Give a bone
    0

    Default Re: Renomear LAYOUTS

    Quote Originally Posted by ruimantunes View Post
    Boas,
    Tenho varios desenhos compostos por varios LAYOUTS, agora precisava de uma rotina que me alterasse(substitui-se) o nome dos Layouts. Alguem pode-me dar uma ajuda?
    Obrigado
    Estamos neste fórum é para ajudar, sobre seu pedido é necessário que nos diga se vai alterar os nome de uma única vez com nomes seqüenciais, exemplo: LT01, LT02, LT03, ou se irá alterar manualmente um por um.

    Abrs.

  3. #3
    Member
    Join Date
    2008-08
    Location
    Brazil.
    Posts
    41
    Login to Give a bone
    1

    Default Re: Renomear LAYOUTS

    Fiz este LISP, dê uma olhada se ajuda em algo ... abrs

    (defun c:rlayout()
    (setvar "cmdecho" 0)

    (setq LISLAYOUTS(layoutlist))
    (setq CT(length LISLAYOUTS))

    (setq POS 0
    CLT 1)

    (while(/= POS 1)(progn
    (setq OP(getint "\nAutomático[1] Manual[2]\n"))
    (if(= OP 1)(progn
    (setq NLT(getstring "\nNome automático a ser usado: "))
    (while(/= CT 0)(progn
    (if(= CT 0)
    (setq CT CT)
    (setq CT(- CT 1))
    )
    (setq LAYOUT(nth CT LISLAYOUTS))
    (command "LAYOUT" "r" (nth CT LISLAYOUTS) (strcat NLT (rtos CLT 2 0)))
    (setq CLT(+ CLT 1))
    ))
    ))
    (if(= OP 2)(progn
    (while(/= CT 0)(progn
    (if(= CT 0)
    (setq CT CT)
    (setq CT(- CT 1))
    )
    (prompt (strcat "No layout " (rtos (setq PCT(+ CT 1)) 2 0) " "))
    (setq NLT(getstring " Qual nome a ser usado: "))
    (setq LAYOUT(nth CT LISLAYOUTS))
    (command "LAYOUT" "r" (nth CT LISLAYOUTS) (strcat NLT (rtos CLT 2 0)))
    (setq CLT(+ CLT 1))
    ))
    ))
    (setq POS 1)

    ))

    (prompt "\nilha4.com\\dicionariolisp sua lista de comando AUTOLISP")
    (princ)
    )

  4. #4
    Member
    Join Date
    2005-04
    Posts
    11
    Login to Give a bone
    0

    Default Re: Renomear LAYOUTS

    Marangoni,
    Desde já obrigado pela atenção disponibilizada, a minha intenção é renomear todos os Layouts de uma unica vez.Eu tenho os desenhos a numerar com fields em que o layout numera automático, quando por exemplo passo de Estudo Previo para Projecto de Execução dá muito jeito.Gostaria mesmo de ter uma rotina que me altera-se os desenhos todos.Tenho desenhos só com um Layout e outros compostos por varios Layouts.Vou testar o seu Lisp e obrigado.
    RAntunes

Similar Threads

  1. Layouts
    By david.brissenden in forum AutoCAD General
    Replies: 4
    Last Post: 2011-08-24, 01:25 PM
  2. help with layouts
    By cferguson2 in forum AutoCAD General
    Replies: 7
    Last Post: 2009-07-13, 02:52 PM
  3. How do you name your layouts?
    By GreyHippo in forum CAD Management - General
    Replies: 6
    Last Post: 2006-03-24, 12:08 AM
  4. Layouts
    By bob.60725 in forum AutoCAD General
    Replies: 3
    Last Post: 2005-02-18, 08:15 PM
  5. We don't use Layouts (PS)
    By jshipley in forum AutoCAD Sheet Set Manager
    Replies: 9
    Last Post: 2004-09-13, 09:32 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •