AutoCAD利用VBA设置线型和添加用户自定义线性

利用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函数，定义dashedline变量作为新的线型，利用load方法从文件acad.lin中加载dashed2线型，最后将刚刚加载的线性存放在开始定义的dashedline变量中。供后续进一步操作。