ESRI ArcGIS应用与开发求助！关于怎样设置缓冲区？？？||做专业的GIS技术交流论坛

roger1984 路人甲注册日期2005-07-26 发帖数21 QQ 铜币213枚威望0点贡献值0点银元0个加关注写私信	阅读：1688回复：5 求助！关于怎样设置缓冲区？？？楼主^# 更多只看楼主倒序阅读发布于：2006-05-05 12:57 <P>怎样设置缓冲区，用代码来实现，请高手指点指点，多谢！！！</P>
	喜欢0 评分0 最新喜欢：举报回复

gis

管理员

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

加关注写私信

1楼^#

发布于：2006-05-09 17:22

<DIV>Description: <TEXT>This sample buffers each selected feature in the focus map and stores the results as polygon graphic elements in the map's basic graphics layer. </TEXT>
<TABLE bgColor=#edf6fd>

<TR>
<TD>Products:
<DIV 15px; POSITION: relative">
ArcView: VBA</DIV>

Platforms: Windows
Minimum ArcGIS Release: 9.0 </TD></TR></TABLE> How to use:
<DIV>
<OL>
<LI>Paste the code into VBA.
<LI>Load one or more feature layers.
<LI>Select some features.
<LI>From the Macros dialog, run the BufferFeatures macro.</LI></OL></DIV> 
<DIV><PRE><CODE>Public Sub</CODE> BufferFeatures()
 <CODE>Dim</CODE> pMxDoc <CODE>As</CODE> IMxDocument
 <CODE>Dim</CODE> pActiveView <CODE>As</CODE> IActiveView
 <CODE>Dim</CODE> pGraphicsContainer <CODE>As</CODE> IGraphicsContainer
 <CODE>Dim</CODE> pEnumFeature <CODE>As</CODE> IEnumFeature
 <CODE>Dim</CODE> pFeature <CODE>As</CODE> IFeature
 <CODE>Dim</CODE> pTopoOp <CODE>As</CODE> ITopologicalOperator
 <CODE>Dim</CODE> pElement <CODE>As</CODE> IElement
 <CODE>Dim</CODE> strBufferDistance <CODE>As String

 Set</CODE> pMxDoc = Application.Document
 <CODE>Set</CODE> pActiveView = pMxDoc.FocusMap
 <CODE>Set</CODE> pGraphicsContainer = pMxDoc.FocusMap

 <CODE>'Verify there is a feature selection</CODE>
 <CODE>If</CODE> pMxDoc.FocusMap.SelectionCount = 0 <CODE>Then Exit Sub</CODE>

 <CODE>'Get a buffer distance from the user</CODE>
 strBufferDistance = InputBox("Enter Distance:", "Buffer")
 <CODE>If</CODE> strBufferDistance = "" <CODE>Or Not</CODE> IsNumeric(strBufferDistance) <CODE>Then Exit Sub</CODE>

 <CODE>'Buffer all the selected features by the BufferDistance</CODE>
 <CODE>'and create a new polygon element from each result</CODE>
 <CODE>Set</CODE> pEnumFeature = pMxDoc.FocusMap.FeatureSelection
 pEnumFeature.Reset
 <CODE>Set</CODE> pFeature = pEnumFeature.Next
 <CODE>Do While Not</CODE> pFeature <CODE>Is Nothing
 Set</CODE> pTopoOp = pFeature.Shape
 <CODE>Set</CODE> pElement = <CODE>New</CODE> PolygonElement
 pElement.Geometry = pTopoOp.Buffer(<CODE>CInt</CODE>(strBufferDistance))
 pGraphicsContainer.AddElement pElement, 0
 <CODE>Set</CODE> pFeature = pEnumFeature.Next
 <CODE>Loop</CODE>

 <CODE>'Redraw the graphics</CODE>
 pActiveView.PartialRefresh esriViewGraphics, <CODE>Nothing</CODE>, <CODE>Nothing
End Sub</CODE></PRE></DIV></DIV>

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

举报回复喜欢评分

roger1984 路人甲注册日期2005-07-26 发帖数21 QQ 铜币213枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2006-05-12 15:56 但是我执行 pMxDoc.FocusMap.SelectionCount = 0，直接就<FONT color=#0000ff>Exit Sub了，数据不是feature class 的，对于这种情况该怎么办啊？</FONT>
	举报回复(0) 喜欢(0) 评分

gis

管理员

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

加关注写私信

3楼^#

发布于：2006-05-12 17:34

