标注问题

百花草

标注问题

*** 标注的方式有以下几种：
自动标注。Map1.Layers("label").AutoLabel = True
删除时： Map1.Layers("label").AutoLabel = False
2. 用户自定义标注。鼠标点击方式：Map1.CurrentTool = miLabelTool
输入坐标方式：LabelAtPoint (x, y)
删除时： Map1.Layers("label").ClearCustomLabels
但是，鼠标点击位置以及（x,y）坐标值需要在点上，线上，面上。
3. 在drawuserlayer上自己画。
注意：
1．通过LabelProperties可以定义作标注的字段以及标注样式。
但是要注意首先要将图层加入到Datasets中。使用程序如下：
　
Dim DS As Dataset
Dim Temp As MapXLib.Field
Dim lbp As MapXLib.LabelProperties
Dim lyr As MapXLib.Layer
Set lyr=map1.layers.item(1)
Set DS = Map1.Datasets.Add(6，lyr)
Set lbp = DS.Layer.LabelProperties
Set lbp.Dataset = DS
Set Temp = DS.Fields("GEOname") '设置标注字段
Set lbp.DataField = Temp
lbp.Visible = True
lbp.Position = miPositionBC
lbp.Overlap = True
lbp.Offset = 5
lbp.LineType = 2
Map1.Layers("label").AutoLabel = True
2．用Dataset对象的AddField方法来创建用于标注的表达式。
3．注意Layer.DrawLayerAfter的使用。

与你同行

不知所云，正在学习中，感谢分享

jxqkd123

探矿者软件可以提高矿体的命中率，减少找矿的成本和难度，主要功能：数据管理、二维制图、三维建模、储量估算、三维立体预测等，有需要免费试用可以联系负责人邓帅15377311476（微信同号），软件针对单位或者企业试用，不面向个人试用