vba13-9.txt

来自「一个基于ARCGIS的VBA开发代码,本人用它做过很多VBA开发,非常不错!」· 文本 代码 · 共 8 行

' After a parcel is selected, create a buffer around it
Dim pBufferGeometry As IGeometry
Set pBufferGeometry = BufferFeatures()
' Use the buffer to select parcels for notification
SelectParcels pBufferGeometry
' Zoom to the selection
SetExtent