Страница 1 из 1

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

Добавлено: 21 ноя 2009, 23:02
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))

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

Добавлено: 21 ноя 2009, 23:30
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 
и далее по тексу

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

Добавлено: 21 ноя 2009, 23:41
Qwe1
Ну конечно же! Спасибо.