代码改变世界

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

2011-06-02 00:24  精诚所至 金石为开  阅读(1663)  评论(0编辑  收藏  举报

利用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变量中。供后续进一步操作。