[Résolu] Recherche de la variable couleur par défaut.

[stugeol]

Bonjour,

Dans le cadre du dévelopement d'une macro j'aimerais récupérer la valeur de la variable couleur par défaut.

Quan je lance la commande:

-Couleur

j'obtient :

Entrez la couleur par défaut de l'objet [coUleursvraie.Carnet de couleurs <255> :

La couleur par défaut est enregistrée.

Le but est de faire une macro du type :

^^C_chprop D Co xxx, où xxx permet de récuperer la valeurs de la couleur par défaut dans cet exemple 255.

Je vous remercie par avance.

Cordialement.

[Tramber]

CECOLOR

[vincentp010]

Salut,

 

la couleur par défaut est stockée dans la variable CECOLOR

[stugeol]

Je vous remercie, c'est bien la variable rechercher.

Maintenant comment passer la valeur de cette variable à la commande -couleur par exemple?

!CECOLOR me retourne nil.

[Tramber]

C'est marrant qu'on mette souvent un "L" dans mon pseudo (mais c'est sans importance).

Tu veux dire qu'il faudrait un

 

^C^Cchprop;d;;co;$M=$(getvar,clayer);;

 

?

A tester, je suis une bille en Diesel

Modifié le 22 novembre 2012 par Tramber
bbcode

[Eric]

Ca ne serait pas plutôt

 

^C^Cchprop;d;;co;$M=$(getvar,cecolor);;

[Tramber]

Oups !

Je tremble encore, j'ai eu une allergie cette nuit (paracétamol ou cacahuètes, je ne sais pas encore).... et je suis un peu "out" aujourd'hui.

Je me demandais pourquoi mon test foirait !

Heureusement qu'il y a des gens plus sérieux que moi ici B)

[stugeol]

Je vous remercie, celà fonctionne à merveille.

J'ai pousser un peut plus loin :

Voici le resultat un lisp qui qui permet de copier des éléments des xref dans le calque actif avec la couleur par défaut:, la commande NCOPY est une commande expres tools :

 

(Defun C:CopXref ()

(setq test1 0)

(

While (> -1 text1)

(command "NCOPY" pause "" "0,0,0" "")

(command "_laycur" "D" "")

(

if (= (getvar "CECOLOR") "BYLAYER")

(command "_chprop" "D" "" "CO" "DUCALQUE" "")

(command "_chprop" "D" "" "CO" (read (getvar "CECOLOR")) "")

) 'End if

(princ)

) 'end while

) 'End func

 

Merci à tous de m'avoir mis sur les rails.

Bonne fin de journée.

Cordialement.