24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zzahkj

木虫 (著名写手)

龙

应助: 42 (小学生)
金币: 1923.7
散金: 2554
红花: 30
帖子: 1517
在线: 465.1小时
虫号: 964751
注册: 2010-03-08
性别: GG
专业: 地理信息系统

[求助] Vb.net+ArcEngine生成的点状图层不显示？

我刚刚接触这个，望高手给个详细解答，谢谢！我的代码如下，为什么我生成的点状图层不显示呢？
Dim pShpWksFact As IWorkspaceFactory = New ShapefileWorkspaceFactory()
         Dim pFeatWks As IFeatureWorkspace
         pFeatWks = CType(pShpWksFact.OpenFromFile(filePath, 0), IFeatureWorkspace)
         Const strShapeFieldName As String = "Shape"
         Dim pFields1 As IFields
         Dim pFieldsEdit1 As IFieldsEdit
         pFields1 = New FieldsClass()
         pFieldsEdit1 = CType(pFields1, IFieldsEdit)
         Dim pField1 As IField = New FieldClass()
         Dim pFieldEdit1 As IFieldEdit = New FieldClass()
         pFieldEdit1.Name_2 = strShapeFieldName
         pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeGeometry
         pField1 = CType(pFieldEdit1, IField)
         Dim pGeomDef1 As IGeometryDef = New GeometryDefClass()
         Dim pGeomDefEdit1 As IGeometryDefEdit = New GeometryDefClass()
         pGeomDefEdit1 = CType(pGeomDef1, IGeometryDefEdit)
         pGeomDefEdit1.GeometryType_2 = esriGeometryType.esriGeometryPoint
         pGeomDefEdit1.SpatialReference_2 = Main.AxMapControl1.Map.SpatialReference
         pFieldEdit1.GeometryDef_2 = pGeomDef1
         pFieldsEdit1.AddField(pField1)
         pFields1 = CType(pFieldsEdit1, IFields)
         Dim pFeatureClass1 As IFeatureClass
         pFeatureClass1 = pFeatWks.CreateFeatureClass("点", pFields1, Nothing, Nothing, esriFeatureType.esriFTSimple, strShapeFieldName, "" )
         Dim pPointCol As IPointCollection = New MultipointClass()

         Dim sr As StreamReader = New StreamReader(My.Computer.FileSystem.CurrentDirectory & "\shu\dianceng.txt" )

         Dim str As String = sr.ReadLine()
         Dim own As Long = 0
         While str IsNot Nothing
            Dim strs() As String = Regex.Split(str, "       " )
            Dim x As Double = Convert.ToDouble(strs(0))
            Dim y As Double = Convert.ToDouble(strs(1))
               Dim pPoint As IPoint = New PointClass()
            pPoint.X = x
            pPoint.Y = y
            Dim missing As Object = Type.Missing
            pPointCol.AddPoint(pPoint, missing, missing)
            str = sr.ReadLine()
         End While
Main.AxMapControl1.AddShapeFile(filePath, "点" )

[ Last edited by zzahkj on 2011-4-19 at 23:29 ]

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

可显示上冲冲头行程的压片机已经有8人回复
工作电极上有气体生成，可能是氯气和氧气，怎样鉴定有氧气生成嗯？已经有14人回复
油酸+氯磺酸反应生成 α-磺酸基油酸的机理是什么样的？求稍微详细点的机理。已经有3人回复
资源管理器无法显示硬盘内的文件和文件夹已经有5人回复
关于优青的"生成草稿PDF"问题已经有9人回复
酮和氨基反应生成希夫碱的反应已经有3人回复
TiO2与Al2O3为什么没有生成钛酸铝？(耐火材料) 已经有14人回复
用氯钯酸等体积共浸渍制备Pd/CZ催化剂，焙烧后生成的催化剂却不是黑色的为什么？已经有16人回复
蒽醌上氨基的重氮化生成氯盐已经有7人回复
交流：晶体结构精修完了，生成完整的晶体结构报表指南已经有18人回复
康宁推出面向高性能显示器的Corning Lotus™ Glass 已经有9人回复
Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办？已经有10人回复

不要迷恋哥，哥只是一个过客！

1楼 2011-04-19 23:27:53

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

zzahkj

木虫 (著名写手)

龙

应助: 42 (小学生)
金币: 1923.7
散金: 2554
红花: 30
帖子: 1517
在线: 465.1小时
虫号: 964751
注册: 2010-03-08
性别: GG
专业: 地理信息系统

引用回帖:

Originally posted by xiangling1 at 2011-04-21 18:59:13:
应该是后面的程序问题，你生成的点集没有添加到图层当中！
Dim pPointCol As IPointCollection = New MultipointClass()
......
pPointCol.AddPoint(pPoint, missing, missing);
后面应该加东西

我后面加了些代码，你看为什么出现未将对象引用设置到对象的实例的错误！
Dim i As Integer = 0

            If i < pPointCol.PointCount Then
                  Dim newFeature As IFeature = pFeatureClass1.CreateFeature
                  newFeature._Set_Shape.pPointCol(i)
                  Dim rowSubtypes As IRowSubtypes = newFeature
                  rowSubtypes.Set_SubtypeCode(1)
                  rowSubtypes.InitDefaultValues()
                  newFeature.Store()

            End If
            i = i + 1
         End While
这段代码是我根据一段C#代码改的，我也不知道有什么问题？