NIM011799 for No Product Found

不具合 ID 番号	NIM011799
送信されました	September 18, 2007
最終更新日	April 2, 2025
適用対象	No Product Found
見つかったバージョン	9.2
ステータス	Will Not Be Addressed

参考情報

No Public Explanation

対処法

The following VBA code will pull the z max and min from a tin and output to a msg box.---------------------------------------------------------------------------------------------------------------------------------------Dim pMxDoc As IMxDocumentDim pMap As IMapPrivate Sub GetTinZ() Dim pTinLayer As ITinLayer Dim maxZ As Double Dim minZ As Double Set pMxDoc = ThisDocument Set pMap = pMxDoc.FocusMap Set pTinLayer = pMap.Layer(0) ‘First layer in the map is the TIN Set pTin = pTinLayer.Dataset maxZ = pTinLayer.Dataset.Extent.ZMax minZ = pTinLayer.Dataset.Extent.ZMin MsgBox maxZ MsgBox minZEnd Sub