自定义pline_tool.mb

很多的MAPINFO的常见问题下载后可以学习很有帮助

Include "MapBasic.def"
Include "Icons.def"
Include "Menu.def"

Declare Sub Main
Declare Sub YX_Define_Pad
Declare Sub YX_Draw_Pline


Sub Main
	Call YX_Define_Pad
End Sub

Sub YX_Define_Pad
Create ButtonPad "Utils" As
  ToolButton
    Calling YX_Draw_Pline
    Icon  MI_ICON_LETTERS_Z
     Cursor MI_CURSOR_CROSSHAIR
     DrawMode  DM_CUSTOM_POLYLINE
  ToolButton
    HelpMsg "查看、修改编辑结果\n查看、修改编辑结果"
    Calling 1707
    Icon  MI_ICON_INFO
     Cursor MI_CURSOR_CROSSHAIR
     DrawMode  DM_CUSTOM_POINT
  Title "编辑"
  Width 2
  Show
End Sub

Sub YX_Draw_Pline
    Dim N_X() As Float
    Dim N_Y() As Float
    Dim nPnts, i As Integer
    Dim  Myobj  as object
    Dim Yourobj as object

    Myobj=CommandInfo(CMD_INFO_CUSTOM_OBJ)
    nPnts = ObjectInfo(Myobj,OBJ_INFO_NPNTS)
    ReDim N_X(nPnts)
    ReDim N_Y(nPnts)
    Create Pline  Into  Variable Yourobj  0
    For i = 1 To nPnts Step 1
     N_X(i) = ObjectNodeX(Myobj,1,i)   ' read X
     N_Y(i) = ObjectNodeY(Myobj,1,i)   ' read Y
     Alter Object Yourobj Node Add (N_X(i),N_Y(i))
    Next
'用户可在这里加上自己的处理代码,例如：确定新加入线的样式及颜色，以及取消操作等。
    Insert  Into  table  ("yxys"+YearName)  Values(Yourobj)
End Sub