Lineweight Properties HELP

When putting in the code for the Lineweight of a new Layer it will only accept the wights that are listed in the VBA Help > Lineweight Property

Example:
Dim objNewLayer As AcadLayer
Set objNewLayer = ThisDrawing.Layers.Add("AREA")
objNewLayer.Lineweight = acLnWt008

I want to put in the following = acLnWt008 but when I do, I get the following Error:
Microsoft Visual Basic
Compile Error
Variable not defined

What do I need to do to define this Lineweight?

Thanks,
Keith

 

accept the wights that are listed in the VBA Help > Lineweight Property

 

Well, I'll try to actually type something before sending this time.....

Lineweights are hardcoded values. You can't create a new weight.........use
the ones provided.

Jeff

accept the wights that are listed in the VBA Help > Lineweight Property

 

This is not the "proper" answer, but FWIW, in ACAD 2002 the constants are as
follows:

acLnWt000 = 0
acLnWt008 = 8
etc...
acLnWt211 = 211

and the special ones are:
acLnWtByLayer = -1
acLnWtByBlock = -2
acLnWtByLwDefault = -3

James