Создать точечный объект или круг
Добавлено: 21 ноя 2009, 23:02
Пытаюсь создать точечный объект по координатам, он создается, но совершенно в другом месте - в "углу" карты. Почему так? MB 6, MI 7,5 и 9 версий.
Dim xcoord, ycoord As Float
Close All
Create Table "MyTable"
(XC Float, YC Float)
File ApplicationDirectory$() + "MyTable.TAB" TYPE NATIVE Version 450
Create Map For MyTable CoordSys NonEarth Units "m" Bounds (0, 0) (100000, 100000)
xcoord = 55000
ycoord = 75000
Insert Into MyTable (obj) Values(CreatePoint(xcoord, ycoord))
Dim xcoord, ycoord As Float
Close All
Create Table "MyTable"
(XC Float, YC Float)
File ApplicationDirectory$() + "MyTable.TAB" TYPE NATIVE Version 450
Create Map For MyTable CoordSys NonEarth Units "m" Bounds (0, 0) (100000, 100000)
xcoord = 55000
ycoord = 75000
Insert Into MyTable (obj) Values(CreatePoint(xcoord, ycoord))