# arcgis中栅格矢量计算技巧收藏

Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output = pArea.area

Dim Output as doubleDim pCurve as ICurveSet pCurve = [shape]Output = pCurve.Length

Static i as longDim Output as stringi=i+1Output =i

Sub Macro4() Dim i As Integer Dim x, z, n As Integer
x = 4 z = 2 n = 1
For i = 1 To 400
If Worksheets("Sheet1").Cells(x, 6).Value = " 杨树 " Then Worksheets(" 杨树 ").Cells(z, 2).Value = Worksheets("Sheet1").Cells(x, 9).Value Worksheets(" 杨树 ").Cells(z, 3).Value = Worksheets("Sheet1").Cells(x, 14).Value Worksheets(" 杨树 ").Cells(z, 1).Value = n z = z + 1
Worksheets(" 杨树 ").Cells(z, 2).Value = Worksheets("Sheet1").Cells(x, 10).Value Worksheets(" 杨树 ").Cells(z, 3).Value = Worksheets("Sheet1").Cells(x, 15).Value Worksheets(" 杨树 ").Cells(z, 1).Value = n z = z + 1
Worksheets(" 杨树 ").Cells(z, 2).Value = Worksheets("Sheet1").Cells(x, 11).Value Worksheets(" 杨树 ").Cells(z, 3).Value = Worksheets("Sheet1").Cells(x, 16).Value Worksheets(" 杨树 ").Cells(z, 1).Value = n z = z + 1
Worksheets(" 杨树 ").Cells(z, 2).Value = Worksheets("Sheet1").Cells(x, 12).Value Worksheets(" 杨树 ").Cells(z, 3).Value = Worksheets("Sheet1").Cells(x, 17).Value Worksheets(" 杨树 ").Cells(z, 1).Value = n z = z + 1
x = x + 1 Else x = x + 1 End If
If (Worksheets("Sheet1").Cells(x, 4).Value > 0) Then n = n + 1
Next iEnd Sub

Sub Macro0() Dim i, x As Integer x = 2
For i = 1 To 2 000
If (Worksheets(" 杨树 ").Cells(x, 2).Value = "") Then Worksheets(" 杨树 ").Rows(x).Select Worksheets(" 杨树 ").Rows(x).Delete Else x = x + 1 End If
Next iEnd Sub

 0 1 606116 5478287 1.#QNAN 1.#QNAN 1 2 606437 5478321 1.#QNAN 1.#QNAN 2 3 606561 5478280 1.#QNAN 1.#QNAN 3 4 606602 5478173 1.#QNAN 1.#QNAN 4 5 606595 5478120 1.#QNAN 1.#QNAN 5 6 606545 5478178 1.#QNAN 1.#QNAN 6 7 606324 5478239 1.#QNAN 1.#QNAN 7 8 606184 5478205 1.#QNAN 1.#QNAN 0 1 609398 5477446 1.#QNAN 1.#QNAN 1 2 609579 5477360 1.#QNAN 1.#QNAN 2 3 609735 5477141 1.#QNAN 1.#QNAN 3 4 609689 5477016 1.#QNAN 1.#QNAN 4 5 609679 5477010 1.#QNAN 1.#QNAN 5 6 609492 5477294 1.#QNAN 1.#QNAN 6 7 609360 5477306 1.#QNAN 1.#QNAN

|
5天前
|

ArcGIS手动分割矢量面要素从而划分为多个面部分的方式：Cut Polygons Tool
ArcGIS手动分割矢量面要素从而划分为多个面部分的方式：Cut Polygons Tool
69 1
|
5天前
|

ArcGIS批量拼接大量栅格遥感影像：Mosaic工具
ArcGIS批量拼接大量栅格遥感影像：Mosaic工具
105 1
|
5天前
|

ArcGIS中ArcMap创建渔网Create Fishnet：生成指定大小的格网矢量文件
ArcGIS中ArcMap创建渔网Create Fishnet：生成指定大小的格网矢量文件
78 1
|
5天前
|

ArcGIS中ArcMap栅格图像平滑滤波：焦点统计、滤波器、重采样
ArcGIS中ArcMap栅格图像平滑滤波：焦点统计、滤波器、重采样
108 1
|
5天前
|

ArcGIS中ArcMap分割栅格Split Raster工具没有结果的解决
ArcGIS中ArcMap分割栅格Split Raster工具没有结果的解决
75 1
|
5天前
|

ArcGIS中ArcMap栅格重采样操作与算法选择
ArcGIS中ArcMap栅格重采样操作与算法选择
73 1
|
5天前
|

ArcGIS中ArcMap栅格图层0值设置为NoData值的简便方法
ArcGIS中ArcMap栅格图层0值设置为NoData值的简便方法
82 1
|
5天前
|
Serverless 定位技术 Windows
ArcGIS中ArcMap快速自动计算单一波段或多波段栅格遥感影像NDVI的方法
ArcGIS中ArcMap快速自动计算单一波段或多波段栅格遥感影像NDVI的方法
113 1
|
5天前
|

ArcGIS中ArcMap栅格遥感影像的监督分类
ArcGIS中ArcMap栅格遥感影像的监督分类
78 1
|
5天前
ArcGIS中ArcMap求取点要素在栅格图像中的行列号的方法
ArcGIS中ArcMap求取点要素在栅格图像中的行列号的方法
41 1