VB编程操作AutoCAD线型

制图标准规定，不同意义的线型需要不同的线型来描述。

• 使用线型

Linetype为线型对象，是线型集合的成员，通过破折号、点和空格的不同组合，行程不同的线型，每一个图形文件，系统均自动创建了3个线型对象：BYLARER，BYBLOCK和CONTINUOUS。

对象在创建时的线型继承所在的图层的线型，要使用其线型，首先用Linetype对象的Load方法装载线型，然后用Document对象的ActiveLinetype属性将已经装载的线型设置为当前线型，线型必须存在一个LIN库文件中，AutoCAD自带线型存放于Acad.Lin和Acadiso.Lin文件中。

下面的代码装载“dashed”线型，并用它绘制一个圆。

Private Sub Command1_Click()
    On Error Resume Next
    acadapp.ActiveDocument.Linetypes.Load "dashed", "d:program filesacad2004supportacad.lin"
    acadapp.ActiveDocument.ActiveLinetype = acadapp.ActiveDocument.Linetypes.Item("dashed")
    Dim circleobj 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 circleobj = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
    circleobj.Update
    ZoomExtents
End Sub

• 指定线型比例

图形对象的LinetypeScale属性指定线型比例，比例越小，线段单位为长度内重复的图形样式越多，线型比例只改变单位长度内重复的图形样式的多少，不能改变线段的宽窄，线段的宽窄由Lineweight属性决定。也可用CELTSCALE系统变量设置新创建对象的线型比例，LTSCALE全局地对已有对象修改线型比例，设置系统变量的方法是SetVariable。