如何提取TIN或栅格图层中的Z值并保存到一个点shapefile属性表中

<TABLE width="100%">

<TR>
<TD class=subtitle colSpan=6>内容摘要</TD></TR>
<TR>
<TD class=txt colSpan=6>本文介绍如何从3D数据中提取Z值，并将它写入一个点shapefile的属性表中。</TD></TR>
<TR>
<TD class=subtitle colSpan=6>过程描述</TD></TR>
<TR>
<TD class=txt colSpan=6>目标点shapefile必须是一个3D点要素。以下详细阐述：<BR><BR>1. 通过获取表面数据上已有的要素高度来创建3D点。<BR>A. 添加2D点shapefile和表面数据到ArcMap或ArcScene中。 <BR>B. 点击 3D Analyst > Convert > Features to 3D。 <BR>C. 点击Input Features下拉箭头指定要转换的要素。<BR>D. 点击 Raster or TIN Surface 边的下拉箭头，选中高度数据来源<BR>E. 在 output feature 处设定输出文件位置。<BR>F. 点OK 按钮确认。 <BR><BR>2.添加一个数字字段到该3D点属性表中。 <BR>A. 打开要加入字段的属性表，点击 Options 按钮。 <BR>B. 点击 Add Field。<BR>C. 输入字段名称。<BR>D. 点击 Type 下拉箭头，指定字段类型。<BR>E. 设置其它字段属性。<BR>F. 点击 OK。<BR><BR>3. 右键点击新增的字段标题处，从右键菜单处选Calculate Values，在对话框中Advanced 处打勾。 <BR><BR>4. 在Pre-logic VBA Script Code 编辑框中输入：<BR><BR>5. dim pGeometry as ipoint<BR>set pGeometry = [shape]<BR><BR>6. 在 '<新字段名称> =' 编辑框中输入: <BR>pGeometry.z<BR><BR>7. 点击 OK，该3D点的Z值将会被添加到新字段中。</TD></TR></TABLE>