ESRI ArcGIS应用与开发怎么实现在PageLayout控件中添加了图例、指北针或比例尺等要素，用arcengine实现。||做专业的GIS技术交流论坛

wufayun 路人甲注册日期2004-06-28 发帖数21 QQ 铜币234枚威望0点贡献值0点银元0个加关注写私信	阅读：5252回复：7 怎么实现在PageLayout控件中添加了图例、指北针或比例尺等要素，用arcengine实现。楼主^# 更多只看楼主倒序阅读发布于：2005-09-16 10:58 <P>各位大侠，怎么实现在PageLayout控件中添加了图例、指北针或比例尺等要素，用arcengine实现。给个思路。</P> <P>小弟先谢谢呢！！</P>
	喜欢0 评分0 最新喜欢：举报回复

hikeryu 路人甲注册日期2008-01-03 发帖数18 QQ 铜币159枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2009-08-15 09:17 <P>这些代码帮助里头都有</P>
	举报回复(0) 喜欢(0) 评分

semon1981

路人甲

注册日期2006-06-04
发帖数28
QQ
铜币198枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2006-08-02 14:05

//根据UID创建Scale Bar UID uID = new UID(); uID.Value = "esriCarto.ScaleBar"; IMapSurroundFrame iMapSurFrame = iMapFrame.CreateSurroundFrame(uID, null);
 ISymbolBackground iSymBackg = new SymbolBackgroundClass(); IFillSymbol iFillSym = new SimpleFillSymbol(); ILineSymbol iLineSym = new SimpleLineSymbol(); IRgbColor iRgb = new RgbColorClass(); iRgb.Red = m_oldLineClr.R; iRgb.Green = m_oldLineClr.G; iRgb.Blue = m_oldLineClr.B;
 IColor iClr = iRgb; iLineSym.Color = iClr; iRgb.Red = m_oldFillClr.R; iRgb.Green = m_oldFillClr.G; iRgb.Blue = m_oldFillClr.B; iFillSym.Color = iClr; iFillSym.Outline = iLineSym; iSymBackg.FillSymbol = iFillSym; iMapSurFrame.Background = iSymBackg;
 IElement iElement = iMapSurFrame as IElement; iElement.Geometry = iEnv;
 IMapSurround iMapSur = iMapSurFrame.MapSurround; //创建一个single alternating scale bar IScaleBar iScaleBar = new AlternatingScaleBar(); iMapSur = iScaleBar;
 //设置Scale Bar的属性，如分割单位、数字显示的位置、label和label显示位置等 iScaleBar.Division = decimal.ToDouble(DivisionSize.Value); iScaleBar.DivisionsBeforeZero = 0; iScaleBar.Divisions = decimal.ToInt16(DivisionsSize.Value); iScaleBar.Subdivisions = decimal.ToInt16(SubDivisionsSize.Value); iScaleBar.Units = (esriUnits)(UnitsCbx.SelectedIndex); iScaleBar.UnitLabel = UnitsCbx.Text; iScaleBar.UnitLabelPosition = esriScaleBarPos.esriScaleBarAfterBar; iScaleBar.LabelPosition = esriVertPosEnum.esriAbove; iScaleBar.LabelFrequency = esriScaleBarFrequency.esriScaleBarDivisionsAndFirstMidpoint;
 iMapSurFrame.MapSurround = iMapSur; iElement = iMapSurFrame as IElement; iView.GraphicsContainer.AddElement(iElement, 0);

举报回复喜欢评分

semon1981

路人甲

注册日期2006-06-04
发帖数28
QQ
铜币198枚
威望0点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2006-08-02 13:58

//根据UID创建Scale Bar UID uID = new UID(); uID.Value = "esriCarto.ScaleBar"; IMapSurroundFrame iMapSurFrame = iMapFrame.CreateSurroundFrame(uID, null);
 ISymbolBackground iSymBackg = new SymbolBackgroundClass(); IFillSymbol iFillSym = new SimpleFillSymbol(); ILineSymbol iLineSym = new SimpleLineSymbol(); IRgbColor iRgb = new RgbColorClass(); iRgb.Red = m_oldLineClr.R; iRgb.Green = m_oldLineClr.G; iRgb.Blue = m_oldLineClr.B;
 IColor iClr = iRgb; iLineSym.Color = iClr; iRgb.Red = m_oldFillClr.R; iRgb.Green = m_oldFillClr.G; iRgb.Blue = m_oldFillClr.B; iFillSym.Color = iClr; iFillSym.Outline = iLineSym; iSymBackg.FillSymbol = iFillSym; iMapSurFrame.Background = iSymBackg;
 IElement iElement = iMapSurFrame as IElement; iElement.Geometry = iEnv;
 IMapSurround iMapSur = iMapSurFrame.MapSurround; //创建一个single alternating scale bar IScaleBar iScaleBar = new AlternatingScaleBar(); iMapSur = iScaleBar;
 //设置Scale Bar的属性，如分割单位、数字显示的位置、label和label显示位置等 iScaleBar.Division = decimal.ToDouble(DivisionSize.Value); iScaleBar.DivisionsBeforeZero = 0; iScaleBar.Divisions = decimal.ToInt16(DivisionsSize.Value); iScaleBar.Subdivisions = decimal.ToInt16(SubDivisionsSize.Value); iScaleBar.Units = (esriUnits)(UnitsCbx.SelectedIndex); iScaleBar.UnitLabel = UnitsCbx.Text; iScaleBar.UnitLabelPosition = esriScaleBarPos.esriScaleBarAfterBar; iScaleBar.LabelPosition = esriVertPosEnum.esriAbove; iScaleBar.LabelFrequency = esriScaleBarFrequency.esriScaleBarDivisionsAndFirstMidpoint;
 iMapSurFrame.MapSurround = iMapSur; iElement = iMapSurFrame as IElement; iView.GraphicsContainer.AddElement(iElement, 0);

