| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
 Добавлено: Пн 06 Окт 2008 14:01 Заголовок сообщения: Перенос объекта |
 |
|
Здравствуйте.
Подскажите, какой командой можно перенести пространственный объект? |
|
| Вернуться к началу |
|
 |
unm
Зарегистрирован: 09.11.2008
Сообщения: 27
|
| Добавлено: Вс 09 Ноя 2008 15:26 Заголовок сообщения: |
|
|
В смысле перенести? Куда?
Из одного стиля в другой?
Или координаты изменить? |
|
| Вернуться к началу |
|
|
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
| Добавлено: Пн 10 Ноя 2008 20:38 Заголовок сообщения: |
|
|
| В смысле координаты |
|
| Вернуться к началу |
|
|
unm
Зарегистрирован: 09.11.2008
Сообщения: 27
|
| Добавлено: Вт 11 Ноя 2008 11:47 Заголовок сообщения: |
|
|
Есть у меня такой код, думаю разберешся:
| Код: |
obj := map_obj.GetObject(Fapp.Selection.IDs[i]);
for n:=0 to obj.Shapes.Count - 1 do
begin
for t:=0 to obj.Shapes.Item[n].Contour.count - 1 do
begin
contr := obj.Shapes.Item[n].Contour[t];
for j:=0 to contr.VertexCount - 1 do
begin
contr.GetVertex(j, X_i, Y_i, Z_i);
Get_new_coordinate(X, Y, X_i, Y_i);
contr.SetVertex(j, X, Y, Z_i);
end;
end;
end;
map_obj.UpdateChanges;
|
где
| Код: |
obj : IIngeoMapObject;
contr : IIngeoContourPart;
X_i, Y_i, Z_i, X, Y : double;
#X_i,Y_i,Z_i - старые координаты объекта
#X,Y- Новые координаты объекта
map_obj : IIngeoMapObjects;
|
Get_new_coordinate - процедура, которая делает из старых координат новые) |
|
| Вернуться к началу |
|
|
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
| Добавлено: Вт 11 Ноя 2008 20:15 Заголовок сообщения: |
|
|
Спасибо.
Нужно переносить каждую точку объекта.
Уже реализовал. |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
