Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
orcinus_orca
Зарегистрирован: 15.11.2011 Сообщения: 3 Откуда: Belarus
|
Добавлено: Вт Ноя 15, 2011 9:34 am Заголовок сообщения: Как построить линию зная нач. координаты, длину и азимут? |
|
|
Здравствуйте,
Помогите, пожалуйста, в следующей проблеме.
Есть точка на карте и надо от нее построить линию (азимут и длина известны).
Можно конечно построить через "Create Line by Lengh", но это ручками, а линий надо настроить много.
Можно через функцию CreateLine, но как рассчитать конечные координаты? |
|
Вернуться к началу |
|
|
orcinus_orca
Зарегистрирован: 15.11.2011 Сообщения: 3 Откуда: Belarus
|
Добавлено: Вт Ноя 15, 2011 3:41 pm Заголовок сообщения: |
|
|
Нашел )))
Не подскажите как теперь построить лепесток вместо линии? |
|
Вернуться к началу |
|
|
max7499
Зарегистрирован: 06.03.2012 Сообщения: 4 Откуда: RUS
|
Добавлено: Вт Мар 06, 2012 1:44 pm Заголовок сообщения: |
|
|
у меня тотже вопрос. можешь подсказать как? |
|
Вернуться к началу |
|
|
orcinus_orca
Зарегистрирован: 15.11.2011 Сообщения: 3 Откуда: Belarus
|
Добавлено: Вт Мар 06, 2012 2:44 pm Заголовок сообщения: |
|
|
Извини.
Нет времени писать.
Внизу можешь найти код. Надеюсь разберешся.
objcoord(1).x=Tempr.Latitude
objcoord(1).y=Tempr.Longitude
SID=Tempr.SiteID
SeID=Tempr.SectorID
Bnd=Tempr.Band
objcoord(10).x = objcoord(1).x
objcoord(10).y = objcoord(1).y
Dist1=Dist+0.1*Dist*cos((AntB/2)*DEG_2_RAD)
numnodes=10
obj_in=CreatePoint(objcoord(1).x, objcoord(1).y)
obj_st=Offset(obj_in, (-1)*azm+(AntB/2) +90, dist1, "m")
obj_end=Offset(obj_in, (-1)*azm-(AntB/2) +90, dist1, "m")
objcoord(2).x=centroidx(obj_st)
objcoord(2).y=centroidy(obj_st)
objcoord(9).x=centroidx(obj_end)
objcoord(9).y=centroidy(obj_end)
start=AntB/7
For i = 1 to 6
angle=(AntB/2)-start*i
dist2=Dist+0.1*Dist*cos(angle*DEG_2_RAD)
obj_temp=Offset(obj_in, (-1)*azm+angle +90, dist2, "m")
objcoord(i+2).x=centroidx(obj_temp)
objcoord(i+2).y=centroidy(obj_temp)
Next
Create Pline Into Variable myobj 0
For i = 1 to numnodes
Alter Object myobj Node Add (objcoord(i).x,objcoord(i).y)
Next |
|
Вернуться к началу |
|
|
max7499
Зарегистрирован: 06.03.2012 Сообщения: 4 Откуда: RUS
|
Добавлено: Вт Мар 06, 2012 4:05 pm Заголовок сообщения: |
|
|
спасибо большое Привет от планеров Поволжья |
|
Вернуться к началу |
|
|
AlVer
Зарегистрирован: 15.03.2012 Сообщения: 1
|
Добавлено: Чт Мар 15, 2012 9:05 am Заголовок сообщения: |
|
|
У вас в городах стрелки/линии друг на друга не накладываются?
моя ICQ: 460387094 - пишите, может сможем помочь друг другу.
Привет планерам из Сибири. |
|
Вернуться к началу |
|
|
Andrey68927
Зарегистрирован: 11.05.2012 Сообщения: 1
|
Добавлено: Пт Май 11, 2012 2:29 pm Заголовок сообщения: |
|
|
orcinus_orca писал(а): |
Нашел )))
Не подскажите как теперь построить лепесток вместо линии? |
Киньте ссылку пожалуйста, тоже надо очень. |
|
Вернуться к началу |
|
|
|