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

• 使用線(xiàn)型

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

對(duì)象在創(chuàng)建時(shí)的線(xiàn)型繼承所在的圖層的線(xiàn)型，要使用其線(xiàn)型，首先用Linetype對(duì)象的Load方法裝載線(xiàn)型，然后用Document對(duì)象的ActiveLinetype屬性將已經(jīng)裝載的線(xiàn)型設(shè)置為當(dāng)前線(xiàn)型，線(xiàn)型必須存在一個(gè)LIN庫(kù)文件中，AutoCAD自帶線(xiàn)型存放于Acad.Lin和Acadiso.Lin文件中。

下面的代碼裝載“dashed”線(xiàn)型，并用它繪制一個(gè)圓。

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

• 指定線(xiàn)型比例

圖形對(duì)象的LinetypeScale屬性指定線(xiàn)型比例，比例越小，線(xiàn)段單位為長(zhǎng)度內(nèi)重復(fù)的圖形樣式越多，線(xiàn)型比例只改變單位長(zhǎng)度內(nèi)重復(fù)的圖形樣式的多少，不能改變線(xiàn)段的寬窄，線(xiàn)段的寬窄由Lineweight屬性決定。也可用CELTSCALE系統(tǒng)變量設(shè)置新創(chuàng)建對(duì)象的線(xiàn)型比例，LTSCALE全局地對(duì)已有對(duì)象修改線(xiàn)型比例，設(shè)置系統(tǒng)變量的方法是SetVariable。