版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

zzahkj

木蟲 (著名寫手)

龍

應助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

[求助] 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 ]

回復此樓

» 猜你喜歡

城鄉(xiāng)規(guī)劃學招收調(diào)劑 1名已經(jīng)有0人回復
無法從這份源碼判斷項目是否“獲資助批準” 已經(jīng)有11人回復
地球化學論文潤色/翻譯怎么收費? 已經(jīng)有163人回復
【招聘】科研助理+五險一金已經(jīng)有20人回復
招聘博士研究生已經(jīng)有45人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

可顯示上沖沖頭行程的壓片機已經(jīng)有8人回復
工作電極上有氣體生成，可能是氯氣和氧氣，怎樣鑒定有氧氣生成嗯？已經(jīng)有14人回復
油酸+氯磺酸反應生成 α-磺酸基油酸的機理是什么樣的？求稍微詳細點的機理。已經(jīng)有3人回復
資源管理器無法顯示硬盤內(nèi)的文件和文件夾已經(jīng)有5人回復
關于優(yōu)青的"生成草稿PDF"問題已經(jīng)有9人回復
酮和氨基反應生成希夫堿的反應已經(jīng)有3人回復
TiO2與Al2O3為什么沒有生成鈦酸鋁？(耐火材料) 已經(jīng)有14人回復
用氯鈀酸等體積共浸漬制備Pd/CZ催化劑，焙燒后生成的催化劑卻不是黑色的為什么？已經(jīng)有16人回復
蒽醌上氨基的重氮化生成氯鹽已經(jīng)有7人回復
交流：晶體結構精修完了，生成完整的晶體結構報表指南已經(jīng)有18人回復
康寧推出面向高性能顯示器的Corning Lotus™ Glass 已經(jīng)有9人回復
Vb.net+ArcEngine生成點狀圖層的速度太慢了該怎么辦？已經(jīng)有10人回復

不要迷戀哥，哥只是一個過客！

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

太不給力了，沒人理！

贊一下

回復此樓

不要迷戀哥，哥只是一個過客！

2樓2011-04-21 09:52:01

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

xiangling1

金蟲 (正式寫手)

應助: 2 (幼兒園)
金幣: 709.2
紅花: 7
帖子: 339
在線: 80.9小時
蟲號: 1234309
注冊: 2011-03-15
性別: GG
專業(yè): 地理信息系統(tǒng)

【答案】應助回帖

zzahkj(金幣+1): 2011-04-28 14:02:48

應該是后面的程序問題，你生成的點集沒有添加到圖層當中！
Dim pPointCol As IPointCollection = New MultipointClass()
......
pPointCol.AddPoint(pPoint, missing, missing);
后面應該加東西

贊一下

回復此樓

黃沙百戰(zhàn)穿金甲，不破樓蘭終不還！

3樓2011-04-21 18:59:13

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

應助: 16 (小學生)
貴賓: 0.034
金幣: 1941.6
散金: 352
紅花: 12
帖子: 1368
在線: 69.8小時
蟲號: 74408
注冊: 2005-06-12
性別: GG
專業(yè): GIS/Spatial Analysis

【答案】應助回帖

如果你僅僅就這一個數(shù)據(jù)集，那就到ArcMap中直接生成顯示就可以了。沒必要寫程序。如果有很多數(shù)據(jù)集》100個�？梢宰约合葘W一下再做。沒有調(diào)試環(huán)境，沒法給你說哪里錯了。

贊一下

回復此樓

4樓2011-04-21 19:49:05

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

應助: 16 (小學生)
貴賓: 0.034
金幣: 1941.6
散金: 352
紅花: 12
帖子: 1368
在線: 69.8小時
蟲號: 74408
注冊: 2005-06-12
性別: GG
專業(yè): GIS/Spatial Analysis

【答案】應助回帖

zzahkj(金幣+9): 1 2011-04-28 14:03:05

engine 中編輯數(shù)據(jù)要從StartEditing開始，然后Creat feature，然后寫入屬性。最后Stopediting（true）,保存編輯才行。

贊一下

回復此樓

5樓2011-04-21 19:50:38

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

雷小雨

銀蟲 (著名寫手)

應助: 1 (幼兒園)
金幣: 755
散金: 1874
紅花: 4
帖子: 1042
在線: 169.2小時
蟲號: 802809
注冊: 2009-07-03
專業(yè): 巖土力學與巖土工程

沒仔細看代碼，一般圖層不顯示可能是（1）點的坐標值不在當前extent范圍內(nèi)；（2）生成了要素集根本沒有添加到地圖控件；（3）被上面的面圖層擋住了；（4）……我再想想，可能理由挺多的

贊一下

回復此樓

6樓2011-04-21 22:36:25

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

引用回帖:

Originally posted by xiangling1 at 2011-04-21 18:59:13:
應該是后面的程序問題，你生成的點集沒有添加到圖層當中！
Dim pPointCol As IPointCollection = New MultipointClass()
......
pPointCol.AddPoint(pPoint, missing, missing);
后面應該加東西

我后面加了些代碼，你看為什么出現(xiàn)未將對象引用設置到對象的實例的錯誤！
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
這段代碼是我根據(jù)一段C#代碼改的，我也不知道有什么問題？

贊一下

