|
10楼#
发布于:2004-10-28 17:58
<P>非常感谢大家的支持和意见,我已经通过如下方法实现了</P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">首先在点数据里面添加两个字段,比如XCor,YCor<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">把数据添加到Arcmap中来,打开编辑会话(也就是处于编辑状态),<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">打开属性表,在XCor列的表头处点击Calculate values, 打开field calculator对话框<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">把对话框上advanced前面打上勾,并且在pre-logic VBA Script Code写代码:<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char"> Dim x as double<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">Dim pPoint as IPoint<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">Set pPoint = [shape]<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">x = pPoint.X<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">在最后一行的输入框中输入 x , (也就是在=的后面一行)<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char">点击确定<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char"> <p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char"> 在计算YCor一列值的时候操作上是一样的,代码为<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">Dim y as double<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">Dim pPoint as IPoint<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">Set pPoint = [shape]<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">y = pPoint.Y<p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt">在最后一行的输入框中输入 y <p></p></P><P 0cm 0cm 0pt; LAYOUT-GRID-MODE: char; TEXT-INDENT: 40.5pt"><p></p> </P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
11楼#
发布于:2004-10-28 22:14
<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
上一页
下一页