vba13-9.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 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