Arcmap常用矢量化工具使用技巧(3)

：线＋点，线层中的终点必须和点层的部分（或全部）

Arcmap常用矢量化工具使用技巧

点重合

12).must be covered by boundary of：线＋多边形，线被多边形边界重叠 13).must be covered by endpoint of：点＋线，点被线终点完全重合 14).point must be covered by line：点＋线，点都在线上 Topology工具条及功能介绍：

37. 给多个要素同一赋值

选中你需要同一赋值的是所有图斑，然后点击Atrributes,此时出现属性修改对话框，点击根目录是对所有要素同一赋值，点击下面的支目录则可以分别赋值。（也可以用字段计算器实现）

Arcmap常用矢量化工具使用技巧

38. 如何根据确定的点画出以他相应的点

例如：我在地图上已经指导了一个一直点，而其他的点在地图上都是以他为中心画出来的。学校 SE60度，１４０米 意思是学校在中心点南偏东６０度，距离是１４０米，这样的点在arcmap中怎么加呢？我的方法有二分别如下。

1）.

确定已有一个点图层，其中有学校,然后： 对该图层开始编辑

选择工具栏editor---direction-distance tool

以中心点为中心，先画角度线(arcmap左下角会有角度提示)，再画距离/半径（注：画的过程中点击A键可以输入角度值，点击D键可以输入距离值）

确定,即可

如果找不到direction-distance tool 的同志请看下面

第二种方法就是直接编写代码实现

下面是一段示例的VBA代码（本段代码作者：GIS空间站 knight_sl） Option Explicit

Dim dPoint(2, 1) As Double

Arcmap常用矢量化工具使用技巧

Sub aaa() Call bbb

Dim aa As IMxDocument Set aa = ThisDocument

Dim pFLyr As IFeatureLayer

Set pFLyr = yer(0) Dim pFCsr As IFeatureCursor Dim pFt As IFeature

Set pFCsr = pFLyr.FeatureClass.Update(Nothing, False) Set pFt = pFCsr.NextFeature Dim pPoint As IPoint

Set pPoint = pFt.ShapeCopy Dim pNewPoint As IPoint

Dim X0 As Double, Y0 As Double Dim X As Double, Y As Double Dim dAngle As Double Dim i As Long

For i = 0 To UBound(dPoint, 1)

Set pFt = pFLyr.FeatureClass.CreateFeature Set pNewPoint = New Point

dAngle = dPoint(i, 0) * 3.14159263579893 / 180

pNewPoint.X = dPoint(i, 1) * Cos(dAngle) + pPoint.X pNewPoint.Y = dPoint(i, 1) * Sin(dAngle) + pPoint.Y Set pFt.Shape = pNewPoint pFt.Store Next

Set pFLyr = Nothing Set pFCsr = Nothing Set pFt = Nothing Set pPoint = Nothing Set pNewPoint = Nothing End Sub Sub bbb()

'定义新加三个点的角度和距离 dPoint(0, 0) = 10 dPoint(0, 1) = 150

dPoint(1, 0) = 30 dPoint(1, 1) = 170

dPoint(2, 0) = 120 dPoint(2, 1) = 200 End Sub