<DIV class=quote>以下是引用roger1984在2006-5-12 15:56:52的发言： 但是我执行 pMxDoc.FocusMap.SelectionCount = 0，直接就Exit Sub了，数据不是feature class 的，对于这种情况该怎么办啊？</DIV>
 请先选择至少一个要素，然后再运行

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

举报回复喜欢评分

roger1984 路人甲注册日期2005-07-26 发帖数21 QQ 铜币213枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2006-05-12 17:41 我的数据是line 的，怎样用代码来选定？
	举报回复(0) 喜欢(0) 评分

gis

管理员

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

加关注写私信

5楼^#

发布于：2006-05-15 13:04

<DIV class=quote>以下是引用roger1984在2006-5-12 17:41:07的发言： 我的数据是line 的，怎样用代码来选定？</DIV>
属性或者空间查找出你要选择的要素，也可以直接选择你要的要素，所用的方法和代码都是不同的
下面是个属性查找的例子，注意修改查找条件（红色）

How to use:
<DIV>
<OL>
<LI>Paste the code into VBA.
<LI>Modify the default expression if desired.
<LI>Load one or more feature layers.
<LI>From the Macros dialog, run the AttributeQuery macro.
<LI>Create a new query in the query builder and hit apply.</LI></OL></DIV>
 
<DIV><PRE><CODE>Public Sub</CODE> AttributeQuery()
 <CODE>Dim</CODE> pQueryAttributes <CODE>As</CODE> IQueryAttributes
 <CODE>'Create a new Query Attribute Dialog and set</CODE>
 <CODE>'some necessary properties before launching it</CODE>
 <CODE>Set</CODE> pQueryAttributes = <CODE>New</CODE> QueryAttributes
 <CODE>Set</CODE> pQueryAttributes.Application = Application
 pQueryAttributes.SelectFeaturesInLayerOnOK = <CODE>True</CODE>
 <CODE>'Provide a default expression if desired</CODE>
 pQueryAttributes.Expression = """NAME"" = 'Halifax'"
 <CODE>'Lauch the dialog</CODE>
 pQueryAttributes.DoModal Application.hWnd
<CODE>End Sub</CODE>

Here is a second approach the doesn<CODE>'t use the 'Select By Attributes' dialog.</CODE>

<CODE>Public Sub</CODE> SelectMapFeatures()
 <CODE>Dim</CODE> pMxDoc <CODE>As</CODE> IMxDocument
 <CODE>Dim</CODE> pMap <CODE>As</CODE> IMap
 <CODE>Dim</CODE> pActiveView <CODE>As</CODE> IActiveView
 <CODE>Dim</CODE> pFeatureLayer <CODE>As</CODE> IFeatureLayer
 <CODE>Dim</CODE> pFeatureSelection <CODE>As</CODE> IFeatureSelection
 <CODE>Dim</CODE> pQueryFilter <CODE>As</CODE> IQueryFilter

 <CODE>Set</CODE> pMxDoc = Application.Document
 <CODE>Set</CODE> pMap = pMxDoc.FocusMap
 <CODE>Set</CODE> pActiveView = pMap

 <CODE>'For simplicity sake let's use the first layer in the map</CODE>
 <CODE>If Not TypeOf</CODE> pMap.Layer(0) <CODE>Is</CODE> IFeatureLayer <CODE>Then Exit Sub
 Set</CODE> pFeatureLayer = pMap.Layer(0)
 <CODE>Set</CODE> pFeatureSelection = pFeatureLayer <CODE>'QI</CODE>

 <CODE>'Create the query filter</CODE>
 <CODE>Set</CODE> pQueryFilter = <CODE>New</CODE> QueryFilter
 pQueryFilter.WhereClause = "NAME = 'Nova Scotia'"

 <CODE>'Invalidate only the selection cache</CODE>
 <CODE>'Flag the original selection</CODE>
 pActiveView.PartialRefresh esriViewGeoSelection, <CODE>Nothing</CODE>, <CODE>Nothing</CODE>
 <CODE>'Perform the selection</CODE>
 pFeatureSelection.SelectFeatures pQueryFilter, esriSelectionResultNew, <CODE>False</CODE>
 <CODE>'Flag the new selection</CODE>
 pActiveView.PartialRefresh esriViewGeoSelection, <CODE>Nothing</CODE>, <CODE>Nothing

End Sub</CODE>
</PRE></DIV>

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

举报回复喜欢评分

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

求助！关于怎样设置缓冲区？？？

最新喜欢：