wangjin_zj
路人甲
路人甲
  • 注册日期2007-07-12
  • 发帖数1
  • QQ
  • 铜币107枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1347回复:1

动态生成图元的问题?

楼主#
更多 发布于:2007-07-15 15:39
<P>动态生成图元的问题?</P>
<P>一程序用到少量的GIS,用mapx4.5版本,动态在地图生成约50个标注(图标+汉字),生成个数支态变化,所以每次动态生成,原系统用VFP9.0,试验程序生成100个图元,程序如下</P>
<P>NewStyle=CREATEOBJECT("MapX.Style.4") </P>
<P>With NewStyle <BR>    .SymbolType = 1 ;;miSymbolTypeBitmap <BR>    .SymbolBitmapSize = 7<BR>    .SymbolBitmapTransparent =.T.<BR>    .SymbolBitmapName = "YIEL2-32.BMP" <BR>EndWith <BR>P=CREATEOBJECT("MAPX.POINT.4")<BR>Ftr=CREATEOBJECT("MapX.Feature.4") <BR>thisform.olecontrol1.AutoRedraw=.f.<BR>thisform.olecontrol1.Layers(1).Editable=.t.<BR>FOR i=20 TO 130<BR>   p.set(119.4+0.1+i/100,32.1-i/200)<BR>   ftr=thisform.olecontrol1.FeatureFactory.CreateSymbol(p,NewStyle)<BR>  thisform.olecontrol1.Layers(1).addfeature(ftr)<BR>ENDFOR<BR>thisform.olecontrol1.AutoRedraw=.t.<BR>thisform.olecontrol1.Layers(1).Editable=.f.</P>
<P><BR>问题,1.生成的图元只有一个图标,文本标识如何加入?<BR>          将这句改为  ftr=thisform.olecontrol1.FeatureFactory.CreateText(p,NewStyle)则图标如何加入</P>
<P>      2.动态生成速度较慢,如何提高速度?(现在100个约8秒)</P>
喜欢0 评分0
whmwxhanshan123
路人甲
路人甲
  • 注册日期2006-06-17
  • 发帖数3108
  • QQ
  • 铜币6445枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2007-07-16 19:07
<img src="images/post/smile/dvbbs/em01.gif" />
举报 回复(0) 喜欢(0)     评分
游客

返回顶部