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

Question

如题，请高手赐教线宽的设置。谢谢。

Answer 1

  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中，图层的线宽设置。

Answer 2

vb6.0 貌似是DrawWidth吧，如果是使用vb自带绘图函数，是DrawWidth和DrawStyle

Answer 3

AutoCAD录个宏看一下就知道了。