使用 VBA 以外的其它编程语言

Sub Example_ActiveLayer()
    ' 本示例返回当前图层，然后添加一个新的图层。
    ' 最后，它返回先前设置的图层。
    Dim currLayer As AcadLayer
    Dim newLayer As AcadLayer
    
    ' 返回活动文档的当前图层
    Set currLayer = ThisDrawing.ActiveLayer
    MsgBox "当前图层为 " & currLayer.name, vbInformation, "ActiveLayer 示例"
    
    ' 创建一个图层并将其设为活动图层
    Set newLayer = ThisDrawing.Layers.Add("TestLayer")
    ThisDrawing.ActiveLayer = newLayer
    MsgBox "新的图层为 " & newLayer.name, vbInformation, "ActiveLayer 示例"

    ' 重设图层为先前设置
    ThisDrawing.ActiveLayer = currLayer
    MsgBox "活动的图层重设为 " & currLayer.name, vbInformation, "ActiveLayer 示例"
End Sub