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

[fredwriter]

Спасибо всем! Swatch отдельное большое!

Сообщение отредактировал fredwriter: 22.10.2009, 11:13:02

[swatch]

2Jismo: не делал пока такого, теперь надо подумать как это сделать...

[Jismo]

Вариант 1 есть, но там 1 портак, оcтается окно DOS после вызова хэлпа, не красиво как-то.

[fredwriter]

У меня при наведении на кнопку почему-то не отображается HelpMessage?

[fredwriter]

Теперь отображается извиняюся!

[fredwriter]

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

Include "icons.def"
Include "mapbasic.def"
Declare Sub Main
Declare Sub izmKil


Sub Main
	Create ButtonPad "Мои кнопки" As
		ToolButton
		   'Icon   MI_ICON_LINE
		   DrawMode DM_CURSOR_LINE
		   Cursor MI_CURSOR_CROSSHAIR
		   Calling izmKil
		   HelpMsg "Этот инструмент измеряет расстояние в км от точки до точки"
		   Show
End Sub

Sub izmKil
   dim x1, y1, x2, y2 As Float
   
   If WindowInfo(FrontWindow(),  WIN_INFO_TYPE)  <>  WIN_MAPPER  Then
	 Note "Инструмент используется только в окне Карты."
	 Exit Sub
   End If
  'Запомнить место, в котором начал действовать инструмент:
  x1 = CommandInfo(CMD_INFO_X)
  y1 = CommandInfo(CMD_INFO_Y)
  'Запомнить место, в котором отпущена кнопка мыши:
  x2 = CommandInfo(CMD_INFO_X2)
  y2 = CommandInfo(CMD_INFO_Y2)	
End Sub

Я подозреваю, что нужно что-то изменить в этом коде и что-то добавить
Помогите кто может!

Сообщение отредактировал fredwriter: 22.10.2009, 15:16:37

[Jismo]

Нужно сделать проверку на существование редактируемого слоя после проверки на WIN_MAPPER, а потом создавать объект типа линия уже на редактируемый слой.

Include "icons.def"
Include "mapbasic.def"
Declare Sub Main
Declare Sub izmKil


Sub Main
	Create ButtonPad "Мои кнопки" As
		ToolButton
		   'Icon   MI_ICON_LINE
		   DrawMode DM_CURSOR_LINE
		   Cursor MI_CURSOR_CROSSHAIR
		   Calling izmKil
		   HelpMsg "Этот инструмент измеряет расстояние в км от точки до точки"
		   Show
End Sub

Sub izmKil
   dim x1, y1, x2, y2 As Float
   
   If WindowInfo(FrontWindow(),  WIN_INFO_TYPE)  <>  WIN_MAPPER  Then
	 Note "Инструмент используется только в окне Карты."
	 Exit Sub
   End If

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

If MapperInfo(FrontWindow(), MAPPER_INFO_EDIT_LAYER) = -1 Then
	  Note "Нет редактируемого слоя"	
		Exit Sub
	End If

дальше твое

'Запомнить место, в котором начал действовать инструмент:
  x1 = CommandInfo(CMD_INFO_X)
  y1 = CommandInfo(CMD_INFO_Y)
  'Запомнить место, в котором отпущена кнопка мыши:
  x2 = CommandInfo(CMD_INFO_X2)
  y2 = CommandInfo(CMD_INFO_Y2)

добавлеяем сам объект

Create Line Into FrontWindow() (x1, y1) (x2, y2) 
   Note Sqr((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)) 
End Sub

Есть 1 НО, кое что насчет отображения длины, она будет в той системе координат что используется по умолчанию.

Сообщение отредактировал Jismo: 22.10.2009, 15:42:22

[Jismo]

Нужно использовать это перед вызовом CommandInfo :

Set CoordSys Window FrontWindow()

еще надо узнать что является единицей измерения: метр, километр, миля и т.д и оттуда уже плясать с выводом длины

Сообщение отредактировал Jismo: 22.10.2009, 15:41:27

[Jismo]

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

Note Distance(x1, y1, x2, y2, "km")

[swatch]

Улыбнуло последнее. Матчасть нужно знать

[Jismo]

хорош прикалывать, вечер все таки

[d_d_t]

Явно не "боевое" задание. Зачем дублировать функционал стандартного инструмента MapInfo?

[swatch]

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

[fredwriter]

Спасибище всем!
А матчасть мне благосклонно улыбается. Примерно так

Сообщение отредактировал fredwriter: 23.10.2009, 09:33:03

[Jismo]

Видимо, Вы не допоняли предыдущие сообщения, замечания про матчасть были мне адресованы

[swatch]

Jismo, засвети свой "костыльный" вариант решения вопроса с CHM, оценим.

[Jismo]

для примера нужен рабочий файл CHM, я использовал лингво файл

run program "cmd.exe  /c ""C:\Program Files\ABBYY Lingvo 12\Lingvo1.chm"""

Сообщение отредактировал Jismo: 23.10.2009, 13:59:18

[Jismo]

Все файл открывается все ок кроме 1 НО остается открытым окно cmd.exe, кстати которое после закрытия вручную ни как не влияет на справку, если же программно закрывать это окно то закрывется и окно справки что не есть гуд!

[swatch]

2Jismo: Лови быстрое решение. Ковычек ровно столько сколько нужно. Куда писать путь до CHM пояснять не буду

Run Program "cmd /c ""start  ""wintitle"" ""C:\Program Files\MapInfo\Professional\mapinfow.chm"""""

после вызова START в ковычках указывается заголовок будущего окна для CMD, который можно сделать пустым (все равно никто не увидит).

Сообщение отредактировал swatch: 23.10.2009, 14:37:37

[Jismo]

ага сэнкс, но можно еще так

run program "cmd  /c start /d ""C:\Program Files\ABBYY Lingvo 12\"" Lingvo1.chm"

Мне только что подсказали