Dim obj_region As Object
Dim x(100), y(100) As Float Dim i, node_count As Integer
x(1)=0
y(1)=0
x(2)=100
y(2)=100
x(3)=100
y(3)=0
x(4)=0
y(4)=100
''''''
' В массивах x() and y()
' мы имеем координаты узлов области
' Сначала создадим пустой объект :
node_count = 4
Create Region Into Variable obj_region 0
' Теперь внесем информацию об узлах:
For i = 1 to node_count
Alter Object obj_region Node Add ( x(i), y(i) )
Next
Вопрос: почему на карте после этого пусто
Отрисовка полигон
Страница: 1
Сообщений 1 страница 6 из 6
Поделиться12008-02-06 14:25:47
Поделиться22008-02-07 14:57:58
- Картовед
- Зарегистрирован: 2007-10-22
- Приглашений: 0
- Сообщений: 187
- Пол: Мужской
- Возраст: 41 [1983-12-21]
- Провел на форуме:
6 дней 11 часов - Последний визит:
2016-05-15 01:03:22
При создании объекта оператором Create Region после слова Into вы не указали идентификатор окна, куда надо разместить полигон.
Поделиться32008-02-07 15:15:19
А откуда я его узнаю?
Поделиться42008-02-07 16:03:34
- Картовед
- Зарегистрирован: 2007-10-22
- Приглашений: 0
- Сообщений: 187
- Пол: Мужской
- Возраст: 41 [1983-12-21]
- Провел на форуме:
6 дней 11 часов - Последний визит:
2016-05-15 01:03:22
Используйте функцию WindowID (возвращает идентификатор окна, заданного его номером на экране).
Поделиться52008-02-12 09:00:04
Dim obj_region As Object
Create Table Kvadro
(X1 Integer, Y1 Integer, X2 Integer, Y2 Integer)
Create Rect
Into Variable obj_region
(0,0) (100,100)
' Теперь поместим область в таблицу Kvadro:
Insert Into Kvadro Values (obj_region)
После того, как графический объект создан и присвоен переменной
типа Object, Вам обычно требуется сохранить созданный графический
объект в некоторой таблице. До тех пор, пока объект не помещен в
таблицу, пользователь не может увидеть его на экране.
А у меня показывает ошибку: Количество выбранных колонок не совпадает с количеством вставляемых колонок.
Помогите.
Поделиться62008-02-15 11:51:32
- Картовед
- Зарегистрирован: 2007-10-22
- Приглашений: 0
- Сообщений: 187
- Пол: Мужской
- Возраст: 41 [1983-12-21]
- Провел на форуме:
6 дней 11 часов - Последний визит:
2016-05-15 01:03:22
Попробуйте такой код
Код:
Dim obj_region As Object Create Table Kvadro (X1 Integer, Y1 Integer, X2 Integer, Y2 Integer) Create Map For Kvadro Create Rect Into Variable obj_region (0,0) (100,100) ' Теперь поместим область в таблицу Kvadro: Insert Into Kvadro (obj,x1,y1,x2,y2) Values (obj_region,0,0,100,100)
Страница: 1