千山暮雪

路人甲

注册日期2004-06-25
发帖数87
QQ
铜币352枚
威望0点
贡献值0点
银元0个

加关注写私信

阅读：2712回复：8

AO中如何用VB显示选中的点

楼主^#

更多发布于：2004-07-02 16:38

如题,在AO中选取的点,都想显示在图层上,用VB该怎么做?

喜欢0 评分0

你来自北京周口，我来自云南元谋，我拉着你毛茸茸的小手，轻轻的咬上一口，啊，是爱情让我们直立行走！

举报回复

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2004-07-02 17:24

你可以看看例子中带的选择的例子了，'This example demonstrates how to use SelectSub SelectTopologyGraph()
Dim pMxDoc As IMxDocument
Dim pTopology As ITopology
Dim pTopologyLayer As ITopologyLayer
Dim pTopologyGraph As ITopologyGraph
Dim bsel As Boolean
Dim pTopologyEdge As ITopologyEdge
Dim pEnumTopologyEdge As IEnumTopologyEdge
Set pMxDoc = ThisDocument
'Assume that there is a topology layer in position 0 in TOC
If Not TypeOf pMxDoc.FocusMap.Layer(0) Is ITopologyLayer Then Exit Sub
Set pTopologyLayer = pMxDoc.FocusMap.Layer(0)
Set pTopology = pTopologyLayer.Topology
Set pTopologyGraph = pTopology.Cache
pTopologyGraph.Build pMxDoc.ActiveView.Extent, False
Set pEnumTopologyEdge = pTopologyGraph.Edges
Set pTopologyEdge = pEnumTopologyEdge.Next
bsel = pTopologyGraph.Select(esriTopologySelectionResultNew, pTopologyEdge)
Debug.Print "esriTopologySelectionResultNew"
Debug.Print "Is the selection changed : " ; bsel
Debug.Print "Selection count : " ; pTopologyGraph.SelectionCount(esriTopologyEdge)
'esriTopologySelectionResultNew
'Is the selection changed : True
'Selection count : 1
Set pTopologyEdge = pEnumTopologyEdge.Next
bsel = pTopologyGraph.Select(esriTopologySelectionResultAdd, pTopologyEdge)
Debug.Print "esriTopologySelectionResultAdd"
Debug.Print "Is the selection changed : " ; bsel
Debug.Print "Selection count : " ; pTopologyGraph.SelectionCount(esriTopologyEdge)
'esriTopologySelectionResultAdd
'Is the selection changed : True
'Selection count : 2
bsel = pTopologyGraph.Select(esriTopologySelectionResultSubtract, pTopologyEdge)
Debug.Print "esriTopologySelectionResultSubtract"
Debug.Print "Is the selection changed : " ; bsel
Debug.Print "Selection count : " ; pTopologyGraph.SelectionCount(esriTopologyEdge)
'esriTopologySelectionResultSubtract
'Is the selection changed : True
'Selection count : 1
bsel = pTopologyGraph.Select(esriTopologySelectionResultXOR, pTopologyEdge)
Debug.Print "esriTopologySelectionResultXOR"
Debug.Print "Is the selection changed : " ; bsel
Debug.Print "Selection count : " ; pTopologyGraph.SelectionCount(esriTopologyEdge)
'esriTopologySelectionResultXOR : Select/Unselect the element depending on its selection state
'Is the selection changed : True
'Selection count : 2

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

千山暮雪

路人甲

注册日期2004-06-25
发帖数87
QQ
铜币352枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2004-07-02 18:11

唉,看不明白......

你来自北京周口，我来自云南元谋，我拉着你毛茸茸的小手，轻轻的咬上一口，啊，是爱情让我们直立行走！

举报回复喜欢评分

runner 路人甲注册日期2004-07-14 发帖数46 QQ 铜币101枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2004-07-14 22:43 日
	举报回复(0) 喜欢(0) 评分

千山暮雪

路人甲

注册日期2004-06-25
发帖数87
QQ
铜币352枚
威望0点
贡献值0点
银元0个

加关注写私信

4楼^#

发布于：2004-07-16 11:59

'查找显示点
 Dim pMap As IMap
 Dim pLayer As ILayer
 Dim pFeatureLayer As IFeatureLayer
 Dim sQuery As String

 sQuery = "OBJECTID>200 and OBJECTID<300"
 Set pMap = MapGN.Map
 Set pLayer = pMap.Layer(0)
 Set pFeatureLayer = pLayer
 Dim pQuery As IQueryFilter
 Set pQuery = New QueryFilter

 pQuery.SubFields = "OBJECTID"
 pQuery.WhereClause = sQuery

 Dim pFeatureCursor As IFeatureCursor
 Set pFeatureCursor = pFeatureLayer.Search(pQuery, False)

 MapGN.Refresh怎么什么都没有显示,哪点出问题了?

