Сообщений в теме: 388

[Jismo]

Теперь понятно насчет задания, а что касается моего второго вопроса? Какие трудности испытываете в реализации? Что уже сделали и на чем остановились?

[Сэр-Алекс]

Пытаюсь построить рисунок линиями оператором Create Line но база данных с координатами точек не открывается
Include "mapbasic.def"
Declare Sub Main
Sub Main
Open File "Data.txt" For Input As #1
Insert Into Data (obj)
Values (CreateLine(100, 100, 50, 50))
End Sub

[Сэр-Алекс]

Include "mapbasic.def"
Type Point
x As Float
y As Float
End Type
Dim objcoord(5) As Point
Dim numnodes, i As Integer, myobj As Object
numnodes = 3
set CoordSys Earth
objcoord(1).x = -89.213 objcoord(1).y = 32.017
objcoord(2).x = -23.234 objcoord(2).y = 45.356


Create Pline Into Variable myobj 0
For i = 1 to numnodes
Alter Object myobj Node Add (objcoord(i).x,objcoord(i).y)
Next
Insert Into untitled (obj) Values (myobj)

в данном случае получается непрерывная линия

[TRiXsoop]

На мой взгляд, вы не правы . Давайте обсудим это . Пиши мне в личку, мы будем говорить.

[TRiXsoop]

На мой взгляд, вы ошибаетесь. Я предлагаю это обсудить. Пиши мне в личку, мы будем говорить.

[Jismo]

Больше на спам робота заморского похоже )))

[Jismo]

2Сэр-Алекс, я попытаюсь помочь Вам, завтра вечером выделю время и сам попробую реализовать часть этой задачи потом выложу сюда что получилось или же скажу что не смог )

[Qvad]

Парни, беда.
Скоро зачет нужна подмога.
Нужно написать программу: есть 5 параллельных профилей (полилинии) в диалоговое окно нужно ввести координаты точки (х, у) и найти ближайший к точке профиль.
Заранее спасибо!

[Qvad]

Трудности возникли при поиске формулы кратчайшего расстояния до профиля и продолжения диалогового окна, чтобы присвоить вводимые значения х, у соответственно


Dim x, y As Float

Dialog
Title "Ukazhite koordinati tochki!"
Control StaticText
Title "X: " Position 10, 10
Control EditText
position 25, 10
ID 1


Control StaticText
Title "Y: " Position 120, 10
Control EditText
position 135, 10
ID 2

Control SymbolPicker
Position 140, 42
Control OkButton

[Cadet2007]

Ребят подскажите пожалуйста, как из имеющихся узлов "к примеру построенного мной полигона" сделать точки, ну а полигон естественно удалить.????

Привет, как удалить я точно не помню, но как сделать точки из полигона могу подсказать )

Include "MapBasic.DEF"

Dim o As Object
o = Selection.obj
Спасибо

Dim i As Integer
For i=1 To ObjectInfo(o, OBJ_INFO_NPNTS) - 1
Create Point (ObjectNodeX(o,1,i), ObjectNodeY(o,1,i))
Next
'далее надо удалить объект "o"

[Cadet2007]

Ни кто не знает как активировать "Кнопку построить полигон", прописать в MapBasic???

[Qvad]

Со второй проблемой разобрался, Осталась первая. найти ближайший к точке профиль

[Сэр-Алекс]

Не получается произвести расчеты и вывести на экран, подскажите как это сделать. вот моя версия

Dialog Title "Определние азимута профиля"
Control StaticText Title "Введите номер профиля"
Control PopupMenu
Title "1;2;"
ID 1
Into Profil

Control OkButton Title "Азимут"
If CommandInfo(CMD_INFO_DLG_OK)=1 Then

Call zapros
End If
End Sub

Sub zapros
dim m As float
dim n As Float
dim A As string

If Profil = 1 Then GoTo t_t
t_t:
n = 2.5-2.5/1
m = Asin(n)*RAD_2_DEG
note m
End If
If Profil = 2 Then
n = 2.8-2.2/1
m = Asin(n)*RAD_2_DEG
note m
End If
End Sub

[Лена-катограф]

Подскажите пожалуйста как сделать программу в MapBasic, задача состоит в том что есть три полигона, и надо найти максимальную площадь и вывести на экран MapInfo

[Combatt]

Господа вот мой телефон 87017293808 Павел Скачков ПО MapInfo Professional и MapBasic все версии продажа и поддержка!
Кстати есть вакансия в хорошем месте требования знание мапинфо звоните срочно.

[Jismo]

Привет, можно подробности в лс?

[Lotr_77]

Добрый день! Подскажите, как написать код, ставящий точку на карте. При этом координаты точки должны определяться по курсору при нажатии клавиши мышки в окне карты. Спасибо.

[Jismo]

Добрый день! Подскажите, как написать код, ставящий точку на карте. При этом координаты точки должны определяться по курсору при нажатии клавиши мышки в окне карты. Спасибо.

Привет.
Я так понял, Вам нужен инструмент, который будет ставить точку на карту, а координаты точки будут браться из курсора мышки? Или я что-то путаю )

[Lotr_77]

Именно так...а еще желательно что бы координаты этой точки записывались бы в табличку, в колонки X и Y....

[makusu]

Здравствуйте, помогите пожалуйста! Имеется слой с объектами накладывающимися друг на друга, нужно реализовать поиск объектов наложение которых не более указанного значения (0.01 м), далее найденные  объекты выделяются цветом. Как возможно это реализовать?Особенно поиск. Заранее благодарен.