画图功能.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
     Alter Menu Bar add "菜单一","菜单二"
     Create Menu "菜单一" as "画图" calling DW_anniu
 End Sub
Sub DW_anniu
	alter ButtonPad "主" 
       add Separator                         '向主按钮盒增加一个按钮
	    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 StaticText
	  Title "地类号:"
	  Position 3,24 Width 30 Height 16

	Control EditText
	  Position 34,22 Width 50 Height 16
	  Value gc
	  Into gc

 	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                     '将第一个图层设为可编辑图层
    create line
       (getx,gety) (getx+52,gety)
       Pen MakePen(1, 2, red)                       '定义画笔
end sub