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

Sub Example_StatusID()
    ' This example displays the setting of StatusID.

    Dim currStatusID As Boolean
    
    ' Display the current setting of statusID
    currStatusID = ThisDrawing.Application.statusID(ThisDrawing.ActiveViewport)
    MsgBox "The statusID of the active viewort is: " & currStatusID, , "StatusID 示例"
    
End Sub