VB编程操作AutoCAD线宽

Lineweight属性控制图形在屏幕上可以显示不同的宽度，线宽的使用包括设置线宽和显示线宽，线宽的设置与显示可以使用户在绘图中减少差错。

• 设置线宽

Lineweight属性设置线宽，语法格式：object.Lineweight。

Lineweight属性值不能任意设置，而是由内置常数决定，编程输入时将自动显示出来供选择，线宽默认单位为毫米，Lineweight属性默认值为25，即0.25毫米，可以通过设置系统变量LWDEFAULT来改变该值，系统变量LWUNIT可以改变线宽的单位，LWUNIT=0，线宽单位为英寸：LWUNIT=1，线宽单位为毫米。

设置对象线宽的语句格式如下。

Set circleObj=AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint,radius)

通过设置图层的线宽，可以使该图层上的物体均使用同一线宽绘制。

• 显示线宽

在模型空间中是否显示线宽，可由Preferences对象的LineWeightDisplay属性控制，该属性为布尔型，属性值为True时显示线宽，为False时不显示线宽，也可通过系统变量LWDISPLAY来控制是否显示线宽，LWDISPLAY=0，不显示线宽，线宽为一个像素，LWDISPLAY=1显示线宽。下面的代码绘制两个圆并显示线宽。

Private Sub Command1_Click()

Dim testlayer As AcadLayer

Set testlayer = acadapp.ActiveDocument.Layers.Add("TEST")

acadapp.ActiveDocument.ActiveLayer = testlayer

testlayer.Lineweight = acLnWt200

acadapp.ActiveDocument.Preferences.LineWeightDisplay = True

Dim circleobj1 As AcadCircle

Dim circleobj2 As AcadCircle

Dim centerpoint(0 To 2) As Double

Dim radius As Double

centerpoint(0) = 0#: centerpoint(1) = 0#: centerpoint(2) = 0

radius = 5#

Set circleobj1 = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)

Set circleojb2 = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius / 2)

circleobj1.Lineweight = acLnWtByLayer

circleobj2.Lineweight = acLnWt100

acadapp.ActiveDocument.Regen acActiveViewport

ZoomExtents

End Sub