fisherssj
路人甲
路人甲
  • 注册日期2004-06-29
  • 发帖数65
  • QQ
  • 铜币52枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1789回复:1

在PageLayoutControl中添加指北针等元素

楼主#
更多 发布于:2004-08-27 17:08
<P>大家好,</P>
<P>    有一问题请教:我在Engine中开发一个进行地图整饰打印的独立程序,在添加指北针等元素时,如何调用出像ArcMap中的Style Selector?能调用出来吗(IStyleSelector只能用于ArcGIS Desktop)?</P>
<P>    另一个:我通过IMapSurroundFrame等接口可以添加一个指定的要素,但不是事先选择它的形状,如何调用出编辑该元素的属性页?</P>
<P>Thanks a lot.</P>
<P><a href="mailtFisherSSJ@yahoo.com.cn" target="_blank" >FisherSSJ@yahoo.com.cn</A></P>
喜欢0 评分0
这个世界究竟是什么样子?
appletree
路人甲
路人甲
  • 注册日期2004-08-21
  • 发帖数14
  • QQ
  • 铜币242枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-08-28 13:35
 'Add a north arrow
  pEnv.PutCoords 10, 0.1, 11, 11
  With prgb
   .Red = 255
   .Green = 0
   .Blue = 0
   .UseWindowsDithering = True
  End With
  pid.Value = "esriCore.MarkerNorthArrow"
  Set Pmapsurround = CreateSurround(pid, pEnv, "North Arrow", pMxDoc.FocusMap, pMxDoc.PageLayout)
  'Change out the default north arrow
  Set pMarkerNorthArrow = Pmapsurround 'QI
  Set pCharacterMarkerSymbol = pMarkerNorthArrow.MarkerSymbol 'clones the symbol
  pCharacterMarkerSymbol.Color = prgb
  pCharacterMarkerSymbol.CharacterIndex = 45 'change the symbol
  pMarkerNorthArrow.MarkerSymbol = pCharacterMarkerSymbol 'set it back
无论我们在那里活着,我们都会受到边际的束缚,有些是真实的,有些是想象的,在这些边际之内,我们中的许多人满足的活着,另一些人是迫不得已,然而我们之中有些人必须去挣脱,突破这些边际,哪怕边界的另一边充满着无尽的未知和恐惧......
举报 回复(0) 喜欢(0)     评分
游客

返回顶部