使用Heightlight方法，可以確定是否高亮顯示圖元，以直線為例，當(dāng)一條直線高亮顯示時，它是用直線繪制的。

高亮顯示直線的代碼如下。

Sub highlightline()
    If ThisDrawing.ModelSpace.Count = 0 Then
        MsgBox "there is no line to heightlight!"
    Else
        With ThisDrawing.ModelSpace
            .Item(.Count – 1).Highlight True
        End With
    End If
End Sub

代碼完。

代碼第一行聲明highlight函數(shù)，首先判斷圖紙空間是否有圖元，如果沒有顯示提示信息“there is no line to highlight!“，如果有圖元者取得最后繪制的圖元實(shí)例并將其高亮顯示。先在CAD中繪制一條直線，運(yùn)行這段代碼，直線線型即變成虛線。