Sub Example_Groups()
    ' Этот пример находит текущую коллекцию Groups
    ' и добавляет новую группу к той коллекции.
    
    Dim groupColl As AcadGroups
    Set groupColl = ThisDrawing.Groups
    
    ' Создайте размерный стиль по имени "TEST" в текущем рисунке
    Dim testGroup As AcadGroup
    Set testGroup = groupColl.Add("TEST")
    MsgBox "Новая группа " & testGroup.name & " добавилась к коллекции Groups.
", vbInformation, "Groups Пример"
End Sub