Renommer un BLOC clic-droit

[Neo83]

Bonjour à tous,

Au lien suivant:

http://www.cadxp.com/XForum+print-fid-75-tid-11277.html?POSTNUKESID=a35934661a42bbe0d1649801fe68ab8f

 

On trouve ce lisp, donné par Patrick_35, qui permet de renommer les blocs avec le clic droit droit de la souris.

Mais j'ai le message d'erreur suivant :

 

Commande: Initialisation du système VBA...; erreur: Erreur Automation Clé

introuvable

Spécifiez le coin opposé: *Annuler*

 

Avez vous une idée d'où cela provient?

Merci pour vos réponses.

 

[Invité Patrick]

J'avais publié cette astuce il y plusieurs années:

 

**OBJECT_BLOCKREF

[Menu contextuel de l'objet BLOC]

ID_Ddrename [&Renommer]^P(setvar "USERS1" (cdr (assoc 2 (entget (ssname (cadr (ssgetfirst)) 0)))));_-RENAME;BL;(getvar "USERS1")

 

Du code à ajouter à votre menu contextuel qui vous permet de renommer un bloc par clic droit.

[Neo83]

Patrick,

Je vous remercie de votre réponse.

Comment j'integre votre ligne de commande à mon menu contextuel.

Avec la commande CUI...?

[Invité Patrick]

Oui ça passe par le CUI.