Couleur d'un calque

Submitted by mdeg on Mon, 17/05/2010 - 16:05

Bonjour,

Je souhaiterais modifier la couleur d'un calque dans une macro VBA.

Pour créer le calque j'ai utilisé :

Dim Layer2 As AcadLayer
Set Layer2 = AutoCAD.AcadApplication.ActiveDocument.Layers.Add("POINTS_LEVES")

Ensuite je n'arrive pas à donner une couleur au calque créé.

Merci pour votre aide.

md

neoris (not verified)

Thu, 20/05/2010 - 11:36

déclare une couleur :

Dim color As New AcadAcCmColor
Call color.SetRGB(125, 175, 235) 'Couleur RVB a prendre dans une palette de couleur

ensuite tu applique la couleur à l'objet calque :

Layer2.TrueColor = color

normalement ça marche !

Add new comment