Objets en couleur

[MarcoTic]

:casstet:

Bonjour à tous

Je cherche à affecter une couleur à une polyligne en la choisissant depuis l'index des couleur d'autocad avec :

ThisDrawing.SendCommand "_color" & vbCr

'Récupération d'une variable système

indexcolor = ThisDrawing.GetVariable("cecolor")

l'ennui avec cette méthode, c'est que la propriété couleur du dessin prend la couleir choisie.

Hors moi je désire juste forcer la couleur d'une certaine polyligne.

Je vois pas le truc.

Merci d'avance pour vos conseil avisés

[g_barthe]

salut,

 

Moi j'ai utiliser un calque et posé ma polyligne sur le calque courant.

 

Mais tu dois pouvoir adapter cette méthode à la polyligne il me semble l'avoir déjà fait.

 

Set layerObj = ThisDrawing.Layers.Add("Repérage")
   layerObj.color = acMagenta
   ThisDrawing.ActiveLayer = layerObj 

 

@+

[MarcoTic]

Bonjour g_barthe,

Je répond avec du retard mais suis pas toujours là.

Ta méthode est un habile contournement du problème.

J'ai fini par trouver celle ci :

 

ThisDrawing.SendCommand "_color" & vbCr

 

'Récupération d'une variable système

Couleur = ThisDrawing.GetVariable("cecolor")

ThisDrawing.SetVariable "cecolor", "ByLayer"

CollectCouleur.ColorIndex = Couleur

 

'MsgBox indexcolor

MsgBox "La couleur est" & Couleur

 

la variable CollectCouleur sera utiliser pour les objets,comme ci-dessous

objMtext.TrueColor = CollectCouleur

 

Cà marche bien, mon dessin reste dans la couleur du calque

A plus