vb开发AutoCAD中，图层的线宽设置，请高手赐教。

如题，请高手赐教线宽的设置。谢谢。 --------------------编程问答-------------------- Lineweight --------------------编程问答--------------------   Lineweight     acLineWeight 枚举; 读/写
                   acLnWtByLayer
                 acLnWtByBlock
                 acLnWtByLwDefault
                 acLnWt000
                 acLnWt005
                 acLnWt009
                 acLnWt013
                 acLnWt015
                 acLnWt018
                 acLnWt020
                 acLnWt025
                 acLnWt030
                 acLnWt035
                 acLnWt040
                 acLnWt050
                 acLnWt053
                 acLnWt060
                 acLnWt070
                 acLnWt080
                 acLnWt090
                 acLnWt100
                 acLnWt106
                 acLnWt120
                 acLnWt140
                 acLnWt158
                 acLnWt200
                 acLnWt211

说明
    这个属性的初始值是acLnWtByBlock,线宽值是由BYLAYER、BYBLOCK以及DEFAULT的标准设定成。DEFAULT值是由LWDEFAULT系统变量来设定，缺省值为0.01英寸（in）或0.25毫米（mm）。所有新的对象与图层的缺省值设定是DEFAULT，线宽度值0时在指定的打印可输出的最细线宽，在模型空间上是以一个像素宽表示。

范例

  Sub Example_LineWeight()
      ' 这个范例在模型空间中建立一个圆，
      ' 接着找出圆目前的线宽，然后将
      ' 线宽改变为新值

      Dim circleObj As AcadCircle
      Dim centerPoint(0 To 2) As Double
      Dim radius As Double

      ' 定义圆
      centerPoint(0) = 10#: centerPoint(1) = 10#: centerPoint(2) = 10#

      radius = 50#

      ' 在模型空间建立Circle对象
      Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
      ZoomAll

      ' 找出圆的线宽
      MsgBox "圆目前的线宽是 " & circleObj.Lineweight

      ' 改变圆的线宽
      circleObj.Lineweight = acLnWt211
      circleObj.Update
      MsgBox "圆目前的线宽是 " & circleObj.Lineweight

  End Sub

我照此在vb6.0上运行过，但是线宽还是没有改变。

求解vb开发AutoCAD中，图层的线宽设置。 --------------------编程问答-------------------- --------------------编程问答-------------------- 求解啊 --------------------编程问答-------------------- 比较实用。对我有帮助 --------------------编程问答-------------------- vb6.0 貌似是DrawWidth吧，如果是使用vb自带绘图函数，是DrawWidth和DrawStyle --------------------编程问答-------------------- AutoCAD录个宏看一下就知道了。

补充：VB ,  资源