Sub Example_AuditInfo()
    ' Этот пример AutoCAD, контролирует и помечает любые найденные
    ' проблемы
    
    ThisDrawing.AuditInfo True
    
    MsgBox "Ревизия. " & vbCrLf & _
           "Флажок местоположения ошибки установлен в " & fixErrs, , "AuditInfo Пример"
End Sub