举报回复喜欢评分

semon1981

路人甲

注册日期2006-06-04
发帖数28
QQ
铜币198枚
威望0点
贡献值0点
银元0个

加关注写私信

4楼^#

发布于：2006-08-02 13:57

//根据UID创建Scale Bar UID uID = new UID(); uID.Value = "esriCarto.ScaleBar"; IMapSurroundFrame iMapSurFrame = iMapFrame.CreateSurroundFrame(uID, null);
 ISymbolBackground iSymBackg = new SymbolBackgroundClass(); IFillSymbol iFillSym = new SimpleFillSymbol(); ILineSymbol iLineSym = new SimpleLineSymbol(); IRgbColor iRgb = new RgbColorClass(); iRgb.Red = m_oldLineClr.R; iRgb.Green = m_oldLineClr.G; iRgb.Blue = m_oldLineClr.B;
 IColor iClr = iRgb; iLineSym.Color = iClr; iRgb.Red = m_oldFillClr.R; iRgb.Green = m_oldFillClr.G; iRgb.Blue = m_oldFillClr.B; iFillSym.Color = iClr; iFillSym.Outline = iLineSym; iSymBackg.FillSymbol = iFillSym; iMapSurFrame.Background = iSymBackg;
 IElement iElement = iMapSurFrame as IElement; iElement.Geometry = iEnv;
 IMapSurround iMapSur = iMapSurFrame.MapSurround; //创建一个single alternating scale bar IScaleBar iScaleBar = new AlternatingScaleBar(); iMapSur = iScaleBar;
 //设置Scale Bar的属性，如分割单位、数字显示的位置、label和label显示位置等 iScaleBar.Division = decimal.ToDouble(DivisionSize.Value); iScaleBar.DivisionsBeforeZero = 0; iScaleBar.Divisions = decimal.ToInt16(DivisionsSize.Value); iScaleBar.Subdivisions = decimal.ToInt16(SubDivisionsSize.Value); iScaleBar.Units = (esriUnits)(UnitsCbx.SelectedIndex); iScaleBar.UnitLabel = UnitsCbx.Text; iScaleBar.UnitLabelPosition = esriScaleBarPos.esriScaleBarAfterBar; iScaleBar.LabelPosition = esriVertPosEnum.esriAbove; iScaleBar.LabelFrequency = esriScaleBarFrequency.esriScaleBarDivisionsAndFirstMidpoint;
 iMapSurFrame.MapSurround = iMapSur; iElement = iMapSurFrame as IElement; iView.GraphicsContainer.AddElement(iElement, 0);

举报回复喜欢评分

HazyHu 路人甲注册日期2005-08-15 发帖数18 QQ 铜币221枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2006-07-26 10:55 <P>有没有添加scalebar的代码阿？</P>
	举报回复(0) 喜欢(0) 评分

nickbo 路人甲注册日期2005-07-27 发帖数6 QQ 铜币150枚威望0点贡献值0点银元0个加关注写私信	6楼^# 发布于：2006-06-15 21:52 <P>不错谢谢</P>
	举报回复(0) 喜欢(0) 评分

Yoyozwf

路人甲

注册日期2006-02-15
发帖数39
QQ
铜币207枚
威望0点
贡献值0点
银元0个

加关注写私信

7楼^#

发布于：2006-03-20 18:05

