AutoVBA利用宏高亮显示图元

使用Heightlight方法，可以确定是否高亮显示图元，以直线为例，当一条直线高亮显示时，它是用直线绘制的。

高亮显示直线的代码如下。

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函数，首先判断图纸空间是否有图元，如果没有显示提示信息“there is no line to highlight!“，如果有图元者取得最后绘制的图元实例并将其高亮显示。先在CAD中绘制一条直线，运行这段代码，直线线型即变成虚线。