Sub Example_UserCoordinateSystems()
    ' Этот пример находит текущую коллекцию UserCoordinateSystems
    ' и добавляет новsq UCS к этой коллекции.
    
    Dim UCSColl As AcadUCSs
    Set UCSColl = ThisDrawing.UserCoordinateSystems
    
    ' Создайте UCS по имени "TEST" в текущем рисунке
    Dim ucsObj As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxisPnt(0 To 2) As Double
    Dim yAxisPnt(0 To 2) As Double
    
    ' Определите UCS
    origin(0) = 4#: origin(1) = 5#: origin(2) = 3#
    xAxisPnt(0) = 5#: xAxisPnt(1) = 5#: xAxisPnt(2) = 3#
    yAxisPnt(0) = 4#: yAxisPnt(1) = 6#: yAxisPnt(2) = 3#
    
    ' Добавьте UCS к коллекции UserCoordinatesSystems
    Set ucsObj = UCSColl.Add(origin, xAxisPnt, yAxisPnt, "TEST")
    
    MsgBox "Новый UCS " & ucsObj.name & " добавился к коллекции UserCoordinateSystems.", vbInformation, "UserCoordinateSystems Пример"
End Sub