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