vba13-9.txt

来自「ao的一些代码集合」· 文本 代码 · 共 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