This method is called for each plot and should return a unique name for the file to be exported from Map Production. The arguments are supplied to provide the developer with a wide range of naming possibilities.
The following code sample demonstrates how the IMMNamer::NextFileName method may be implemented.
Visual Basic |
Copy Code |
Private Function IMMNamer_NextFileName(Optional ByVal PlotExtent As _
IGeometry, Optional ByVal PageNumber As Long, Optional ByVal _
TileNumber As Long, Optional ByVal SheetID As String, Optional ByVal _
BaseFileName As String, Optional ByVal BaseFileExtension As String) As String
Dim pSFilter As ISpatialFilter
Set pSFilter = New SpatialFilter
Dim pArea As IArea
Set pArea = PlotExtent.Envelope
Set pSFilter.Geometry = pArea.Centroid
pSFilter.GeometryField = "SHAPE"
pSFilter.SpatialRel = esriSpatialRelIntersects
Dim pCursor As IFeatureCursor
Set pCursor = m_pFeatureClass.Search(pSFilter, False)
Dim pFeature As IFeature
Set pFeature = pCursor.NextFeature
If Not pFeature Is Nothing Then
IMMNamer_NextFileName = BaseFileName & "_oid_ & _
pFeature.OID & "." & BaseFileExtension
Else
IMMNamer_NextFileName = BaseFileName & PageNumber _
& "." & BaseFileExtension
End If
End Function |
|
Target Platforms: Windows XP SP3 (32-bit and 64-bit), Windows 7 (32-bit and 64-bit)
Not all Operating Systems are supported on all products. Visit the ArcFM Solution Supported Versions page for full details.