Пример:
Код: Выделить всё
Dim myObj As Object
Set CoordSys NonEarth Units "m" Bounds (-100000, -100000) (100000, 100000)
Create Region Into Variable myObj 1 6
(81234.123456, 1) (80123.123456, 2) (8012.123456, 3) (801.123456, 4) (80.123456, 5) (8.123456, 6)
Print ObjectNodeX(myObj, 1, 1)
Print ObjectNodeX(myObj, 1, 2)
Print ObjectNodeX(myObj, 1, 3)
Print ObjectNodeX(myObj, 1, 4)
Print ObjectNodeX(myObj, 1, 5)
Print ObjectNodeX(myObj, 1, 6)
Код: Выделить всё
81234.12
80123.12
8012.12
801.124
80.1235
8.1235