Donner un nom aux blocs anonymes

[LUDWIG]

Bonjour,

 

Sauriez-vous donner un nom aux blocs anonymes ?

 

J'ai essayé :

 

[b] Si le bit 1 du drapeau 70 a la valeur 1, le passe à 0[/b]
(if (/= (logand (cdr(assoc 70 (tblsearch "block" bloc_nom))) 1) 0)
 (setq bloc_prop (subst (cons 70 (-(cdr(assoc 70 (tblsearch "block" bloc_nom)))1)) (assoc 70 bloc_prop) bloc_prop)))						

[i] 70  Drapeaux par type de bloc (valeurs binaires pouvant être combinées) : 
1 = Ce bloc anonyme est généré par une opération de hachage, de cotation associative ou tout autre type d'opération, ou par une application[/i]

[b] Si le nom du bloc commence par *, le renomme sans *[/b]		      
(if (= (substr bloc_nom 1 1) "*")
(setq bloc_prop (subst (cons 2 (substr bloc_nom 2 (strlen bloc_nom))) (assoc 2 bloc_prop) bloc_prop)))

(entmod bloc_prop)

 

Mais les blocs de mon dessin restent anonymes !

 

Pourriez-vous m'aider ? Merci d'avance.

 

[Edité le 28/4/2005 par LUDWIG]

[LUDWIG]

Je n'arrive même pas à sélectionner un bloc anonyme particulier avec

 

(ssget "X" '((2 . "*U9")))

 

pourtant ce bloc a bien un nom qui apparaît dans les propriétés...

[bonuscad]

Voici un extrait de l'aide:

Utilisation de caractères génériques dans les critères de filtre

 

Utilisez l'apostrophe fermante (`) lorsque vous souhaitez indiquer que le caractère suivant n'est pas un caractère générique.

Par exemple, pour indiquer que seul un bloc anonyme appelé "*U2" doit être inclus dans la sélection, utilisez les arguments suivants :

 

FilterType(0) = 2

FilterData(0) = "`*U2"

[LUDWIG]

ARGH oui ça marche...

 

J'ai bataillé un bon moment avant de comprendre que l'apostrophe fermante, ce n'est pas celle sur la touche 4 du clavier mais celle sur la touche 7 (alt Gr + 7).

 

Merci

[LUDWIG]

Merci, ça m'a permis de finir mon lisp : Redéfinir les points d'insertion mal placés des blocs