网站开发应用技术专业,专业的网站开发服务,上杭建设局网站,网站建设 推广 公司一、判断GraphicsLayer层【地块注记】是否存在#xff0c;如果不存在则新建、如果存在则删除所有要素
Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() 获取当前map对象中的GetLayer图层
Await Queue…一、判断GraphicsLayer层【地块注记】是否存在如果不存在则新建、如果存在则删除所有要素
Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() 获取当前map对象中的GetLayer图层
Await QueuedTask.Run(Sub()If GraphicsLayer Is Nothing True Then创建 GraphicsLayerIf pmap.MapType MapType.Map Then Exit Sub Not 2DDim gl_param New GraphicsLayerCreationParamsgl_param.Name 地块注记默认情况下会添加到目录的顶部GraphicsLayer LayerFactory.Instance.CreateLayer(Of ArcGIS.Desktop.Mapping.GraphicsLayer)(gl_param, pmap)Else全选文本Dim zj_zdmane As String zj_zdmane 地块注记Dim elements GraphicsLayer.GetElementsAsFlattenedList().Where(Function(gele As GraphicElement) gele.Name.StartsWith(zj_zdmane)) ’获取GetLayer图层中定义的元素本例为text删除选择textGraphicsLayer.SelectElements(elements)GraphicsLayer.RemoveElements(GraphicsLayer.GetSelectedElements())End IfMapView.Active.Redraw(True) 视图刷新End Sub)
二、CreateTextGraphicElement 方法 GraphicElement CreateTextGraphicElement( IElementContainer elementContainer, TextType textType, Geometry geometry, CIMTextSymbol textSymbol, string text, string elementName, bool select, 【可选】 ElementInfo elementInfo 【可选】 ) textType要创建的文本图形的类型
成员描述CircleParagraph圆文本EllipseParagraph椭圆文本NoneNone- 默认PointText点文本PolygonParagraph多边形文本RectangleParagraph矩形文本SplinedText沿直线或曲线样条的文本
三、检查应用程序中是否有特定字体可用于 Pro 会话。 必须在 MCT 上调用此方法。IsFontAvailable 方法 SymbolFactory public bool IsFontAvailable( string fontName, string fontStyle, FontType fontType, ListCIMFontVariation fontVariationSettings ) fontName字体簇的名称。 fontStyle 字体样式的名称。 fontType字体类型。 fontVariationSettings要应用的任何字体变体设置。可以为 null。 返回值一个布尔值表示字体是否可用。例如
Dim BOOTSymbolFactory.Instance.IsFontAvailable(Arial, Bold, FontType.Unspecified, null)
四、创建文本 1、创建简单的文本符号Creates a simple text symbol创建一个大小为8.5、字体系列为“Corbel”、字体样式为“Regular”的简单黑色文本符号。
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim TextSymbol SymbolFactory.Instance.ConstructTextSymbol(ColorFactory.Instance.BlackRGB, 8.5, Corbel, Regular)文本的偏移量TextSymbol.OffsetX 0.5TextSymbol.OffsetY 0.5Dim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim text As String Forest GroveDim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer, TextType.PointText, Location, TextSymbol, text, 地块注记)End Sub)效果 2、创建创建带有光晕环的文本符号Creates a text symbol with a halo
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim haloPoly SymbolFactory.Instance.ConstructPolygonSymbol(ColorFactory.Instance.RedRGB, SimpleFillStyle.Solid)Dim TextSymbol SymbolFactory.Instance.ConstructTextSymbol(haloPoly, 10, Arial, Bold)文本的偏移量TextSymbol.OffsetX 0.5TextSymbol.OffsetY 0.5Dim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim text As String PortlandDim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer, TextType.PointText, Location, TextSymbol, text, 地块注记)End Sub)效果 3、创建简单的牵引文本符号Creates a text symbol with a halo
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim textSymbol SymbolFactory.Instance.ConstructTextSymbol(ColorFactory.Instance.BlackRGB, 10, Verdana, Regular)Dim lineCalloutSymbol new CIMSimpleLineCallout()Dim lineSymbol SymbolFactory.Instance.ConstructLineSymbol(ColorFactory.Instance.BlackRGB, 1, SimpleLineStyle.DashDotDot)lineCalloutSymbol.LineSymbol lineSymbol文本的偏移量TextSymbol.OffsetX 10TextSymbol.OffsetY 10textSymbol.Callout lineCalloutSymbolDim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim text As String Forest GroveDim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer, TextType.PointText, Location, TextSymbol, text, 地块注记)End Sub)
效果 4、创建圆角矩形的牵引文本框符号Creates a balloon callout text symbol
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim textSymbol SymbolFactory.Instance.ConstructTextSymbol(ColorFactory.Instance.WhiteRGB, 11, Corbel, Regular)Dim balloonCallout new CIMBalloonCallout()BalloonCallout.BalloonStyle BalloonCalloutStyle.RoundedRectangleDim polySymbol SymbolFactory.Instance.ConstructPolygonSymbol(ColorFactory.Instance.BlackRGB, SimpleFillStyle.Solid)BalloonCallout.BackgroundSymbol polySymbolBalloonCallout.Margin new CIMTextMarginWith BalloonCallout.Margin.Left 5.Right 5.Bottom 5.Top 5End WithTextSymbol.Callout balloonCalloutDim text As String Forest GroveDim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer, TextType.RectangleParagraph, Location, TextSymbol, text, 地块注记)End Sub)
效果 5、创建点符号的文本符号(Creates a point callout text symbol)
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim textSymbol SymbolFactory.Instance.ConstructTextSymbol(ColorFactory.Instance.WhiteRGB, 6, Tahoma, Bold)Dim shieldCalloutSymbol new CIMPointSymbolCallout()Dim symbolStyleItem GetPointSymbol(ArcGIS 2D, Shield 1) ShieldCalloutSymbol.PointSymbol symbolStyleItem.Symbol as CIMPointSymbolShieldCalloutSymbol.PointSymbol.SetSize(18.0)TextSymbol.Callout shieldCalloutSymbolDim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim text As String I5Dim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer, TextType.PointText, Location, TextSymbol, text, 地块注记)End Sub)
效果 6、创建设置矩形背景色的牵引文本框符号Creates a background callout text symbol
Await QueuedTask.Run(Sub()pmap MapView.Active.Map ‘获取激活的map对象Dim GraphicsLayer pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() ‘获取的GraphicsLayer对象Dim Location As MapPoint MapPointBuilderEx.CreateMapPoint(PX,PY)Dim textSymbol SymbolFactory.Instance.ConstructTextSymbol(ColorFactory.Instance.BlackRGB, 8, Tahoma, Bold)Dim backgroundCalloutSymbol new CIMBackgroundCallout()Dim lineSymbol SymbolFactory.Instance.ConstructLineSymbol(ColorFactory.Instance.BlackRGB, 1, SimpleLineStyle.DashDotDot)Dim aquaBackground ColorFactory.Instance.CreateRGBColor(190, 255, 232, 100)Dim polySymbol SymbolFactory.Instance.ConstructPolygonSymbol(aquaBackground, SimpleFillStyle.Solid)BackgroundCalloutSymbol.LeaderLineSymbol lineSymbolTextSymbol.OffsetX 10TextSymbol.OffsetY 10BackgroundCalloutSymbol.BackgroundSymbol polySymbolDim accentSymbol SymbolFactory.Instance.ConstructLineSymbol(ColorFactory.Instance.BlackRGB, 2, SimpleLineStyle.Solid)BackgroundCalloutSymbol.AccentBarSymbol accentSymbolBackgroundCalloutSymbol.Margin new CIMTextMarginWith BalloonCallout.Margin.Left 5.Right 5.Bottom 5.Top 5End WithTextSymbol.Callout backgroundCalloutSymbolDim text As String Forest GroveDim polyTxtElm As GraphicElement ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer,TextType.RectangleParagraph, poly, TextSymbol, text, 地块注记)End Sub)
效果