回復此樓

不要迷戀哥，哥只是一個過客！

7樓2011-04-22 08:58:52

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

xiangling1

金蟲 (正式寫手)

應助: 2 (幼兒園)
金幣: 709.2
紅花: 7
帖子: 339
在線: 80.9小時
蟲號: 1234309
注冊: 2011-03-15
性別: GG
專業(yè): 地理信息系統(tǒng)

這段代碼不全，
其一，循環(huán)不對
其二，代碼本來就有問題的

贊一下

回復此樓

黃沙百戰(zhàn)穿金甲，不破樓蘭終不還！

8樓2011-04-22 09:19:04

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzahkj

木蟲 (著名寫手)

龍

應助: 42 (小學生)
金幣: 1931.7
散金: 2554
紅花: 30
帖子: 1522
在線: 465.8小時
蟲號: 964751
注冊: 2010-03-08
性別: GG
專業(yè): 地理信息系統(tǒng)

引用回帖:

Originally posted by xiangling1 at 2011-04-22 09:19:04:
這段代碼不全，
其一，循環(huán)不對
其二，代碼本來就有問題的

我現(xiàn)在加了一句pFeatureClass1.CreateFeature()
這次屬性表中有數(shù)據(jù) 可圖上不顯示？

贊一下

回復此樓

不要迷戀哥，哥只是一個過客！

9樓2011-04-22 09:47:38

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

應助: 16 (小學生)
貴賓: 0.034
金幣: 1941.6
散金: 352
紅花: 12
帖子: 1368
在線: 69.8小時
蟲號: 74408
注冊: 2005-06-12
性別: GG
專業(yè): GIS/Spatial Analysis

【答案】應助回帖

引用回帖:

Originally posted by zzahkj at 2011-04-22 09:47:38:
我現(xiàn)在加了一句pFeatureClass1.CreateFeature()
這次屬性表中有數(shù)據(jù) 可圖上不顯示？

屬性中有數(shù)據(jù)有什么用�。坑植皇秋@示屬性數(shù)據(jù)。顯示的是空間數(shù)據(jù)，你空間信息都沒有賦值，怎么能顯示呢？

贊一下

回復此樓

10樓2011-04-22 21:24:50

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉(zhuǎn) 我要訂閱樓主 zzahkj 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 284求調(diào)劑 +5	Zhao anqi 2026-03-22	5/250	2026-03-22 17:38 by barlinike
[考研] 287求調(diào)劑 +8	晨昏線與星海 2026-03-19	9/450	2026-03-22 17:01 by i_cooler
[考研] 一志愿西北大學，070300化學學碩，總分287，雙非一本，求調(diào)劑。 +3	晨昏線與星海 2026-03-20	3/150	2026-03-22 16:00 by ColorlessPI
[考研] 298求調(diào)劑一志愿211 +3	上岸6666@ 2026-03-20	3/150	2026-03-22 15:50 by ColorlessPI
[考研] 291 求調(diào)劑 +3	化工2026屆畢業(yè)?/a> 2026-03-21	3/150	2026-03-22 14:26 by ColorlessPI
[考研] 302求調(diào)劑 +12	呼呼呼。。。。 2026-03-17	12/600	2026-03-21 17:29 by ColorlessPI
[考研] 一志愿重慶大學085700資源與環(huán)境總分308求調(diào)劑 +7	墨墨漠 2026-03-20	7/350	2026-03-21 16:36 by barlinike
[考研] 22 350 本科985求調(diào)劑，求老登收留 +3	李軼男003 2026-03-20	3/150	2026-03-21 13:28 by 搏擊518
[考研] 求調(diào)劑 +3	白QF 2026-03-21	3/150	2026-03-21 13:12 by zhukairuo
[考研] 一志愿武理材料305分求調(diào)劑 +6	想上岸的鯉魚 2026-03-18	7/350	2026-03-21 01:03 by JourneyLucky
[考研] 一志愿西南交大，求調(diào)劑 +5	材化逐夢人 2026-03-18	5/250	2026-03-21 00:26 by JourneyLucky
[考研] 材料專業(yè)求調(diào)劑 +6	hanamiko 2026-03-18	6/300	2026-03-21 00:24 by JourneyLucky
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +8	小材化本科 2026-03-18	8/400	2026-03-20 23:16 by JourneyLucky
[考研] 288求調(diào)劑 +16	于海海海海 2026-03-19	16/800	2026-03-20 22:28 by JourneyLucky
[考研] 0817 化學工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章 +22	rare12345 2026-03-18	22/1100	2026-03-20 20:39 by zhukairuo
[考研] 261求B區(qū)調(diào)劑，科研經(jīng)歷豐富 +3	牛奶很忙 2026-03-20	4/200	2026-03-20 19:34 by JourneyLucky
[考研] 材料與化工專碩調(diào)劑 +7	heming3743 2026-03-16	7/350	2026-03-20 19:31 by zhukairuo
[考研] 0854可跨調(diào)劑，一作一項核心論文五項專利，省、國級證書40+數(shù)一英一287 +8	小李0854 2026-03-16	8/400	2026-03-18 14:35 by 搏擊518
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 333求調(diào)劑 +3	文思客 2026-03-16	7/350	2026-03-16 18:21 by 文思客