你来自北京周口，我来自云南元谋，我拉着你毛茸茸的小手，轻轻的咬上一口，啊，是爱情让我们直立行走！

举报回复喜欢评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

5楼^#

发布于：2004-07-16 12:07

还是例子里的东西
Description:

This sample shows two possible methods for doing an attribute seleciton. The first script uses the 'Select By Attributes' dialog enabling the client to enter a specific attribute query. This macro sets a default expression that can be cleared or modified in the dialog. The second script creates an attribute query using a QueryFilter and performs the selection manually, without the aid of the 'Select By Attributes' dialog.

How to use: 
<OL type=1>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; tab-stops: list 36.0pt; mso-list: l0 level1 lfo1; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto">Paste the code into VBA. </LI>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; tab-stops: list 36.0pt; mso-list: l0 level1 lfo1; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto">Modify the default expression if desired. </LI>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; tab-stops: list 36.0pt; mso-list: l0 level1 lfo1; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto">Load one or more feature layers. </LI>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; tab-stops: list 36.0pt; mso-list: l0 level1 lfo1; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto">From the Macros dialog, run the AttributeQuery macro. </LI>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; tab-stops: list 36.0pt; mso-list: l0 level1 lfo1; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto">Create a new query in the query builder and hit apply.</LI></OL>
Public Sub AttributeQuery()
 Dim pQueryAttributes As IQueryAttributes
 'Create a new Query Attribute Dialog and set
 'some necessary properties before launching it
 Set pQueryAttributes = New QueryAttributes
 Set pQueryAttributes.Application = Application
 pQueryAttributes.SelectFeaturesInLayerOnOK = True
 'Provide a default expression if desired
 pQueryAttributes.Expression = """NAME"" = 'Halifax'"
 'Lauch the dialog
 pQueryAttributes.DoModal Application.hWnd
End Sub
 
Here is a second approach the doesn't use the 'Select By Attributes' dialog.
 
Public Sub SelectMapFeatures()
 Dim pMxDoc As IMxDocument
 Dim pMap As IMap
 Dim pActiveView As IActiveView
 Dim pFeatureLayer As IFeatureLayer
 Dim pFeatureSelection As IFeatureSelection
 Dim pQueryFilter As IQueryFilter
 
 Set pMxDoc = Application.Document
 Set pMap = pMxDoc.FocusMap
 Set pActiveView = pMap
 
 'For simplicity sake let's use the first layer in the map
 If Not TypeOf pMap.Layer(0) Is IFeatureLayer Then Exit Sub
 Set pFeatureLayer = pMap.Layer(0)
 Set pFeatureSelection = pFeatureLayer 'QI
 
 'Create the query filter
 Set pQueryFilter = New QueryFilter
 pQueryFilter.WhereClause = "NAME = 'Nova Scotia'"
 
 'Invalidate only the selection cache
 'Flag the original selection
 pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
 'Perform the selection
 pFeatureSelection.SelectFeatures pQueryFilter, esriSelectionResultNew, False
 'Flag the new selection
 pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
 
End Sub

[此贴子已经被作者于2004-7-16 12:07:52编辑过]

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

千山暮雪

路人甲

注册日期2004-06-25
发帖数87
QQ
铜币352枚
威望0点
贡献值0点
银元0个

加关注写私信

6楼^#

发布于：2004-07-16 15:22

谢谢,已经可以显示了!<img src="images/post/smile/dvbbs/em13.gif" />

你来自北京周口，我来自云南元谋，我拉着你毛茸茸的小手，轻轻的咬上一口，啊，是爱情让我们直立行走！

举报回复喜欢评分

pearlstar 路人甲注册日期2004-07-11 发帖数92 QQ 铜币160枚威望0点贡献值0点银元0个加关注写私信	7楼^# 发布于：2004-07-17 18:57 试试看
	举报回复(0) 喜欢(0) 评分

ienown 路人甲注册日期2006-11-14 发帖数23 QQ6805791 铜币149枚威望0点贡献值0点银元0个加关注写私信	8楼^# 发布于：2008-03-07 19:24 <P>好东西呀</P>
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

AO中如何用VB显示选中的点

最新喜欢：