NIM009213 for No Product Found

漏洞 ID 编号	NIM009213
已提交	May 21, 2007
上次修改时间	June 5, 2024
适用范围	No Product Found
找到的版本	9.2
编程语言	VB6
状态	Will Not Be Addressed

附加信息

No Public Explanation

解决办法

Re-project the output feature class with the help of following code after feature data conversion.Private Sub ReProject()Dim pPropset As IPropertySetSet pPropset = New PropertySetDim pFact As IWorkspaceFactoryDim pWorkspace As IWorkspacepPropset.SetProperty "DATABASE", "F:\Temp\cities.mdb"Set pFact = New AccessWorkspaceFactorySet pWorkspace = pFact.Open(pPropset, 0)Dim pFeatureWorkspace As IFeatureWorkspaceSet pFeatureWorkspace = pWorkspaceDim pFeatureClass As IFeatureClassSet pFeatureClass = pFeatureWorkspace.OpenFeatureClass("cities")Set pGeoDataset = pFeatureClassDim pGeoDatasetEdit As IGeoDatasetSchemaEditSet pGeoDatasetEdit = pGeoDatasetIf (pGeoDatasetEdit.CanAlterSpatialReference = True) Then Dim pSpatRefFact As ISpatialReferenceFactory2 Set pSpatRefFact = New SpatialReferenceEnvironment Dim pProjCoordSys As IProjectedCoordinateSystem Set pProjCoordSys = pSpatRefFact.CreateProjectedCoordinateSystem(esriGeometry.esriSRProjCS_NAD1983UTM_12N) pGeoDatasetEdit.AlterSpatialReference pProjCoordSysEnd IfEnd Sub