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