Sub Example_UserCoordinateSystems()
' Этот пример находит текущую коллекцию UserCoordinateSystems
' и добавляет новый UCS к этой коллекции.
Dim UCSColl As AcadUCSs
Set UCSColl = ThisDrawing.UserCoordinateSystems
' Создайте UCS по имени "TEST" в текущем рисунке
Dim NewUCS As AcadUCS
Dim origin(0 To 2) As Double
Dim xAxisPnt(0 To 2) As Double
Dim yAxisPnt(0 To 2) As Double
Dim startPoint(0 To 2) As Double
Dim endPoint(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 NewUCS = UCSColl.Add(origin, xAxisPnt, yAxisPnt, "TEST")
ThisDrawing.ActiveUCS = NewUCS
startPoint(0) = 0 ' Начальная точка X (относительно новой системы)
startPoint(1) = 0 ' Начальная точка Y (относительно новой системы)
startPoint(2) = 0 ' Начальная точка Z
endPoint(0) = 10 ' Конечная точка X (относительно новой системы)
endPoint(1) = 10 ' Конечная точка Y (относительно новой системы)
endPoint(2) = 0 ' Конечная точка Z
Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
End Sub