|
阅读：1840回复：4
请问如何把一个图层分成两个图层啊，谢谢！
如把一个图层中的文本对象分离出来作为一个图层
|
|
|
1楼#
发布于：2004-08-09 09:30
我也想知道
|
|
|
2楼#
发布于：2004-08-09 12:59
<P>在mapbasic中编程可实现，要用到objectinfo(),select ,commit table三条函数命令</P>
|
|
|
|
3楼#
发布于：2004-08-09 20:48
<P>dim n,i as integer</P><P>dim myobj as object</P><P>n=tableinfo(a,tab_info_nrows) '取表的行数</P><P>for i=1 to n</P><P>select obj from a where rowid=i</P><P>myobj=selection.obj</P><P>if objectinfo(myobj,obj_info_type)=obj_type_text then '判断是不是文本对象</P><P>insert into cui(obj) value(myobj) '写入名为cui的表中</P><P>delete from a where rowid=i</P><P>end if</P><P>next</P><P>但是我不知道如果文本对象有属性的话，如何也把相应的属性也写到新的表(cui)中，关注。</P>
|
|
|
4楼#
发布于：2004-08-09 22:01
<P>知道 了，好象是这样。</P><P>dim n,i as integer</P><P>dim myobj as object</P><P>n=tableinfo(a,tab_info_nrows) '取表的行数</P><P>for i=1 to n</P><P>select * from a where rowid=i</P><P>myobj=selection.obj</P><P>if objectinfo(myobj,obj_info_type)=obj_type_text then '判断是不是文本对象</P><P>insert into cui select * from selection '写入名为cui的表中</P><P>delete from a where rowid=i</P><P>end if</P><P>next</P>
|
|