Sub Example_PaperUnits()
    'Этот пример обратится к коллекции Layouts текущего рисунка и 
    'перечислит основную информацию о единицах листа, используемых для
    'каждого Layout.

    Dim Layouts As AcadLayouts, Layout As ACADLayout
    Dim msg As String
    Dim Measurement As String
    
    'Получите коллекцию листов от объекта документа
    Set Layouts = ThisDrawing.Layouts
    
    msg = vbCrLf & vbCrLf   ' Начало с пробелом
    
    'Получите информацию единиц листа каждого листа в этом рисунке
    For Each Layout In Layouts
        'Используя дюймы или миллиметры?
        Measurement = IIf(Layout.PaperUnits = acInches, " дюймы", " миллиметры")
        
        'Формат для отображения
        msg = msg & Layout.name & " использует" & Measurement & vbCrLf
    Next
    
    'Информация единиц листа
    MsgBox "Единицы листа, используемые в текущем рисунке: " & msg
End Sub