AE+C#三维开发,怎样进行属性查询?给个思路?小弟感激不尽?

楼主^#

更多发布于：2008-02-19 21:37

AE+C#三维开发,怎样进行属性查询?给个思路?小弟感激不尽?本人找到点源码,但是VB的
本人找到点源码,但是VB的,哪位大哥帮忙翻译一下
Private Sub cmdApply_Click() Dim result As esriSelectionResultEnum ' Apply button pressed. If control key is depressed then add this selections ' of this operation to the current selection set, other wise create a new one If (Not (GetKeyState(VK_CONTROL) < 0)) Then result = esriSelectionResultNew Else result = esriSelectionResultAdd End If Select Case tbsOptions.SelectedItem.Index Case 1 QueryByClass result Case 2 QueryByAttribute result '从这里调用的 Case 3 QueryBySpace result End Select End Sub Private Sub QueryByAttribute(operator As esriSelectionResultEnum) Dim pFeatureLayer As IGeoFeatureLayer Dim j As Long Dim i As Long Dim pFeatureselection As IFeatureSelection Dim pActiveView As IActiveView Dim pFields As IFields Dim pField As IField Dim FieldID As Long Dim operatorString As String Dim whereClause As String Dim pFilter As IQueryFilter Dim attName As String Dim attValue As Variant On Error GoTo ErrorHandler ' construct the where clause from the users entries on the form If ((lstAttribute.SelCount < 1) Or (txtValue = "")) Then GiveWarning "Warning", "You must select an attribute along with a value!" Exit Sub End If For i = 0 To lstAttribute.ListCount - 1 If (lstAttribute.Selected(i)) Then attName = lstAttribute.List(i) i = lstAttribute.ListCount End If Next i Select Case cboOperator.Text Case "等于" operatorString = "=" Case "不等于" operatorString = "<>" Case "小于" operatorString = "<" Case "大于" operatorString = ">" Case "小于或等于" operatorString = "<=" Case "大于或等于" operatorString = ">=" End Select Set pActiveView = m_pMap pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing For j = 0 To lstClass.ListCount - 1 If (lstClass.Selected(j)) Then If (FoundLayer(lstClass.List(j), pFeatureLayer)) Then Set pFeatureselection = pFeatureLayer If (pFeatureLayer.Selectable) Then ' Must convert the attribute value to the correct type Set pFields = pFeatureLayer.FeatureClass.Fields FieldID = pFeatureLayer.FeatureClass.FindField(attName) Set pField = pFields.Field(FieldID) attValue = txtValue.Text Select Case pField.Type Case esriFieldTypeInteger attValue = CInt(attValue) Case esriFieldTypeSingle attValue = CInt(attValue) Case esriFieldTypeSmallInteger attValue = CInt(attValue) Case esriFieldTypeDouble attValue = CDbl(attValue) Case esriFieldTypeOID attValue = CLng(attValue) Case esriFieldTypeString attValue = CStr(attValue) attValue = "'" ; CStr(attValue) ; "'" End Select whereClause = attName ; operatorString ; " " ; CStr(attValue) Set pFilter = New QueryFilter pFilter.SubFields = "*" pFilter.whereClause = whereClause Set pFilter.OutputSpatialReference(attName) = m_pMap.SpatialReference pFeatureselection.SelectFeatures pFilter, operator, False Else If (operator = esriSelectionResultNew) Then pFeatureselection.Clear End If End If Else If (FoundLayer(lstClass.List(j), pFeatureLayer)) Then Set pFeatureselection = pFeatureLayer If ((operator = esriSelectionResultNew) Or _ (operator = esriSelectionResultAnd)) Then pFeatureselection.Clear End If End If Next j Debug.Print pFeatureLayer.name pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing frmMDIMain.ActiveBar.Bands("StatusBar").Tools("StatusBarLabel").Caption = "选择实体数目: " ; CStr(m_pMap.SelectionCount) RefreshSelectButtons Exit Sub ErrorHandler: MsgBox "An unexpected error has occured with the Selection Dialog." ; vbCr ; vbCr ; _ "Details : " ; Err.Description, vbExclamation + vbOKOnly, "Error" End Sub Private Sub QueryBySpace(operator As esriSelectionResultEnum) Dim pClassList As Collection Dim i As Long Dim j As Long Dim pElement As IElement Dim relOperator As esriSpatialRelEnum Dim pGeometry As IGeometry Dim pPoint As IPoint Dim pEnv As IEnvelope Dim pSelectEnv As ISelectionEnvironment Dim pActiveView As IActiveView ' Dim pMxApp As IMxApplication Dim prevSelMethod As esriSelectionResultEnum Dim shiftKeyDown As Boolean Dim prevAreaSelection As esriSpatialRelEnum Dim prevLineSelection As esriSpatialRelEnum Dim prevPointSelection As esriSpatialRelEnum Dim pColn As Collection Dim pLayer As ILayer Dim pGeoLayer As IGeoFeatureLayer On Error GoTo ErrorHandler If (m_pSearchGeometry Is Nothing) Then Exit Sub 'Set pMxApp = m_pApp Set pSelectEnv = New SelectionEnvironment prevAreaSelection = pSelectEnv.AreaSelectionMethod prevLineSelection = pSelectEnv.LinearSelectionMethod prevPointSelection = pSelectEnv.PointSelectionMethod If (optSpatialOp(0).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelContains ElseIf (optSpatialOp(1).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelCrosses ElseIf (optSpatialOp(2).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelIntersects ElseIf (optSpatialOp(3).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelOverlaps ElseIf (optSpatialOp(4).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelTouches ElseIf (optSpatialOp(5).Value = True) Then pSelectEnv.AreaSelectionMethod = esriSpatialRelWithin End If pSelectEnv.LinearSelectionMethod = pSelectEnv.AreaSelectionMethod pSelectEnv.PointSelectionMethod = pSelectEnv.AreaSelectionMethod ' now set the layers to be search through. This is done by going through and setting all ' non searchable layers to false prevSelMethod = pSelectEnv.CombinationMethod pSelectEnv.CombinationMethod = operator Set pActiveView = m_pMap If (prevSelMethod <> esriSelectionResultAdd) Then pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing Set pColn = New Collection For i = 0 To (m_pMap.LayerCount - 1) Set pLayer = m_pMap.Layer(i) If (TypeOf pLayer Is IGeoFeatureLayer) Then Set pGeoLayer = pLayer pColn.Add pGeoLayer.Selectable, CStr(i) pGeoLayer.Selectable = False For j = 0 To lstClass.ListCount - 1 If (lstClass.Selected(j)) Then If (lstClass.List(j) = pGeoLayer.name) Then pGeoLayer.Selectable = True j = lstClass.ListCount End If End If Next j End If Next i m_pMap.SelectByShape m_pSearchGeometry, pSelectEnv, False pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing ' reset the selection status of thje layers back For i = 0 To (m_pMap.LayerCount - 1) Set pLayer = m_pMap.Layer(i) If (TypeOf pLayer Is IGeoFeatureLayer) Then Set pGeoLayer = pLayer pGeoLayer.Selectable = pColn.Item(CStr(i)) End If Next i pSelectEnv.CombinationMethod = prevSelMethod pSelectEnv.AreaSelectionMethod = prevAreaSelection pSelectEnv.LinearSelectionMethod = prevLineSelection pSelectEnv.PointSelectionMethod = prevLineSelection RefreshSelectButtons Exit Sub ErrorHandler: MsgBox "An unexpected error has occured with the Selection Dialog." ; vbCr ; vbCr ; _ "Details : " ; Err.Description, vbExclamation + vbOKOnly, "Error" End Sub

喜欢0 评分0

举报回复

llw2008 路人甲注册日期2007-12-09 发帖数18 QQ 铜币159枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2008-02-20 14:20 没人回答我顶了
	举报回复(0) 喜欢(0) 评分

llw2008 路人甲注册日期2007-12-09 发帖数18 QQ 铜币159枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2008-02-22 12:42 <TABLE fixed; WORD-BREAK: break-all" height="85%" width="95%" align=center border=0> <TR> <TD 9pt; LINE-HEIGHT: 12pt" vAlign=top width=* height="100%"><IMG src="http://www.gisempire.com/bbs/Skins/Default/topicface/face0.gif"> <B></B><BR>没人回答我顶了</TD></TR></TABLE>
	举报回复(0) 喜欢(0) 评分

hikeryu 路人甲注册日期2008-01-03 发帖数18 QQ 铜币159枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2009-05-18 09:32 我也想知道
	举报回复(0) 喜欢(0) 评分

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

AE+C#三维开发,怎样进行属性查询?给个思路?小弟感激不尽?

最新喜欢：