Hỏi về code lập trình Mapbasic

Thảo luận trong 'Lập trình trong MapInfo' bắt đầu bởi duongrcfee, 28/3/15.

  1. duongrcfee

    duongrcfee New Member

    Tham gia ngày:
    2/3/12
    Bài viết:
    8
    Đã được thích:
    0
    Điểm thành tích:
    0
    Xin chào các ban!
    Mình đang viết code Mapbasic nhưng mình mới nhập môn nên chưa rành về lập trình lắm!
    Mong các bạn chỉ giáo giúp mình
    Mình đang viết cái tools góp các lô có diện tích nhỏ dưới 0,2 ha gộp vào lô bên cạch dạng Intersect với code như sau:

    Include "MAPBASIC.DEF"
    Include "menu.def"
    Include "icons.def"
    Declare Sub Main
    Declare Sub UnloadPogram
    Declare sub goplo
    Global PATHname, MAPname, TABLEName, ColumName As String 'ten file data chinh
    Dim wid, hf, nu as integer
    Dim j, cols as SmallInt
    Sub UnloadPogram
    Alter Menu Bar Remove "Gop lo nho"
    End sub
    Declare Sub VeChuongTrinh
    Sub VeChuongTrinh
    Note "Lien he" & Chr$(13)& "- Email: "
    End sub
    Sub Main
    Create Menu "Gop lo nho" As
    "- Gop lo nho" Calling goplo,
    "- Lien he" calling VeChuongTrinh,
    "- Thoat" calling UnloadPogram
    Alter Menu Bar Remove "Gop lo nho"
    Alter Menu Bar Add "Gop lo nho"
    Note "Chon OK: Gop lo nho"
    End Sub
    Declare Sub Debug()
    Sub Debug()
    Note "Chuong trinh da chay den day"
    Close All
    End Program
    End sub
    sub goplo
    TableName= FileOpenDlg ("", "", "TAB", "Chon lop BD ")
    If Tablename<>"" Then
    PathName=PathToTableName$(TableName)
    Open Table TableName
    MapName=TableInfo(0,TAB_INFO_NAME)
    Map from MapName
    End if


    Set Map Layer 1 Editable On
    select * from Mapname into Selection
    Objects Snap From Selection Cull Area 0.2 Units "hectare"
    Objects Clean From Mapname Gap 0.5 Units "hectare"

    End Sub

    Yêu cầu:
    Mình muốn góp các lô nhỏ với điều kiện diện tích nhỏ hơn 0,2 và những lô ngày gộp vào lô bên cạnh với điều kiện cung thửa bản đồ tại trương "thuad"
    Minh gửi thêm file bản đồ đính kèm, mình đã đánh dấu các lô cần gộp màu đỏ để dễ nhìn à!
    File đính kèm View attachment 604
    Mong được sự giúp đỡ của các bạn
    Chân thành cảm ơn!
     
    Tags:
  2. trungtinqldd26

    trungtinqldd26 Member

    Tham gia ngày:
    24/1/13
    Bài viết:
    64
    Đã được thích:
    0
    Điểm thành tích:
    6
    Yêu cầu bạn đưa ra nhưng mình kiểm tra bản đồ của bạn không thấy có bất kỳ thuad nào giống nhau làm sao thực hiện?
    2 ô bên cạnh nếu thỏa điều kiện tìm kiếm (dientich<0,2) thì mapinfo cũng chỉ gộp (combine) lại các thửa liền kề là đương nhiên mà bạn, các thửa không liền kề làm sao mà combine được.
     

Chia sẻ trang này

Share
Đang tải...