ESRI ArcGIS应用与开发请教：怎么给feature做BUFF？||做专业的GIS技术交流论坛

wuyue521_0 路人甲注册日期2006-06-22 发帖数47 QQ 铜币272枚威望0点贡献值0点银元0个加关注写私信	阅读：1434回复：2 请教：怎么给feature做BUFF？楼主^# 更多只看楼主倒序阅读发布于：2006-07-03 20:26 <P>我要做desktop里的功能select by loction，查都可以查了</P> <P>就是不知道BUFF怎么写。求帮忙</P><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />
	喜欢0 评分0 最新喜欢：举报回复

gis

管理员

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

加关注写私信

1楼^#

发布于：2006-07-04 08:29

看开发帮助里的例子BufferFeatures Sample
也可以看下面的
<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麦田守望者，期待与您交流。

举报回复喜欢评分

wuyue521_0 路人甲注册日期2006-06-22 发帖数47 QQ 铜币272枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2006-07-04 18:25 <P>3q</P> <P>发现还是gis解答的多啊</P> <P>难道这就是传说中的能者多劳么？</P> <P>给我们多培训培训，以后我们也能回答问题了哈哈</P><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />
	举报回复(0) 喜欢(0) 评分

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

请教：怎么给feature做BUFF？

最新喜欢：