阅读:2240回复:7
如何自动把点对象的坐标自动写入表中
<P>各位大侠</P>
<P>我想自动把点对象的坐标自动写入表中,编了这么一个程序,这样好像不对,为什么啊</P> <P>include "mapbasic.def" declare sub main sub main dim i,j as integer dim m,n as float open table "C:\Documents and Settings\giggs\桌面\三部\map\给水设备层" interactive as gssb map from gssb for i=1 to 183 fetch rec i from gssb 'i=0 'fetch first from gssb 'do while not eot(gssb) 'i=i+1 m=commandinfo(cmd_info_x) update gssb set x坐标=m where rowid=i next 'fetch next from gssb 'loop end sub </P> |
|
1楼#
发布于:2004-09-27 16:13
<P>open table "C:\Documents and Settings\giggs\桌面\三部\map\给水设备层" interactive as gssb
------------------------------------ 你打开的表的表名呢?</P><P>m=commandinfo(cmd_info_x) -------------------------------------------- 提取X坐标可不能这么提,要用centroidx(obj)</P> |
|
|
2楼#
发布于:2004-09-27 19:49
<P>m=commandinfo(cmd_info_x)
可能不对.</P><P>改成M=CentroidX(gssb.obj)试试</P> |
|
3楼#
发布于:2004-09-27 23:33
<P>谢谢各位大侠</P><P>问题解决了,就是用M=CentroidX(gssb.obj)。</P><P>我想问问m=commandinfo(cmd_info_x)这个语句不是提取坐标,那它表示什么啊
</P>[e |
|
4楼#
发布于:2004-09-28 20:16
<P>何必要编程呢?用现成的工具撒!!把坐标点转换成 点号 x y 等格式,直接读近来,然后展点即可!呵呵。。见笑了!!</P>
|
|
5楼#
发布于:2004-09-28 20:18
不好意思,没有仔细读一楼的信息!!呵呵!!不过这样可以把大量的记事本文件的坐标转成MAPINFO 格式的!!!
|
|
6楼#
发布于:2004-09-29 23:37
<P>"不过这样可以把大量的记事本文件的坐标转成MAPINFO 格式的!!! "</P><P>请问一下怎样能把记事本文件的坐标转成MAPINFO 格式,</P>
|
|
7楼#
发布于:2004-10-01 13:49
可以用open file读取文本文件,然后将读取的东东转为坐标值写入就行了
|
|
|