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
|
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
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)
)
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