利用VBA添加線型的代碼如下。

Sub addnewlinetype()
    Dim dashedline As AcadLineType
    ThisDrawing.Load "dashed2", "acad.lin"
    Set dashedline = ThisDrawing.Linetypes.Item(ThisDrawing.Linetypes.Count – 1)
    ThisDrawing.ActiveLinetype = dashedline
End Sub

首先聲明addnewlinetype函數(shù)，定義dashedline變量作為新的線型，利用load方法從文件acad.lin中加載dashed2線型，最后將剛剛加載的線性存放在開始定義的dashedline變量中。供后續(xù)進一步操作。