高程注记.mb

设计一个绘图编制的程序

include "mapbasic.def"
Include "Icons.def"
declare sub main
declare sub DW_anniu
declare Sub GetCoord
declare sub biaoz
''''''''''''''''''''全局变量'''''''''''''''''''''''
Global getx,gety,getxx,getyy as Float
 sub main
     create Menu Bar as "注记"
     Create Menu "注记" as "高程注记" calling DW_anniu
 End Sub

Sub DW_anniu
     Create ButtonPad "编辑" As
	    ToolButton 
	    Calling GetCoord                    '调用GetCoord程序
 	    Icon MI_ICON_CROSSHAIR              '定义按钮图标样式
	    Cursor MI_CURSOR_CROSSHAIR          '定义鼠标样式
	    DrawMode DM_CUSTOM_LINE             '定义画线模式
	    HelpMsg "高程注记\n高程注记"            '定义了在状态栏上显示的按钮帮助信息
      show
End Sub
'''''''''''
Sub GetCoord
	'设画图坐标系
     Set CoordSys NonEarth                      '获取坐标系
        Units "m"                               '单位是米
        Bounds (0,0) (5000000,5000000)          '定义坐标范围
     Set Map
 	    CoordSys NonEarth                      '坐标系
	    Units "m"                              '单位是米
	    Area Units "sq m"                      '面积单位是平方米
	    Distance Units "m"                     '距离单位是米
	    XY Units "m"
    getx=CommandInfo(CMD_INFO_X)                '获取X坐标
	gety=CommandInfo(CMD_INFO_Y)               '获取Y坐标
	getxx=CommandInfo(CMD_INFO_X2)
	getyy=CommandInfo(CMD_INFO_Y2)
	call biaoz                                 '调用biaoz程序
    end sub

Sub biaoz
    dim dh,gc as string
  Dialog
	Title "输入高程"
	Width 90 Height 64

	Control StaticText
	  Title "高程:" 
	  Position 3,5 Width 30 Height 16

	Control EditText
	  Position 34,3 Width 50 Height 16
	  Value dh
	  Into dh

 	Control OKButton 
	  Position 6,44 Width 34 Height 16

	Control CancelButton
	  Position 48,44 Width 34 Height 16

     Set Map Layer 1 Editable On
       Create Text 
	  dh
	  (getx+12,gety+21)(getx+42,gety-5.5)
       Font( "Arial", 0, 12, red)
       Justify Center
	  Set Map Layer 1 Editable On
       Create Text 
       gc
	  (getx+12,gety-8.5)(getx+42,gety-35)
       Font( "Arial", 0, 12, red)                   '定义字体,是否加粗,字号,字的颜色
       Justify Center                               '判断中心坐标

    Set Map Layer 1 Editable On                     '将第一个图层设为可编辑图层
   
end sub