Hoje eu precisei renomear uns blocos anônimos, sabe aqueles, com nomes tipo *U32 e coisas do tipo Aí eu pensei, será que dá? Afinal, normalmente a gente só dá um purge e já era, hehehe Tentei o comando RENAME, mas… os nomes não estavam ali!!! Pensei num lispezinho básico, funcionou, heehehe
acho que poderá ser útil para mais alguem:
acho que poderá ser útil para mais alguem:
(DEFUN C:RENOMEIA (/ ENT NOME VLA ACAD DOC LST)
(VL-LOAD-COM)
(SETQ ENT (CAR (ENTSEL “nSelecione o bloco”))
NOME (GETSTRING t “nQual o nome novo?”)
VLA (VLAX-ENAME->VLA-OBJECT ENT)
ACAD (VLAX-GET-ACAD-OBJECT)
DOC (VLA-GET-ACTIVEDOCUMENT ACAD)
LST (VLA-GET-BLOCKS DOC)
REF (VLA-ITEM LST (VLA-GET-NAME VLA))
)
(VLA-PUT-NAME REF NOME)
)
É isso!!, Só pra desenferrujar, hehhehe deverá funcionar no cad 2000 em diante
tenta o AUDIT então. pois se agora tem nome, deveria funcionar…
Olá Neyton, trabalho no cad 2009, o bloco renomeou, mas continua naum existindo e naum tem como editar ele…grato
bom demais cara… acabou de me salvar kkkkkkk