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