Объект Point представляет точку или вектор на плоскости. Он используется во многих методах и свойствах, когда требуется указать пару координат.
Чтобы создать новый объект Point, используйте методы PointXY или PointRA объекта Application. Каждый из них создает новую точку в декартовых или полярных координатах. Однажды создав объект Point, его можно использовать для разных целей. Можно изменять координаты точки в любое время, используя декартовы или полярные координаты (независимо от того, в какой системе координат точка была задана первоначально).
В следующем примере показано создание новой точки, добавление вершины к геометрической модели, потом изменение координат точки и создание другой вершины.
|
X. Тип Double
|
Декартовы координаты |
|
Y. Тип Double
|
|
|
Свойство R. Тип Double
|
Полярные координаты |
|
Phi. Тип Double
|
В следующем примере создается новая точка p (объект типа Point), устанавливаются её декартовы координаты (x=0, y=1) и потом она используется для создания новой вершины в модели. Потом координате Phi точки присваивается значение 45° (координата R остается неизменной) и создается другая вершина модели.
dim ELC As ELCUT.Application
dim prb as ELCUT.Problem
dim mdl as ELCUT.Model
.......
dim p As ELCUT.Point
set p = ELC.PointXY(0, 1)
With mdl.Shapes
.AddVertex p
p.Phi = 3.1415926 / 4
.AddVertex p
End With
Помните, что во второй раз метод AddVertex создает вершину с полярными координатами(r = 1, phi = 45°), которые эквивалентны декартовым координатам (x = 0.70711, y = 0.70711). Когда изменяется одна из декартовых координат, вторая декартова координата остается неизменной. Это же верно и для полярных координат.