Layer Description

Hallo,

Does anyone have code to add descriptions to a layer?
Layerdescriptions appeared in AC2005, but I can’t seem to find an object property that allows me to add them.

Thanx,
Marc

 

Specifies the description of an object.

Signature

object.Description

object

Layer, Linetype, TableStyle
The object or objects this property applies to.

Description

String; read-write
The description.

Remarks

A linetype description can have up to 47 characters. The description can be a comment or a series of underscores, dots, dashes, and spaces to show a simple representation of the linetype pattern.

Example

[pre]
Sub Example_Description()
' This example returns the description of the active linetype.
' It then changes the description of the active linetype.

Dim currDescription As String

' This example modifies the description of a linetype
currDescription = ThisDrawing.ActiveLinetype.Description
MsgBox "The description of the active LineType is: " & currDescription, vbInformation, "Description Example"

' Change the description of the active linetype
ThisDrawing.ActiveLinetype.Description = "My favorite LineType"
MsgBox "The new description of the active LineType is: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Example"

' Reset the description of the active linetype
ThisDrawing.ActiveLinetype.Description = currDescription
MsgBox "The description of the active LineType is reset to: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Example"
End Sub
[/pre]

 

actually Thisdrawing.ActiveLayer.Description seems to work …..