NOM DE BLOC

[ASCQUI]

BONJOUR

EST IL POSSIBLE DE CHANGER LE NOM D UN BLOC SANS POUR CELA DECOMPOSER.

 

[Eric]

Oui grâce à la commande renommer

 

[ASCQUI]

SUPER MERCI

TU M AS FAIS GAGNER PRESQUE UNE SEMAINE DE BOULOT

MERCI ENCORE :) :) :)

[Krynn]

Je te propose aussi un petit LISP, pas forcement programmé tres proprement, mais efficace.

cliquer sur le bloc, puis tapper son nouveau nom.

Tres utile pour les blocs fait avec copier-coller.

 

;;           ***** RENAME_BLOC.LSP *****
;;
;;   permet de changer de nom en bloc en cliquant dessus.
;;   Tres utile :-).
;;
;;   D. GOEL, Architram, 23 novembre 2004
;;


; ---------- PROGRAMME PRINCIPALE ----------
(defun c:RENAME_BLOC (/ ent_carac nombloc newnombloc)
(princ "\n\t-----  rename_bloc.lsp - nov. 2004 - par Damien GOEL - vers. 0.9beta  -----")


 ; ----- SELECTION SURFACE -----

(setq selectobj (entsel "\nSelectionner le bloc à renommer: "))
(setq ent_carac (entget (car selectobj)))
(setq nombloc (cdr (assoc 2 ent_carac)))
(setq newnombloc (getstring T (strcat "\nDonnez un nouveau nom au bloc \"" nombloc "\": ")))
(command "_-rename" "_BL" nombloc newnombloc)
(princ (strcat "\nLe nom du bloc \"" nombloc "\" à été changé en \"" newnombloc "\"."))
(princ)
)

; --------------- AFFICHAGE AU MOMENT DU CHARGEMENT --------------

(princ "\n\tC:renommer bloc chargé. Taper RENAME_BLOC pour lancer la commande.")
(princ)

; --------------- FIN -------------- 

 

 

c'est plus repide que de tapper lisp pour prendre le nom du bloc, puis renommer, et d'appuyer sur plein de bouton :-)

 

C'est pas le forum LISP, mais comme ca peut servir.

 

Bonne journée