版塊導(dǎo)航: 正在加載中...

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

24小時(shí)熱門版塊排行榜

返回列表

zzahkj

木蟲 (著名寫手)

龍

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

[求助] Vb.net+ArcEngine生成的點(diǎn)狀圖層不顯示？

我剛剛接觸這個(gè)，望高手給個(gè)詳細(xì)解答，謝謝！我的代碼如下，為什么我生成的點(diǎn)狀圖層不顯示呢？
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("點(diǎn)", 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, "點(diǎn)" )

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

回復(fù)此樓

» 猜你喜歡

求助裂變徑跡已經(jīng)有0人回復(fù)
澳門大學(xué)機(jī)器人與自主系統(tǒng)碩士項(xiàng)目已經(jīng)有2人回復(fù)
地質(zhì)學(xué)論文潤色/翻譯怎么收費(fèi)? 已經(jīng)有210人回復(fù)
南京大學(xué)能源與資源學(xué)院馬朝陽課題組博士后招聘已經(jīng)有30人回復(fù)
調(diào)劑西南科技大學(xué) 環(huán)資學(xué)院已經(jīng)有4人回復(fù)
西南科技大學(xué) 調(diào)劑綿陽已經(jīng)有10人回復(fù)
散金幣，求基金中標(biāo)��！已經(jīng)有40人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

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

不要迷戀哥，哥只是一個(gè)過客！

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

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

zzahkj

木蟲 (著名寫手)

龍

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

太不給力了，沒人理！

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個(gè)過客！

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

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

xiangling1

金蟲 (正式寫手)

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

【答案】應(yīng)助回帖

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

應(yīng)該是后面的程序問題，你生成的點(diǎn)集沒有添加到圖層當(dāng)中！
Dim pPointCol As IPointCollection = New MultipointClass()
......
pPointCol.AddPoint(pPoint, missing, missing);
后面應(yīng)該加?xùn)|西

贊一下

回復(fù)此樓

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

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

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

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

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

【答案】應(yīng)助回帖

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

贊一下

回復(fù)此樓

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

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

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

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

【答案】應(yīng)助回帖

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

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

贊一下

回復(fù)此樓

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

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

雷小雨

銀蟲 (著名寫手)

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

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

贊一下

回復(fù)此樓

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

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

zzahkj

木蟲 (著名寫手)

龍

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

引用回帖:

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

我后面加了些代碼，你看為什么出現(xiàn)未將對(duì)象引用設(shè)置到對(duì)象的實(shí)例的錯(cuò)誤！
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#代碼改的，我也不知道有什么問題？

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個(gè)過客！

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

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

xiangling1

金蟲 (正式寫手)

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

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

贊一下

回復(fù)此樓

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

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

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

zzahkj

木蟲 (著名寫手)

龍

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

引用回帖:

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

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

贊一下

回復(fù)此樓

不要迷戀哥，哥只是一個(gè)過客！

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

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

yanggis

木蟲 (著名寫手)

小木蟲GIS家族族長

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

【答案】應(yīng)助回帖

引用回帖:

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

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

贊一下

回復(fù)此樓

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

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

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

返回列表

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

[考研] 317求調(diào)劑 +12	申子申申 2026-03-19	18/900	2026-03-22 22:23 by luoyongfeng
[考研] 一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑 +11	楓橋ZL 2026-03-18	13/650	2026-03-22 20:26 by edmund7
[考研] 招08考數(shù)學(xué) +4	laoshidan 2026-03-20	8/400	2026-03-22 19:56 by 小皮蛋醬
[考研] 287求調(diào)劑 +8	晨昏線與星海 2026-03-19	9/450	2026-03-22 17:01 by i_cooler
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +5	脫穎而出 2026-03-16	17/850	2026-03-22 15:18 by 脫穎而出
[考研] 求調(diào)劑 +7	Auroracx 2026-03-22	7/350	2026-03-22 12:38 by 素顏傾城1988
[考研] 一志愿華中科技大學(xué)071000，求調(diào)劑 +4	沿岸有貝殼6 2026-03-21	4/200	2026-03-22 07:21 by ilovexiaobin
[考研] 286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！ +4	lemonzzn 2026-03-17	8/400	2026-03-21 22:49 by lemonzzn
[考研] 初試 317 +7	半拉月丙 2026-03-20	7/350	2026-03-21 22:26 by peike
[考研] 一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡之-
[考研] 求調(diào)劑 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 學(xué)員8dgXkO
[基金申請(qǐng)] 學(xué)校已經(jīng)提交到NSFC，還能修改嗎？ 40+4	babangida 2026-03-19	9/450	2026-03-21 16:12 by babangida
[考研] 316求調(diào)劑 +6	梁茜雯 2026-03-19	6/300	2026-03-21 06:32 by Ecowxq666！
[考研] 321求調(diào)劑 +9	何潤采123 2026-03-18	11/550	2026-03-20 23:19 by JourneyLucky
[考研] A區(qū)線材料學(xué)調(diào)劑 +5	周周無極 2026-03-20	5/250	2026-03-20 21:33 by laoshidan
[考研] 一志愿南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +5	@taotao 2026-03-20	5/250	2026-03-20 20:16 by JourneyLucky
[考研] 085601材料工程專碩求調(diào)劑 +10	慕寒mio 2026-03-16	10/500	2026-03-19 15:26 by 丁丁*
[考研] 本科鄭州大學(xué)物理學(xué)院，一志愿華科070200學(xué)碩，346求調(diào)劑 +4	我不是一根蔥 2026-03-18	4/200	2026-03-19 09:11 by 浮云166
[考研] 312求調(diào)劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.

24小時(shí)熱門版塊排行榜

[求助] Vb.net+ArcEngine生成的點(diǎn)狀圖層不顯示？

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

[求助] Vb.net+ArcEngine生成的點(diǎn)狀圖層不顯示？