<PRE><CODE>Public Sub</CODE> AddMapSurrounds()
 <CODE>Dim</CODE> pMxDoc <CODE>As</CODE> IMxDocument
 <CODE>Dim</CODE> pActiveView <CODE>As</CODE> IActiveView
 <CODE>Dim</CODE> pEnv <CODE>As</CODE> IEnvelope
 <CODE>Dim</CODE> pID <CODE>As New</CODE> UID
 <CODE>Dim</CODE> pMapSurround <CODE>As</CODE> IMapSurround
 <CODE>Dim</CODE> pMarkerNorthArrow <CODE>As</CODE> IMarkerNorthArrow
 <CODE>Dim</CODE> pCharacterMarkerSymbol <CODE>As</CODE> ICharacterMarkerSymbol

 <CODE>Set</CODE> pMxDoc = Application.Document
 <CODE>Set</CODE> pActiveView = pMxDoc.PageLayout
 <CODE>Set</CODE> pEnv = <CODE>New</CODE> Envelope

 <CODE>'Add a north arrow</CODE>
 pEnv.PutCoords 0.2, 0.2, 1, 1
 pID.Value = "esriCarto.MarkerNorthArrow"
 <CODE>Set</CODE> pMapSurround = CreateSurround(pID, pEnv, "North Arrow", pMxDoc.FocusMap, pMxDoc.PageLayout)
 <CODE>'Change out the default north arrow</CODE>
 <CODE>Set</CODE> pMarkerNorthArrow = pMapSurround <CODE>'QI</CODE>
 <CODE>Set</CODE> pCharacterMarkerSymbol = pMarkerNorthArrow.MarkerSymbol <CODE>'clones the symbol</CODE>
 pCharacterMarkerSymbol.CharacterIndex = 200 <CODE>'change the symbol</CODE>
 pMarkerNorthArrow.MarkerSymbol = pCharacterMarkerSymbol <CODE>'set it back</CODE>

 <CODE>'Add a legend</CODE>
 <CODE>'In this case just use the default legend</CODE>
 pEnv.PutCoords 1, 1, 3.4, 2.4
 pID.Value = "esriCarto.Legend"
 <CODE>Set</CODE> pMapSurround = CreateSurround(pID, pEnv, "Legend", pMxDoc.FocusMap, pMxDoc.PageLayout)

 <CODE>'Refresh the graphics</CODE>
 pActiveView.PartialRefresh esriViewGraphics, <CODE>Nothing</CODE>, <CODE>Nothing
End Sub

Private Function</CODE> CreateSurround(pID <CODE>As</CODE> UID, pEnv <CODE>As</CODE> IEnvelope, strName <CODE>As String</CODE>, _
 pMap <CODE>As</CODE> IMap, pPageLayout <CODE>As</CODE> IPageLayout) <CODE>As</CODE> IMapSurround

 <CODE>Dim</CODE> pGraphicsContainer <CODE>As</CODE> IGraphicsContainer
 <CODE>Dim</CODE> pActiveView <CODE>As</CODE> IActiveView
 <CODE>Dim</CODE> pMapSurroundFrame <CODE>As</CODE> IMapSurroundFrame
 <CODE>Dim</CODE> pMapSurround <CODE>As</CODE> IMapSurround
 <CODE>Dim</CODE> pMapFrame <CODE>As</CODE> IMapFrame
 <CODE>Dim</CODE> pElement <CODE>As</CODE> IElement

 <CODE>'MapSurrounds are held in a MapSurroundFrame</CODE>
 <CODE>'MapSurroundFrames are related to MapFrames</CODE>
 <CODE>'MapFrames hold Maps</CODE>
 <CODE>Set</CODE> pGraphicsContainer = pPageLayout
 <CODE>Set</CODE> pMapFrame = pGraphicsContainer.FindFrame(pMap)
 <CODE>Set</CODE> pMapSurroundFrame = pMapFrame.CreateSurroundFrame(pID, <CODE>Nothing</CODE>)
 pMapSurroundFrame.MapSurround.Name = strName

 <CODE>'Set the geometry of the MapSurroundFrame to give it a location</CODE>
 <CODE>'Activate it and add it to the PageLayout's graphics container</CODE>
 <CODE>Set</CODE> pElement = pMapSurroundFrame
 <CODE>Set</CODE> pActiveView = pPageLayout
 pElement.Geometry = pEnv
 pElement.Activate pActiveView.ScreenDisplay

 <CODE>'Allow the legend frame size to be altered after the legend has been</CODE>
 <CODE>'added to the GraphicsContainer </CODE>
 <CODE>Dim</CODE> PTrack <CODE>As</CODE> ITrackCancel
 <CODE>Set</CODE> PTrack = <CODE>New</CODE> CancelTracker
 pElement.Draw pActiveView.ScreenDisplay, PTrack

 pGraphicsContainer.AddElement pElement, 0
 <CODE>'Re-apply the change to the Legend MapSurroundFrame Geometry </CODE>
 pElement.Geometry = pEnv

 <CODE>Set</CODE> CreateSurround = pMapSurroundFrame.MapSurround
<CODE>End Function</CODE>
</PRE>

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

怎么实现在PageLayout控件中添加了图例、指北针或比例尺等要素 ，用arcengine实现。

最新喜欢：

怎么实现在PageLayout控件中添加了图例、指北针或比例尺等要素，用arcengine实现。