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

Sub Example_Active()
    ' 本示例创建两个新的图形并确定哪个图形为活动的图形。
    
    Dim NewDrawing1 As AcadDocument
    Dim Newdrawing2 As AcadDocument
    Set NewDrawing1 = ThisDrawing.Application.Documents.Add("")
    Set Newdrawing2 = ThisDrawing.Application.Documents.Add("")
    
    Dim activeStatus As String
    Dim drawing As AcadDocument
    activeStatus = ""
    For Each drawing In ThisDrawing.Application.Documents
    If drawing.Active Then
            activeStatus = activeStatus & drawing.name & " 为活动图形。" & vbCrLf
    Else
            activeStatus = activeStatus & drawing.name & " 不是活动图形。" & vbCrLf
    End If
    Next drawing
    MsgBox activeStatus
End Sub