阅读量:0
一、判断GraphicsLayer层【地块注记】是否存在，如果不存在则新建、如果存在则删除所有要素
Dim GraphicsLayer = pmap.GetLayersAsFlattenedList().OfType(Of ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault() '获取当前map对象中的GetLayer图层 Await QueuedTask.Run(Sub() If GraphicsLayer Is Nothing = True Then '创建 GraphicsLayer If pmap.MapType <> MapType.Map Then Exit Sub ' Not 2D Dim gl_param = New GraphicsLayerCreationParams gl_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） '删除选择text GraphicsLayer.SelectElements(elements) GraphicsLayer.RemoveElements(GraphicsLayer.GetSelectedElements()) End If MapView.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 | 椭圆文本 |
| None | None- 默认 |
| PointText | 点文本 |
| PolygonParagraph | 多边形文本 |
| RectangleParagraph | 矩形文本 |
| SplinedText | 沿直线或曲线样条的文本 |
三、检查应用程序中是否有特定字体可用于 Pro 会话。 必须在 MCT 上调用此方法。IsFontAvailable 方法 （SymbolFactory）
public bool IsFontAvailable(
string fontName,
string fontStyle,
FontType fontType,
List<CIMFontVariation> fontVariationSettings
)
fontName：字体簇的名称。
fontStyle ：字体样式的名称。
fontType：字体类型。
fontVariationSettings：要应用的任何字体变体设置。可以为 null。
返回值：一个布尔值，表示字体是否可用。例如：
Dim BOOT=SymbolFactory.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.5 TextSymbol.OffsetY = 0.5 Dim Location As MapPoint = MapPointBuilderEx.CreateMapPoint(PX,PY) Dim text As String = "Forest Grove" Dim 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.5 TextSymbol.OffsetY = 0.5 Dim Location As MapPoint = MapPointBuilderEx.CreateMapPoint(PX,PY) Dim text As String = "Portland" Dim 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 = 10 TextSymbol.OffsetY = 10 textSymbol.Callout = lineCalloutSymbol Dim Location As MapPoint = MapPointBuilderEx.CreateMapPoint(PX,PY) Dim text As String = "Forest Grove" Dim 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.RoundedRectangle Dim polySymbol = SymbolFactory.Instance.ConstructPolygonSymbol(ColorFactory.Instance.BlackRGB, SimpleFillStyle.Solid) BalloonCallout.BackgroundSymbol = polySymbol BalloonCallout.Margin = new CIMTextMargin With BalloonCallout.Margin .Left = 5 .Right = 5 .Bottom = 5 .Top = 5 End With TextSymbol.Callout = balloonCallout Dim text As String = "Forest Grove" Dim 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 CIMPointSymbol ShieldCalloutSymbol.PointSymbol.SetSize(18.0) TextSymbol.Callout = shieldCalloutSymbol Dim Location As MapPoint = MapPointBuilderEx.CreateMapPoint(PX,PY) Dim text As String = "I5" Dim 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 = lineSymbol TextSymbol.OffsetX = 10 TextSymbol.OffsetY = 10 BackgroundCalloutSymbol.BackgroundSymbol = polySymbol Dim accentSymbol = SymbolFactory.Instance.ConstructLineSymbol(ColorFactory.Instance.BlackRGB, 2, SimpleLineStyle.Solid) BackgroundCalloutSymbol.AccentBarSymbol = accentSymbol BackgroundCalloutSymbol.Margin = new CIMTextMargin With BalloonCallout.Margin .Left = 5 .Right = 5 .Bottom = 5 .Top = 5 End With TextSymbol.Callout = backgroundCalloutSymbol Dim text As String = "Forest Grove" Dim polyTxtElm As GraphicElement = ElementFactory.Instance.CreateTextGraphicElement(GraphicsLayer,TextType.RectangleParagraph, poly, TextSymbol, text, "地块注记") End Sub)效果：
