阅读:3432回复:12
如何遍历指定图层的所有Feature?
<P>请各位高手指点啊</P>
<P>如何遍历指定图层的所有Feature?</P> |
|
|
1楼#
发布于:2004-09-15 15:19
<P> Dim pFeatcls As IFeatureClass
Set pFeatLayer = pMap.Layer(0) Set pFeatcls = pFeatLayer.FeatureClass</P><P>IFeature = IFeatureCursor.NextFeature</P> |
|
2楼#
发布于:2004-09-16 11:26
<DIV class=quote><B>以下是引用<I>追风浪子</I>在2004-9-15 15:19:07的发言:</B>
<P>Dim pFeatcls As IFeatureClass Set pFeatLayer = pMap.Layer(0) Set pFeatcls = pFeatLayer.FeatureClass</P> <P>IFeature = IFeatureCursor.NextFeature</P></DIV> <P>真的很感谢,但能不能再详细点啊</P> |
|
|
3楼#
发布于:2004-09-21 11:50
<P>dim pFeatureClass as IFeatureClass</P><P>dim pFeatureCursor as IFeatureCursor</P><P>dim pFeature as IFeature</P><P>public sub Recile(byval pFeatureLayer as IFeatureLayer)</P><P> set pFeatureClass = pFeatureLayer.FeatureClass</P><P> set pFeatureCursor = pFeatureClass.Search(nothing,false)</P><P> set pFeature = pFeatureCursor.NextFeature</P><P> do while nof pFeature is nothing</P><P> set pFeature = pFeatureCursor.NextFeature</P><P> loop</P><P>end sub</P>
|
|
4楼#
发布于:2004-09-21 14:13
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
5楼#
发布于:2004-09-23 09:17
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
6楼#
发布于:2005-03-01 10:43
<img src="images/post/smile/dvbbs/em01.gif" /> |
|
7楼#
发布于:2005-03-11 16:30
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
8楼#
发布于:2005-03-12 10:43
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
9楼#
发布于:2005-03-30 16:01
<img src="images/post/smile/dvbbs/em02.gif" />
|
|
上一页
下一页