Создать точечный объект или круг

[Qwe1]

Пытаюсь создать точечный объект по координатам, он создается, но совершенно в другом месте - в "углу" карты. Почему так? 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))

[Boris]

потому, что внутренняя система координат самой MI (и ее интерпретатора команд MB), другая.
Перед выполнением таких команд надо внутреннюю систему координат сделать тождественной системе коордитнат таблицы, в которую помещаются объекты:

Код: Выделить всё

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)

теперь, добавляем команду

Код: Выделить всё

set coordsys table MyTable 

и далее по тексу

[Qwe1]

Ну конечно же! Спасибо.