vba13-9.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

' 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