zoukankan      html  css  js  c++  java
  • 如何将区域插入到表中【转载】

    如何将区域插入到表中

     文章来源:http://www.gisdn.com/ShowPost.asp?id=2191

     //vb.Net编程


    Dim conn As New MapInfo.Data.MIConnection
    conn.Open()
    Dim dPoints(5) As MapInfo.Geometry.DPoint
    dPoints(0) = New MapInfo.Geometry.DPoint(-103, 32)
    dPoints(1) = New MapInfo.Geometry.DPoint(-97, 26)
    dPoints(2) = New MapInfo.Geometry.DPoint(-88, 29)
    dPoints(3) = New MapInfo.Geometry.DPoint(-94, 36)
    dPoints(4) = New MapInfo.Geometry.DPoint(-103, 32)
    Dim g As MapInfo.Geometry.FeatureGeometry = New MapInfo.Geometry.MultiPolygon(MapControl1.Map.GetDisplayCoordSys(), MapInfo.Geometry.CurveSegmentType.Linear, dPoints)
    Dim p As MapInfo.Geometry.MultiPolygon = CType(g, MapInfo.Geometry.MultiPolygon)
    MsgBox(p.Area(MapInfo.Geometry.AreaUnit.SquareMile).ToString())
    Dim sis As MapInfo.Styles.SimpleInterior = New MapInfo.Styles.SimpleInterior(9, System.Drawing.Color.Purple)
    Dim lw As MapInfo.Styles.LineWidth = New MapInfo.Styles.LineWidth(3, MapInfo.Styles.LineWidthUnit.Point)
    Dim sl As MapInfo.Styles.SimpleLineStyle = New MapInfo.Styles.SimpleLineStyle(lw, 3)
    Dim ar As MapInfo.Styles.AreaStyle = New MapInfo.Styles.AreaStyle(sl, sis)


    Dim cs As MapInfo.Styles.CompositeStyle = New MapInfo.Styles.CompositeStyle(ar, Nothing, Nothing, Nothing)
    Dim t As MapInfo.Data.Table = conn.Catalog.GetTable("USA")
    Dim f As MapInfo.Data.Feature = New Feature(g, cs)
    Dim k As MapInfo.Data.Key = t.InsertFeature(f)

  • 相关阅读:
    Uni项目启动微信、QQ、淘宝、抖音、京东等APP的方法
    input 标签为checkbox时修改 checkbox的样式
    关于CSS HACK
    前端JS生成可用的MD5加密代码
    把ucharts 封装成组件
    学期总结
    作业1
    作业02
    C语言I博客作业09
    C语言I博客作业08
  • 原文地址:https://www.cnblogs.com/lauer0246/p/1292094.html
Copyright © 2011-2022 走看看