我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網(wǎng)站首頁 > CAD新聞

AutoCAD利用VBA設(shè)置線型和添加用戶自定義線性

時(shí)間:2012-01-31 18:00:32 來源:未知

利用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ù)進(jìn)一步操作。