默认头像
路人甲
路人甲
  • 注册日期2003-08-08
  • 发帖数654
  • QQ164646905
  • 铜币1336枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1879回复:3

请教一个 MO 线对象的标注问题,谢谢!

楼主#
更多 发布于:2004-11-14 08:59

MO 中,线对象的标注!一般来说,标注内容会紧凑的放在线的中间(一个可调位置,用 LabelPlacer的话,标注位置还会随着线对象的显示状况变化)。

但是,我想要像地图一样,将标注内容平均的分步在整个线对象显示的部分上,请问该如何做呢?

如:

原来:

                        人民大道

-------------------------------

我希望:

  人             民                大               道

-------------------------------

谢谢!

[此贴子已经被作者于2004-11-14 9:01:00编辑过]
喜欢0 评分0
愿意和大家交朋友! QQ:47559983 MSN:shaolun_yuan@hotmail.com eMail:shaolun-yuan@163.com
默认头像
路人甲
路人甲
  • 注册日期2003-08-08
  • 发帖数654
  • QQ164646905
  • 铜币1336枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-11-16 18:04

非常感谢总统!

最近忙,没有时间做,如果以后做出来,一定和大家分享!

愿意和大家交朋友! QQ:47559983 MSN:shaolun_yuan@hotmail.com eMail:shaolun-yuan@163.com
举报 回复(0) 喜欢(0)     评分
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
2楼#
发布于:2004-11-16 09:30

用楼猪说滴方法LabelPlacer,代码如下,可见,需要改到楼猪需要的效果,可以逐个取出字段里的每个字在路线上多次标注!

Dim lp As New MapObjects2.LabelPlacer lp.Field = "STREET_NAM" lp.AllowDuplicates = False

Dim fnt As New StdFont fnt.Name = "Arial" fnt.Size = 8

Dim tsym As MapObjects2.TextSymbol Set tsym = lp.DefaultSymbol Set tsym.Font = fnt

Set Map1.Layers("route").Renderer = lp Map1.Refresh

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
3楼#
发布于:2004-11-15 11:15

这个很有用,看起来爽多了

不过好久没用mapobjects,连个mo都没装,帮不上你哈

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部