版块导航
正在加载中...
客户端APP下载
论文辅导
调剂小程序
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(990)
>
导师招生
(114)
>
考研
(103)
>
虫友互识
(64)
>
基金申请
(40)
>
公派出国
(34)
>
论文投稿
(26)
>
论文道贺祈福
(23)
>
教师之家
(11)
>
考博
(10)
>
硕博家园
(7)
>
博后之家
(5)
>
留学生活
(5)
>
招聘信息布告栏
(4)
>
文献求助
(4)
>
找工作
(3)
小木虫论坛-学术科研互动平台
»
专业学科区
»
地学
»
3S技术
»
Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办?
5
1/1
返回列表
查看: 1936 | 回复: 10
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖
zzahkj
木虫
(著名写手)
应助: 42
(小学生)
金币: 1931.7
帖子: 1522
在线: 465.8小时
虫号: 964751
[交流]
Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办?
Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办?由于我做的是预警预报系统,速度尽可能短,现在生成全部点要好几天,这也太慢了,根本就不适用,请问有什么好的办法解决吗?我的代码如下:
CODE:
Public Sub dianshengcheng()
Dim filePath As String = My.Computer.FileSystem.CurrentDirectory & "\ResultsFileName"
If System.IO.File.Exists(filePath & "\点.shp") Then
MessageBox.Show("点文件已存在")
Main.AxMapControl1.AddShapeFile(filePath, "点")
Else
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
'pGeomDefEdit1.HasZ_2 = True
pFieldEdit1.GeometryDef_2 = pGeomDef1
pFieldsEdit1.AddField(pField1)
pFields1 = CType(pFieldsEdit1, IFields)
pField1 = New Field
pFieldEdit1 = pField1
With pFieldEdit1
pFieldEdit1.Length_2 = 10
pFieldEdit1.Name_2 = "温度"
pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
End With
pFieldsEdit1.AddField(pField1)
pField1 = New Field
pFieldEdit1 = pField1
With pFieldEdit1
pFieldEdit1.Length_2 = 10
pFieldEdit1.Name_2 = "盐度"
pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
End With
pFieldsEdit1.AddField(pField1)
pField1 = New Field
pFieldEdit1 = pField1
With pFieldEdit1
pFieldEdit1.Length_2 = 10
pFieldEdit1.Name_2 = "水质指标"
pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
End With
pFieldsEdit1.AddField(pField1)
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()
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 t As Double = Convert.ToDouble(strs(2))
Dim s As Double = Convert.ToDouble(strs(3))
Dim c As Double = Convert.ToDouble(strs(4))
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()
Dim i As Integer
For i = 0 To pPointCol.PointCount - 1 Step 1
Dim newFeature As IFeature = pFeatureClass1.CreateFeature
newFeature.Shape = pPointCol.Point(i)
newFeature.Value(newFeature.Fields.FindField("温度")) = t
newFeature.Value(newFeature.Fields.FindField("盐度")) = s
newFeature.Value(newFeature.Fields.FindField("水质指标")) = c
newFeature.Store()
Next
End While
Main.AxMapControl1.Refresh()
Main.AxMapControl1.AddShapeFile(filePath, "点")
MessageBox.Show("文件创建成功")
End If
End Sub
[
Last edited by zzahkj on 2011-5-6 at 15:36
]
回复此楼
» 猜你喜欢
进入ISIS后,打不开任何界面
已经有8人回复
地幔环流说2.0
已经有18人回复
地球化学论文润色/翻译怎么收费?
已经有136人回复
计划投资2亿的特提斯计划动力机制问题,魔都民工挑战中科院相关人员,谁的更有道理?
已经有11人回复
SCIENCE ADVANCE投稿状态咨询
已经有5人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
昆虫科学怎么这么慢?
已经有3人回复
为什么羧酸盐和醇可以生成酯?
已经有12人回复
急,刚投稿之后回复生成的PDF有问题,请教~~~
已经有5人回复
大家帮忙看看应该怎么办?
已经有7人回复
现在Elsevier旗下的期刊处理速度慢,是不是科学家抵制的结果?
已经有28人回复
Electrochimica Acta现在处理速度貌似很慢???
已经有19人回复
RAW264.7细胞长得很慢吗?
已经有12人回复
(高悬赏求教)SDS-PAGE时间过长,速度慢
已经有5人回复
Vb.net+ArcEngine生成的点状图层不显示?
已经有10人回复
SCI如何写撤稿信,杂志审稿太慢,我要撤稿重新投
已经有4人回复
【求助】求助裸鼠移植瘤生长慢
已经有3人回复
» 抢金币啦!回帖就可以得到:
查看全部散金贴
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1名(4月3日截止)
+
2
/100
招收调剂生,动物医学专业
+
1
/89
散金币,求基金中标!!
+
1
/84
从专科一路到211硕士,到TOP5博士,也想进高校体制
+
1
/35
华南师范大学(211)博士招生- 电子、自动化、机械、生物学、物理相关专业
+
2
/34
---大龄的未婚男找结婚女对象
+
1
/20
北京某研究院生物化学与分子生物学相关专业申请考核制博士招生(春季)
+
1
/12
新加坡国立大学药学系化学生物学课题组招PhD
+
1
/12
南昌航空大学代威力教授招收光催化和光热催化研究方向博士生
+
1
/9
招收调剂生 国家重点实验室(广西某师范大学、B区)
+
1
/7
课题组招收环境及相关专业调剂硕士研究生(欢迎优秀学生加入)
+
1
/6
2026考研的同学,分数不够?想调剂上岸的同学,来看
+
1
/4
镇江托尔化学有机合成研发岗位工作机会
+
1
/4
海外博士招聘
+
1
/4
“机械、材料”招生
+
1
/3
军科某研究院接收调剂研究生
+
1
/3
Top-88悉尼科技大学数据科学/AI 招收2027年入学 校奖 博士生1到2名(国际和本地学生)
+
1
/2
北京高校副校长团队招收机械类,环境类学硕和专硕
+
1
/2
首次招收资格,招收工科调剂!
+
1
/1
武汉轻工大学土木水利青椒硕导招调剂
+
1
/1
1楼
2011-05-06 15:34:28
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
zzahkj
木虫
(著名写手)
应助: 42
(小学生)
金币: 1931.7
帖子: 1522
在线: 465.8小时
虫号: 964751
引用回帖:
Originally posted by
efeng522
at 2011-05-06 16:07:05:
这个要看你数据量的大小,如果数据量不大,那么这个效率肯定是不正常的;如果数据量确实有这么大,你就要考虑是否有必要一次性生成这么多数据,或者在这么大的空间范围内生成数据。
VB不熟,所以代码没细看,只是 ...
数据量还是非常大的,必须得一次性生成这么多数据!我也觉得这个效率不正常,可没有很好的办法解决?
赞
一下
回复此楼
高级回复
3楼
2011-05-06 16:25:22
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 11 个回答
efeng522
木虫
(初入文坛)
应助: 0
(幼儿园)
金币: 2234.8
帖子: 38
在线: 58.3小时
虫号: 1082724
★
小木虫(金币
+0.5
):给个红包,谢谢回帖
这个要看你数据量的大小,如果数据量不大,那么这个效率肯定是不正常的;如果数据量确实有这么大,你就要考虑是否有必要一次性生成这么多数据,或者在这么大的空间范围内生成数据。
VB不熟,所以代码没细看,只是泛泛而谈,抛砖引玉
赞
一下
(1人)
回复此楼
2楼
2011-05-06 16:07:05
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
xiangling1
金虫
(正式写手)
应助: 2
(幼儿园)
金币: 709.2
帖子: 339
在线: 80.9小时
虫号: 1234309
★
小木虫(金币
+0.5
):给个红包,谢谢回帖
zzahkj(金币+10): 2011-05-07 15:43:13
后面的循环可以优化,你把For循环提出来
你把三个属性封装一下,循环一次,把三个属性赋进去值
你这样做出来的点的属性值是不对的
你多写几个函数,把这段代码分解开一定不要循环里面再有循环
速度会增加的
赞
一下
(1人)
回复此楼
4楼
2011-05-06 21:31:46
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
zzahkj
木虫
(著名写手)
应助: 42
(小学生)
金币: 1931.7
帖子: 1522
在线: 465.8小时
虫号: 964751
引用回帖:
Originally posted by
xiangling1
at 2011-05-06 21:31:46:
后面的循环可以优化,你把For循环提出来
你把三个属性封装一下,循环一次,把三个属性赋进去值
你这样做出来的点的属性值是不对的
你多写几个函数,把这段代码分解开一定不要循环里面再有循环
速度会 ...
谢谢你啊!我去掉了里面一个循环,6000多个点生成要二十几分钟,这个速度是不是还慢呢?我听说一秒钟就可以生成上万个点才是正常的?
赞
一下
回复此楼
5楼
2011-05-07 10:15:32
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 11 个回答
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
高级回复
(可上传附件)
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
最具人气热帖推荐
[查看全部]
作者
回/看
最后发表
[
论文投稿
]
申请回稿延期一个月,编辑同意了。但系统上的时间没变,给编辑又写邮件了,没回复
10
+3
wangf9518
2026-03-17
4/200
2026-03-19 23:55
by
babero
[
考研
]
材料学硕318求调剂
+5
February_Feb
2026-03-19
5/250
2026-03-19 23:51
by
23Postgrad
[
考研
]
0817 化学工程 299分求调剂 有科研经历 有二区文章
+18
rare12345
2026-03-18
18/900
2026-03-19 22:36
by
学员8dgXkO
[
考研
]
复试调剂
+4
z1z2z3879
2026-03-14
6/300
2026-03-19 17:18
by
fei626-918
[
考研
]
一志愿天津大学化学工艺专业(081702)315分求调剂
+11
yangfz
2026-03-17
11/550
2026-03-19 15:06
by
houyaoxu
[
考研
]
一志愿西安交通大学材料工程专业 282分求调剂
+5
枫桥ZL
2026-03-18
7/350
2026-03-19 14:52
by
功夫疯狂
[
考研
]
085600材料与化工求调剂
+6
绪幸与子
2026-03-17
6/300
2026-03-19 13:27
by
houyaoxu
[
考研
]
328求调剂,英语六级551,有科研经历
+4
生物工程调剂
2026-03-16
12/600
2026-03-19 11:10
by
生物工程调剂
[
考研
]
328求调剂,英语六级551,有科研经历
+3
生物工程调剂
2026-03-17
7/350
2026-03-18 20:41
by
Wangjingyue
[
考研
]
344求调剂
+6
knight344
2026-03-16
7/350
2026-03-18 20:13
by
walc
[
考研
]
【同济软件】软件(085405)考研求调剂
+3
2026eternal
2026-03-18
3/150
2026-03-18 19:09
by
搏击518
[
考研
]
311求调剂
+11
冬十三
2026-03-15
12/600
2026-03-18 14:36
by
星空星月
[
考研
]
298-一志愿中国农业大学-求调剂
+7
手机用户
2026-03-17
7/350
2026-03-18 14:34
by
vgtyfty
[
考研
]
304求调剂
+12
小熊joy
2026-03-14
13/650
2026-03-18 12:34
by
Linda Hu
[
考博
]
26博士申请
+3
1042136743
2026-03-17
3/150
2026-03-17 23:30
by
轻松不少随
[
考研
]
277调剂
+5
自由煎饼果子
2026-03-16
6/300
2026-03-17 19:26
by
李leezz
[
考研
]
304求调剂
+5
素年祭语
2026-03-15
5/250
2026-03-16 17:00
by
我的船我的海
[
考研
]
304求调剂
+3
曼殊2266
2026-03-14
3/150
2026-03-16 16:39
by
houyaoxu
[
考研
]
中科大材料与化工319求调剂
+3
孟鑫材料
2026-03-14
3/150
2026-03-14 20:10
by
ms629
[
考研
]
311求调剂
+3
冬十三
2026-03-13
3/150
2026-03-13 20:41
by
JourneyLucky
信息提示
关闭
请填处理意见
关闭
确定