renommer des blocs

[fograf02]

bonjour,

 

je cherche un lisp pour renommer des blocs en cliquant dessus.

ils sont du genre A$C27D06409

 

'rename' est long parce que je dois chercher dans la liste comment le bloc s'appelle.

 

donc je cherche un truc du genre on clique sur le bloc, il demande le nouveau nom, on le tape et hop, c'est fait

 

merci

[lili2006]

Bonsoir à toutes et tous,

 

Un truccomme ça ?

 

(defun c:cnbloc (/ bloc anciennom nouveaunom js x nom_ent ent name)
(while (or
(not (setq bloc (car (entsel "\nSélectionner un bloc :"))))
(/= (cdr (assoc 0 (entget bloc))) "INSERT")
)
)
(setq anciennom (cdr (assoc 2 (entget bloc))))
(princ "\nVoici le nom actuel:")
(print anciennom)
(setq nouveaunom (getstring "\nIndiquez le nouveau nom :"))


;VERIFICATION DU NOUVEAU NOM

(setq js (ssget "X" '((0 . "INSERT"))))
(sslength js)
(setq x 0)
(while (/= x (sslength js))
(setq nom_ent (ssname js x))
(setq ent (entget nom_ent))
(setq name (cdr (assoc '2 ent)))
(if
(= name nouveaunom)
(progn
(while
(= name nouveaunom)
(alert "Ce nom de bloc existe déjà")
(setq nouveaunom (getstring "\nIndiquez le nouveau nom :"))
)
)
)
(setq x (+ x 1))
)
(command "-renommer" "bl" anciennom nouveaunom "")
) 

[fograf02]

merci Lili2006, ca va beaucoup mieux.

 

l'ideal: une fenetre qui s'ouvre a l'ecran pour demander le nouveau nom du bloc, pour gagner le temps de cliquer sur la ligne de texte. (oui je sais je pinaille, mais j'en ai bcp a changer)

 

enfin de toute facon, merci

[Arcasdk]

Et les droits d'auteur alors??????

[lili2006]

Bonsoir à toutes et tous,

 

Désolé Arcasdk mais impssible de me rapeller d'ou venait ce lisp fort utile en son heure, encore la preuve ici,

 

Une occasion de rebondir et de le faire évoluer ? ;)

 

l'ideal: une fenetre qui s'ouvre a l'ecran pour demander le nouveau nom du bloc, pour gagner le temps de cliquer sur la ligne de texte. (oui je sais je pinaille, mais j'en ai bcp a changer)

[Arcasdk]

Y a pas de souci. Je vois que même avec mes modestes connaissances, j'arrive à être utile. ^^

[lili2006]

Bonjour à toutes et tous,

 

Je vois que même avec mes modestes connaissances, j'arrive à être utile. ^^

 

tous le monde à son "petit" niveau peut en aider d'autre,....

 

Et c'est ça qui est génial sur ce site, :P