couleur du calque

[Matias]

Bonjour à tous

 

Peut-être une question bête, mais bon

 

comment changer la couleur d'un calque.

 

J'ai essayé ceci:

Dim objcalque As AcadLayer
Set objcalque = ThisDrawing.Layers.Item("PROJ_072_CACHE")
objcalque.TrueColor = 35

 

Mais il me met une erreur : Incompatibilité de type

 

Qu'y a-t-il de faux??

 

Merci

[Steven]

En passant par le gestionnaire des propriétés des calques peut-être. ;)

[Pako]

Salut Matias,

 

Voici un exemple :

Public Sub LayerSET()

 

....Dim objLayer As AcadLayer

 

....'Si le calque existe :

........Set objLayer = ThisDrawing.Layers("CADxp")

............objLayer.Color = acWhite

........ThisDrawing.ActiveLayer = objLayer

 

....'Si le calque n'existe pas :

........If objLayer Is Nothing Then

............Set objLayer = ThisDrawing.Layers.Add("CADxp")

............objLayer.Color = acWhite

............ThisDrawing.ActiveLayer = objLayer

........End If

 

End Sub

 

 

Au plaisir de s'entraider !

 

 

[Matias]

Super

 

Merci Pako

[Steven]

Quel est l'avantage de changer la couleur d'un calque en VBA ou en VB?

[Matias]

En fait c'est pour un programme de normalisation des plans que l'on reçoit des différentes entreprises

 

 

@+

[Tireli-Pimpon]

Il y a dans AutoCAD ce qui s'apelle : "NORME CAO" qui sert de passerelle entre plusieurs DWG.

C'est ce que j'utilise pour fournir mes DWG à l'administration.... Avec leurs dénomination à la con comme FH1, ou FGT....... Bref, il fait un lien entre deux type de DWG....

 

Si çà a aidé quelqu'un.... J'ai bien fais...... Si non, Cà m'a occupé..... ;)