制圖標(biāo)準(zhǔn)規(guī)定，不同意義的線型需要不同的線型來描述。

• 使用線型

Linetype為線型對象，是線型集合的成員，通過破折號、點和空格的不同組合，行程不同的線型，每一個圖形文件，系統(tǒng)均自動創(chuàng)建了3個線型對象：BYLARER，BYBLOCK和CONTINUOUS。

對象在創(chuàng)建時的線型繼承所在的圖層的線型，要使用其線型，首先用Linetype對象的Load方法裝載線型，然后用Document對象的ActiveLinetype屬性將已經(jīng)裝載的線型設(shè)置為當(dāng)前線型，線型必須存在一個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屬性指定線型比例，比例越小，線段單位為長度內(nèi)重復(fù)的圖形樣式越多，線型比例只改變單位長度內(nèi)重復(fù)的圖形樣式的多少，不能改變線段的寬窄，線段的寬窄由Lineweight屬性決定。也可用CELTSCALE系統(tǒng)變量設(shè)置新創(chuàng)建對象的線型比例，LTSCALE全局地對已有對象修改線型比例，設(shè)置系統(tǒng)變量的方法是SetVariable。