• Este fórum é a tradução automática de www.cad3d.it/forum1 - a comunidade italiana de design. Vários termos não foram traduzidos corretamente.

Renomear um bloco rapidamente

GP.

Guest
além do comando de renomeação e outro lisp já postado no fórum, eu anexo uma mina para rinomize b)locchi rapidamente, como na abertura da caixa de diálogo o nome atual é repetido, também para facilitar possíveis pequenas mudanças no mesmo sem ter que digitá-lo.

Não.
 

Anexos

  • RB.zip
    RB.zip
    1.3 KB · Visualizações: 229
Última edição:
pequena atualização:

- definir o padrão para ok, agora você pode confirmar enviando após digitar o texto, sem clicar novamente na caixa;

- entrou no controle sobre nomes de blocos existentes;

- Não. 02/04/2008 caixa ampliada para digitar o nome do bloco.

O que se passa?
 

Anexos

Última edição:
Olá a todos, eu sei que esta conversão é um pouco datado, mas diz respeito a este lisp....
Eu carreguei tanto rb.vlx si "copyrenameblockv1-5.lsp" ambos renomear o bloco, mas o resultado é diferente: o primeiro, renomear todos os blocos desse arquivo com o novo nome (como se fosse um renome, mas com um ganho de tempo não indiferente); a segunda cópia um bloco existente no projeto criando um novo com nome diferente, o bloco de origem ainda permanece.

em uso eu percebi que ambos são muito úteis, o problema é que ambos se referem a rb como um comando... você não pode mudar um dos dois para cobrar ambos automaticamente! ?

Muito obrigado.
 
Esta é a versão mais recente do lisp, você também pode renomear blocos dinâmicos e criar / renomear blocos anônimos.
Vou pô-lo "claro", por isso, se quiseres podes mudar o nome para o comando.
 

Anexos

  • RB.LSP
    RB.LSP
    5.1 KB · Visualizações: 281
Eu tinha feito há muito tempo uma lista para substituir os blocos, selecionando-os para agradar, com outros blocos diferentes.
Não sei se o autocad o faz agora, por isso, lugar.
...
(defun replace())
(setq memblock 0)
(prompt "\replaces blocos selecionados <point cro="" las="" pre="" win="">"
(setq selez(sget))
(se)
(progn)
(setq l(sslength selez))(setq l(1- l)))(setq a 0))
(enquanto (< = a l)
(progn)
(enome setq(sname selez a))
(setq alist (entget ename)
(se (= "inserir"(cdr(assoc 0 alist))))))
(progn)
(setq bn (cdr (assoc 2 alist)); obter o nome do bloco
; (prompt (strcat bn) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(setq newname (getstring ( strcat "insert new block name for "bn" : "))))))))
(setq alist (subst (cons 2 newname) (assoc 2 alist ))
(se (entmod alist) (setq mes " ok.") (setq mes ", mas que **** novamente você escreveu? Não.")
(setq memblock)
)
)
)
(setq a(1+) (a)
)
)
(se (/= memblock 0)
(progn)
(prompt "\nblocks to reload found.\n")
(prompt (strcat mes)
)
(prompt "\nblocks to recharge not found. "
)
)
)
) ;</point>
 
Gp, o teu lisp eu uso-o diariamente! Obrigado!

outro lisp Eu muitas vezes uso é o de leemac, que permite mudar o ponto de inserção de um bloco: por exemplo, quando foi criado incorretamente e está localizado a um km de distância do projeto do próprio bloco, ou quando você quer mudar o ponto de ter centralizado.
os gifs animados que a grande lee coloca em seu site, são auto-explicativos!
 

Estatísticas do fórum

Tópicos
58,521
Mensagens
499,056
Membros
104,110
Último membro
ChristianR

Membros online

Nenhum membro online agora.
Voltar
Topo