阅读:31451回复:76
MapObjects符号定制编辑工具[无试用提示]跟代码
<P>很多兄弟不知道如何解压。在这里说一下,把两个文件改成1,2就ok,改成连续的文件名就ok。
本站下载地址: <a href="attachment/2003103010113655562.rar">2003103010113655562.rar</a> <a href="attachment/2003103010115031019.rar">2003103010115031019.rar</a> 破解地址:</P> <P><a href="http://gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=22733" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=22733</A></P> <P> MapObjects中,在编码阶段定义图形符号既简单又方便,但却很枯燥。另外这种通过编程实现的符号很难管理。自然我们想到把符号放到数据库中,写一段程序来动态生成符号,但不仅满足于此,我们有更进一步的方法来实现。 MapObject的Symbol类有一个Custom属性,用户可以用组件的方式定义绘制方法。问题是怎样用数据定义符号。ArcInfo中符号的定义方式即是很好的参考。 这样,我们可以简单地描述这出一个技术路线:开发一个组件,它可以管理建立一系列数据记录,并可用记录中的数据来创建另外的组件,这个创建的组件可以根据用户数据,实现来自MapObjects的绘制请求。另外,开发一个可视化的工具来管理和编辑符号也是很必要的。 下图是前面提到的组件结构模型。 ![]() 符号编辑工具提供了基本的多文档界面,用来调入、编辑和存入符号文件,一个符号可以有多层组成,用来描述更复杂的符号。每一层用单独的颜色、风格、尺寸、字模、掩码组成。 在VB或VC中程序可以创建一个叫“MOSYMBOLLib.MoPenset”的类,向它发一个Load请求,从文件中装载符号,当用到MapObjects的符号时,用一个索引号就可取出特定符号,把Symbol类的Custom属性设为此符号就可以了。图中是一个线符号的例子。 Private Sub Command1_Click() Dim layer As MapObjects2.MapLayer Dim ps As New MOSYMBOLLib.MoPenset ps.Load ("sample.lin") Set layer = Map1.Layers(Map1.Layers.Count - 1) For i = 0 To ps.Count - 1 layer.Symbol.Custom = ps.Item(i) Map1.Refresh MsgBox ("continue...") Next layer.Symbol.Custom = Nothing Map1.Refresh End Sub 上面的一段程序示范了VB中的线符号使用方法,在VC中也可以用同样方法。 面符号原理与点没有区别。此图示范了用BITMAP做填充的效果,另外还可支持TrueType、晕线等制图填充方法。 可能有人要问为什么没有提到点符号,因为MapObjects支持TrueType这已经足够了。 通过这个工具,不但使制图简单灵活,而且也大大扩展了MapObjects本身的制图功能。这完全得益与MapObjects的组件结构的扩展性。用户可以在富融科技有限公司网站(http://www.superfull.com)上下载此工具。 </P> <P> </P> [此贴子已经被作者于2005-1-19 13:33:42编辑过]
|
|
|
1楼#
发布于:2009-06-29 19:11
何年何月的帖子了,估计找不到资源了,有谁又来!
|
|
2楼#
发布于:2009-03-11 00:26
<P>谢谢!</P>
|
|
3楼#
发布于:2008-12-12 09:38
<P>怎么下载不了了啊,请问有谁已经下载的,发一分给我好吗,多谢了啊</P>
<P>huanghunguiqun@163.com</P> |
|
4楼#
发布于:2008-04-18 10:51
<P>你好,现在下不了了!</P>
<P>能给我发一份那个符号定制工具吗?</P> <P>pingzi437@163.com</P> |
|
5楼#
发布于:2007-11-09 13:23
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />自己权限不够啊
|
|
6楼#
发布于:2007-07-20 16:04
<P>我也要<a href="mailtgyfjq@126.com" target="_blank" >gyfjq@126.com</A>。</P>
<P>谢谢了!</P> |
|
7楼#
发布于:2007-07-09 11:09
<P>现在无法下载了,请下了的兄弟给我发一份好吗?<a href="mailtlhwx888@126.com" target="_blank" >lhwx888@126.com</A></P>
<P>不胜感激!!!</P> |
|
8楼#
发布于:2007-03-25 21:52
<P>下不了呢。。</P>
|
|
9楼#
发布于:2007-03-15 23:29
不可能
|
|
上一页
下一页