arcmap自动生成矢量图层的方法
试验二 ArcMap矢量化详细步骤
一、1 首先打开ArcMAP，把科大旅游图.jpg拖到ArcMAP中（或者在ArcMap中，Layers-Add Data-科大旅游图.jpg），进行配准（这里跳过这一步，此时图片的坐标不是真实的坐标，经过配准后才是真实的坐标）；2 执行菜单命令View下的Data Frame Properties，General下Units设置如下：3 Coordinate System设置，选择Predfined\Projected CoordinateSystems\Gauss Kruger\Xian 1980\Xian 1980 3 Degree GK CM 120E二、ArcCatalog建Shapfile图层1 在ArcCatalog中新建Shapfile图层（点，线，面），如道路图层就选择Polyline，路灯等点图层就选择point，教学楼等面图层就选择Polygon。
在这里基本图层有道路，教学楼，宿舍楼，操场，广场，小西湖，校门等1）首先新建新建Shapfile图层，如宿舍点击Edit，选择坐标系，选择…\Projected Coordinate Systems\Gauss Kruger\Xian 1980\Xian 1980 3 Degree GK CM 120E2）依次建立道路，教学楼，操场，广场，小西湖，校门等图层3. 在ArcCatalog中把建立的新ShapFile 文件直接拖动到ArcMAP中（或者在ArcMap中Layers-Add Data-新建的ShapFile）。
4 添加Editor控件5 在Editor工具栏下点击Start Editing，然后在Target中选择你所要矢量化的图层ok,这时你可以开始你的矢量化过程。
例如宿舍楼的矢量化，1）首先在Editor工具栏下点击Start Editing，然后在Target中选择宿舍2）用工具栏中的放大和平移工具来找到某一个宿舍楼的位置3）使用sketch tool,来画宿舍这个多边形。
Arcgis的自动矢量化
Arcgis的自动矢量化Step 1：数据准备我们可以在网络上找一幅高中地理课本上看的等高线图，下载下来，就能进行操作。
（以下操作都基于arcgis10.2）Step 2：地理配准1、定义投影给数据框定义一个投影，右键Layers>Properties>Coordinate System>Projected Coordinate S ystems>Gauss Kruger>Beijing1954> Beijing_1954_3_Degree_GK _CM_117E2 地理配准（原因：由于图片得到的栅格图片是没有空间参考信息的，所以在矢量化之前，需要先对栅格图进行配准）2.1添加地理配准工具条Customize>toolbars>勾选Georeferencing2.2 按经纬度进行配准input DMS of Lon and Lat>Auto Adjust3 动态投影右击找到data>export data>选择Data Frame>Save或者data management tools>projections and transformations>raster>define projection然后再导出数据。
Step 3 图像二值化在菜单空白处右键找到Customize>toolbars>Spatial analyst单机小三角（Customize），勾选T oolbars中的Spatial analyst。
在Commands中找到Spatial Analyst Tools>Reclassify拖动到工具条。
工具条如下：然后点击Reclassify工具>Classify>manual>classes 2>ok最后选择一个存放路径效果如下图：二值图像简单的来说就是由‘0’和‘1’表示，（0：表示不满足该逻辑的表达式；1：表示满足逻辑的表达式）因此我们可以右击reclass_tif1图层>open Attribute Table>add field然后找到编辑工具Editor>start Editing在属性表中选中第一条，如果是我们需要矢量化的就标为1，反之是空白区域就标为0。
在mapgis软件中的矢量化操作步骤
在mapgis软件中的矢量化操作步骤在mapgis软件中的矢量化操作步骤1 装好软件后，进行系统设置，工作目录可以自己指定；矢量字库目录利用系统默认的；系统库目录要利用我考给你们的1万地形系统库就可以了。
2 打开相应的工程文件，添加后缀为TER.wl格式的文件，保存工程，编辑TER.wl文件。
3 关联图例文件，选用首曲线编辑线段，编辑线段要用折线画，一定要切记，连线的时候碰到等高线以外的杂线直接画过去，保持等高线的连续性，连线的时候碰到断开的地方直接画过去就可以了，以便后面附高程。
4 利用F12捕捉线头线尾，勾去下次不显示此对话框，这样的话可以省去每次捕捉弹出对话框的时间。
在画线的时候碰到拐角要多加几个点，保持线条的圆滑.5 在捕捉范围线的时候，直接画出范围线一点点，等整个线连完以后，利用菜单中的其它——工程裁剪一下就可以了。
6 所有线连完以后，利用其它菜单中的子菜单的自动连接线命令进行连接，可以使用默认值。
7 连完以后，利用线编辑中的编辑指定线命令条件选择，长度>=500,修改一下参数，再手工修改一下长度比较短的线条（目的是把等高线与其它杂线分开），刷好以后，在图层菜单中的改层开关里选用改线层，关34层，然后统删其它杂线。
8 利用自动附高程值的功能附高程。
附高程的时候一定要注意，不清楚的可以先咨询一下，以免附错。
附完高程以后利用检查功能检查等高线的ELEV属性，看是否有0值，对其进行修改。
9 利用mapgis6.7主菜单中的空间分析中的DTM分析检查高程值是否有误；文件——打开数据文件——线数据文件——处理点线——然后修改有误的高程值，修改的时候到mapgis编辑子系统中进行修改。
全部修改以后再到DTM分析中检查高程值，直至没有错误。
10整个过程完成就可以进行下一幅的工作的了。
ArcMap矢量化操作步骤1
练习 31.利用影像配准(Georeferncing) 工具进行影像数据的地理配准2.编辑器的使用（点要素、线要素、多边形要素的数字化）注意：在基于ArcMap 的操作过程中请注意保存地图文档第1步地形图的配准－加载数据和影像配准工具 (1)第2步输入控制点 (2)第3步设定数据框的属性 (4)第4步矫正并重采样栅格生成新的栅格文件 (6)第5 步分层矢量化－在ArcCatlog中创建一个线要素图层 (7)第6步从已配准的地图上提出等高线并保存到上面创建的要素类中 (12)根据GPS观测点数据配准影像并矢量化的步骤 (13)课外练习：翻译 (19)本次练习，记成绩10分第1步地形图的配准－加载数据和影像配准工具数据：昆明市西山区普吉地形图1:10000 地形图――70011-1.tif所有图件扫描后都必须经过扫描配准，对扫描后的栅格图进行检查，以确保矢量化工作顺利进行。
●打开ArcMap，添加“影像配准”工具栏。
●把需要进行配准的影像—70011-1.TIF增加到ArcMap中，会发现“影像配准”工具栏中的工具被激活。
第2步输入控制点在配准中我们需要知道一些特殊点的坐标。
通过读图，我们可以得到一些控件点――公里网格的交点，我们可以从图中均匀的取几个点。
一般在实际中，这些点应该能够均匀分布。
●在”影像配准”工具栏上，点击“添加控制点”按钮。
●使用该工具在扫描图上精确到找一个控制点点击，然后鼠标右击输入该点实际的坐标位置，如下图所示：●用相同的方法，在影像上增加多个控制点（大于7个），输入它们的实际坐标。
点击“影像配准”工具栏上的“查看链接表”按钮。
●注意：在连接表对话框中点击“保存”按钮，可以将当前的控制点保存为磁盘上的文件，以备使用。
检查控制点的残差和RMS，删除残差特别大的控制点并重新选取控制点。
转换方式设定为“二次多项式”第3步设定数据框的属性增加所有控制点，并检查均方差（RMS）后，在”影像配准”菜单下，点击“更新显示”。
地图配准及矢量化
用 ARCGIS进行地图配准及矢量化一、实验准备
带经纬网的地图
二、地图配准
1、打开 ARCMAP，在 layer 中先增加地图。
2、对地图新建地理坐标系。
3、打开地理配准工具条。
4、在 Georeferencing的下拉菜单下取消选择Aotu adjust
5、放大地图，选择控制点，按经纬网输入坐标。
6、按控制点选择原则采用7 个控制点，以以下图所示：
7、查察残差。
8、更新地理配准。
9、对地图新建投影坐标系统，参数输入以下：
10、在文件下拉菜单中选择导出地图，命名为“河北”。
三、地图矢量化
1、重新打开 ArcMap,将配准好的地图“河北”导入。
2、在 ArcCatalog中相应地址新建图形文件“border ”并为其选择与地图相一致的投影坐标系统。
3、打开编写器，选择开始编写，选择线编写对河北省界线进行提取。
4、编写时要放大地图沿界线画线，以以下图所示：
5、完成边界提取
后，可经过属性表查察界线信息，以以下图所示：6、关闭底图，可查察界线图层信息以下：。
Arcgis操作基础 ArcMap地图配准及矢量化
地图配准及矢量化一、实验目的1、掌握影像配准(Georeferencing)工具进行地形图的地理配准的方法及步骤。
2、掌握ArcMap中进行矢量化方法。
二、实验准备数据准备：昆明市西山区普吉地形图1:10000 地形图――70011-1.tif（昆明市旅游休闲地图（YNKM.JPG）、Garmin 手持GPS野外采集数据（gpsdata.dbf））——选做数据软件准备：ArcGIS Desktop9.x，ArcCatalog三、实验内容根据地形图坐标配准地形图，如图1所示。
图1 配准结果四、实验步骤第1步地形图的配准－加载数据和影像配准工具所有图件扫描后都必须经过扫描配准，对扫描后的栅格图进行检查，以确保矢量化工作顺利进行。
●打开ArcMap，添加“影像配准”工具栏。
●把需要进行配准的影像—70011-1.TIF增加到ArcMap中，会发现“影像配准”工具栏中的工具被激活。
第2步输入控制点在配准中我们需要知道一些特殊点的坐标。
通过读图，我们可以得到一些控件点――公里网格的交点，我们可以从图中均匀的取几个点。
一般在实际中，这些点应该能够均匀分布。
●在”影像配准”工具栏上，点击“添加控制点”按钮。
●使用该工具在扫描图上精确到找一个控制点点击，然后鼠标右击输入该点实际的坐标位置，如下图所示：●用相同的方法，在影像上增加多个控制点（大于7个），输入它们的实际坐标。
点击“影像配准”工具栏上的“查看链接表”按钮。
●注意：在连接表对话框中点击“保存”按钮，可以将当前的控制点保存为磁盘上的文件，以备使用。
检查控制点的残差和RMS，删除残差特别大的控制点并重新选取控制点。
转换方式设定为“二次多项式”第3步设定数据框的属性增加所有控制点，并检查均方差（RMS）后，在”影像配准”菜单下，点击“更新显示”。
执行菜单命令“视图”－“数据框属性”，设定数据框属性在“常规”选项页中，将地图显示单位设置为“米”在“坐标系统”选项页中，设定数据框的坐标系统为“Xian_1980_Degree_GK_CM_102E”（西安80投影坐标系，3度分带，东经102度中央经线），与扫描地图的坐标系一致更新后，就变成真实的坐标。
mapgis自动矢量化步骤
利用MapGis进行屏幕跟踪矢量化>1.利用MAPGIS矢量化作图。
>1.1启动MAPGIS(方法过程见上一次实验)。
>1.2进行输入编辑窗口。
>(1)点击“取消”。
>(2)点击“新建工程工具”、“确定”、“点选生成不可编辑项”、“确定”>(3)最大化地图窗口，并将空工程文件保存为“实习二”。
>(4)装入光栅文件“80-14.tif”。
>(5)光栅文件求反，并将屏幕放大到适当大小。
>(6)可利用移动窗口工具拖动窗口，以查看图形的其它部分。
>(7)通过对查看，以达到判图识图并对图形要素进行分层的目的，对于点要素我们可以分为注示层和权属拐点层，对于线要素我们可以分为线状地物层、权属界线层和地类界三个层次。
>(8)在控制台窗口点击右键，利用快捷菜单新建两个点文件和三个线文件。
>(9)在控制台窗口可以通过拖动项目改变其位置，则我们将线文件拖到上层，点文件放在下层。
>1.3xx并打开图例板。
>(1)在工程窗口xx图例>(2)xx“注示”的图例。
>在“图例类型”选择框中选择“点类型图例”，并在“名称”栏中输入“注示”。
>点击“图例参数”按钮，输入如下参数，最后点击“确定”键确认。
>最后点击“插入”按钮，完成“注示”图例的设置。
>(3)新建“权属拐点”图例的过程见下列图解：>(4)线状地物包括铁路、公路、农村道路、沟渠等，以农村道路为例，建立图例图解如下。
>“图例类型”选“线类型图例”。
>“图例名称”填入“农村道路”>设置“图例参数”>其它线状地物的设置同上：>铁路：>公路：>沟渠：>(5)权属界线的定义方法同上，其参数分别为：>村界：>乡界：>县界：>(6)地类界线的定义方法同上，其参数为：>（7）以上的参数定义好之后，点击“确定”按钮确认我们的操作，系统会提示我们保存图例文件。
ARCGIS自动矢量化
第一节自动矢量化
一．实验目的
1、了解自动矢量化的基本原理
2、熟练掌握自动矢量化生成线面要素的基本操作流程
二．实验平台
Arcgis10.2和Arcgis10.0
三．实验步骤
1.在arcmap下添加ParcelScan.img，如图1.1所示。
图1.1
2.通过修改属性，设置唯一值；如图1.2所示；
图1.2
3.擦除处理
在Arcmap菜单栏的自定义工具下选择扩展模块并勾选ArcScan即可；然后添加ArcScan工具条和编辑器，并点击编辑器开始编辑；在ArcScan工具条下矢量化下显示预览，预览结果如图，结果如图1.3所示；
图1.3
先用拉框方式选择单元格，再通过交互式单元选择，设置值为500；选中需要擦除的内容，如图1.4所示；选择清除所选内容后得到如图1.5所示的效果图
图1.4
图1.5
矢量化线
在arccatalog工作目录下新建所需的shape文件，如图1.6所示；
图1.6
在选择相连像元下，设置的如图1.7到1.9所示；
图1.7
图1.8
图1.9 结果如图1.10所示的结果图。
图1.10
矢量化面
在像元选择菜单|选择相连像元|背景，输入面积改为30000即可,如图1.11到1.12;
图1.11
图1.12
生成要素，选择仅为当前所选像元生成要素如图1.13；得到如图1.14所示的效果图。
图1.13
图1.14
四．实验总结
在本次实验中，老师通过给我们留作业；让我们自己去学习，让我学会了许多以前所不了解的实验方式。
也让我们学着去学习，而不是等着老师来“喂”我们。
ArcMap栅格数据矢量化及使用ArcScan矢量化
ArcMap栅格数据矢量化及使用ArcScan矢量化一、主要内容1、掌握ArcMap中地图、数据框架、组图层、数据层等基本概念及相互关系；2、掌握利用ArcMap进行地图屏幕扫描数字化的主要流程及具体操作；二、ArcMap基础知识基本概念1)地图—Map(arcMap document)在ArcGIS中，一个地图存储了数据源的表达方式(地图，图表,表格)以及空间参考。
在ArcMap中保存一个地图时，ArcMap将创建与数据的链接，并把这些链接与具体的表达方式保存起来。
当打开一个地图时，它会检查数据链接，并且用存储的表达方式显示数据。
一个保存的地图并不真正存储显示的空间数据！2)数据框架—Data Frame在“新建地图”操作中，系统自动创建了一个名称为“Layers”的数据框架。
在ArcMap 中，一个数据框架显示统一地理区域的多层信息。
一个地图中可以包含多个数据框架，同时一个数据框架中可以包含多个图层。
例如，一个数据框架包含中国的行政区域等信息，另一个数据框架表示中国在世界的位置。
但在数据操作时，只能有一个数据框架处于活动状态。
在Data View只能显示当前活动的数据框架，而在Layout View可以同时显示多个数据框架，而且它们在版面布局也是可以任意调整的。
3）组图层--New Group Layer有时需要把一组数据源组织到一个图层中，把它们看作Contents窗口中的一个实体。
例如，有时需要把一个地图中的所有图层放在一起或者把与交通相关的图层（如道路、铁路和站点等）放在一起，以方便管理。
4）数据层ArcMap可以将多种数据类型作为数据层进行加载，诸如AutoCAD矢量数据DWG，ArcGIS 的矢量数据Coverage、GeoDatabase、TIN和栅格数据GRID，ArcView的矢量数据ShapeFile，ERDAS的栅格数据ImageFile，USDS的栅格数据DEM等。
注意Coverage不能直接编辑，要编辑需要将Coverage转换成ShapeFile。
arcgis矢量化步骤
arcgis矢量化步骤
矢量化是将栅格数据转换为矢量数据的过程。
在ArcGIS中，可以通过以下步骤进行矢量化：
1. 打开ArcGIS软件并加载需要矢量化的栅格数据。
2. 在ArcMap中，选择“ArcToolbox”窗口，然后展开“Conversion Tools”>“From Raster”>“Raster to Polygon”工具。
3. 在“Raster to Polygon”工具对话框中，选择要矢量化的栅格数据作为输入栅格。
4. 指定输出矢量数据的保存位置和名称。
5. 可以选择设置矢量化的参数，例如设置像素值的阈值、处理内部孔洞等。
6. 单击“OK”按钮开始进行矢量化。
7. 程序将根据栅格数据的像素值创建相应的矢量要素。
8. 完成矢量化后，可以在ArcMap中查看和编辑生成的矢量数据。
请注意，矢量化的结果取决于栅格数据的质量和设置的参数。
在进行矢量化之前，建议先对栅格数据进行预处理，例如去除噪声、平滑处理等，以获得更好的矢量化结果。
arcgis矢量化步骤
打开ArcCatalog——找到相应地图所在文件夹——在该文件夹上右击——new(新建)——shapfile——更改名称——选择点、线或者面——建立.shp文件——全部建立好后关闭ArcCatalog。
打开ArcMap——添加进地图即底图和 .shp文件——在工具栏上右击打开Editor与Draw工具——点击Editor工具栏中的Editor 选项在其子选项中单击Start editing选项开始编辑（注意在矢量化时要记得在target里面选择自己要画的图层，arcgis10中只需在右边弹出的窗口中选择相应的图层就可以了）——画完后右键单击选择Finish sketch（完成草图）——在Editor里面选择stop editing.在加注记时先右键layers——properties——coordinatesystem给地图选择一个坐标系统点击Draw（绘图）工具条Drawing——选择new annotation group——在new annotation name中填入注记名称——在associated layer中选择自己建立的面图层——在referencescale中选择usecurrent scale——ok——active annotation target选择自己创建的注记——单击draw工具栏中的”A”并在地图上对应省市名称的地方拖一段线段，松开鼠标输入文字，字体及大小可在“A”旁边找到，其中如需旋转注记在drawing旁边有按钮（注意如果无法看到地图上的文字，可以将面图层拖至地图的下边——就是左边layers那块）——标注完后保存即可。
如果点击了即full extent，如果点击该按钮后屏幕上什么都没有了的话，只要remove掉那个你还没有进行任何编辑的图层。
画点图层时右键layers——properties——general——reference scale——use current scale定义为当前比例尺，然后画你要画的点就可以了。
arcmap 道路中心线 矢量样式
ArcMap是一款专业的地理信息系统软件，它提供了丰富的功能和工具，可用于制作地图、进行空间分析和数据可视化。
在ArcMap中，道路中心线是地图制作中常用的要素之一，其矢量样式的设置对地图的美观度和信息传达起着至关重要的作用。
道路中心线的矢量样式设置，可以通过以下步骤实现：1. 打开ArcMap软件，新建一个地图文档。
2. 将道路中心线的数据加载到地图中。
这可以通过插入道路中心线的矢量数据文件，比如Shapefile文件、File Geodatabase等。
3. 在ArcMap的图层管理窗格中，找到道路中心线的图层，右键点击图层，选择“属性”。
4. 在图层属性窗口中，选中“样式”选项卡。
在这里，可以设置道路中心线的线型、颜色、宽度等样式属性。
5. 上线型选项中，可以选择不同的线型样式，比如实线、虚线、点虚线等，根据实际需求来设置。
6. 在颜色选项中，可以选择道路中心线的颜色，通常选择与地图背景对比明显的颜色，以便突出道路中心线的显示效果。
7. 在宽度选项中，可以设置道路中心线的线宽，根据地图的整体比例和绘制要求来选择合适的宽度。
8. 在样式设置完成后，点击“确定”按钮，保存设置并关闭图层属性窗口。
通过以上步骤，就可以实现对道路中心线矢量样式的设置。
合理的矢量样式设置可以使地图更加美观、清晰，有助于观察者更好地理解地图所传达的信息。
在ArcMap中还可以通过应用符号库来为道路中心线添加更丰富的样式效果。
符号库中提供了各种预设的线型、颜色和样式，用户可以根据自己的需求灵活选择并应用到道路中心线上。
符号库的应用使得道路中心线的样式设置更加丰富多样，可以根据实际需求来进行个性化的设计和设置。
ArcMap中道路中心线的矢量样式设置是一个重要而且灵活的功能，通过合理设置可以使地图信息更加突出、清晰。
在实际的地图制作中，合理运用道路中心线的矢量样式设置，将会为地图颜值加分，也会使得地图信息更加清晰准确地传达给观察者。
ArcGIS中ArcScan工具进行自动矢量化的教程
ArcGIS中ArcScan工具进行自动矢量化的教程ArcScan是ArcGIS中的一个工具，用于将扫描图像转换为矢量数据。
自动矢量化可以是数据转换过程中相对短的一部分，但也是十分重要的。
本文将介绍如何在ArcGIS中使用ArcScan工具进行自动矢量化。
步骤1：准备扫描图像在开始进行自动矢量化之前，需要准备扫描图像。
不同的扫描图像可能需要不同的处理，以使得能够被自动矢量化工具进行识别和转换。
以下是一些可供参考的技巧和建议：•图像分辨率不应太低：分辨率越低，图像中的信息就越难以识别。
•图像应该是黑白的：彩色图像在自动矢量化过程中容易丢失一些信息，因此黑白图像更好。
步骤2：新建ArcGIS工作空间在开始进行自动矢量化之前，需要在ArcGIS中创建一个新的工作空间。
选择空心菜单栏上的“窗口”，然后选择“ArcScan”；接着选择“新建生成规则工作空间”，开始新建工作空间的对话框。
步骤3：自动矢量化在开始进行自动矢量化之前，请确保正确的设置了工具。
首先，ArcScan设置向导会表示，将要进行“自动矢量化”，点击“自动矢量化”。
接下来，选择扫描图像，并进行一些设置：•栅格图像须比较明显：是否需要设置阈值。
•需要将此“样品”保存到样本库中，以便以后重新使用。
•定义创建矢量细化的方式。
•定义生成要素的规则。
当完成以上设置后，请单击“执行强制性卡”运行自动矢量化工具。
工具会开始运行，并将扫描图像转换为矢量图像。
步骤4：操作完成当自动矢量化工具的运行完成后，您可以评估结果并对其进行检查和编辑。
如果需要编辑的话，就可以使用ArcGIS的标准编辑工具进行操作。
不过，需要注意的是，编辑后的结果不应该被保存为还原后的“扫描图像”。
本文介绍了在ArcGIS中使用ArcScan工具进行自动矢量化的过程。
要进行自动矢量化，需要进行一些准备工作，如准备扫描图像，并正确地设置工具。
在完成自动矢量化之后，您可以对结果进行检查和编辑，以获得最终的、完全精确的矢量数据。
Arcgis操作 实验四：ArcMap地图配准及矢量化
实验四：地图配准及矢量化一、实验目的1、掌握影像配准(Georeferencing)工具进行地形图的地理配准的方法及步骤。
2、掌握ArcMap中进行矢量化方法。
二、实验准备数据准备：昆明市西山区普吉地形图1:10000 地形图――70011-1.tif（昆明市旅游休闲地图（YNKM.JPG）、Garmin 手持GPS野外采集数据（gpsdata.dbf））——选做数据软件准备：ArcGIS Desktop9.x，ArcCatalog三、实验内容根据地形图坐标配准地形图，如图1所示。
图1 配准结果四、实验步骤第1步地形图的配准－加载数据和影像配准工具所有图件扫描后都必须经过扫描配准，对扫描后的栅格图进行检查，以确保矢量化工作顺利进行。
●打开ArcMap，添加“影像配准”工具栏。
●把需要进行配准的影像—70011-1.TIF增加到ArcMap中，会发现“影像配准”工具栏中的工具被激活。
第2步输入控制点在配准中我们需要知道一些特殊点的坐标。
通过读图，我们可以得到一些控件点――公里网格的交点，我们可以从图中均匀的取几个点。
一般在实际中，这些点应该能够均匀分布。
●在”影像配准”工具栏上，点击“添加控制点”按钮。
●使用该工具在扫描图上精确到找一个控制点点击，然后鼠标右击输入该点实际的坐标位置，如下图所示：●用相同的方法，在影像上增加多个控制点（大于7个），输入它们的实际坐标。
点击“影像配准”工具栏上的“查看链接表”按钮。
●注意：在连接表对话框中点击“保存”按钮，可以将当前的控制点保存为磁盘上的文件，以备使用。
检查控制点的残差和RMS，删除残差特别大的控制点并重新选取控制点。
转换方式设定为“二次多项式”第3步设定数据框的属性增加所有控制点，并检查均方差（RMS）后，在”影像配准”菜单下，点击“更新显示”。
执行菜单命令“视图”－“数据框属性”，设定数据框属性在“常规”选项页中，将地图显示单位设置为“米”在“坐标系统”选项页中，设定数据框的坐标系统为“Xian_1980_Degree_GK_CM_102E”（西安80投影坐标系，3度分带，东经102度中央经线），与扫描地图的坐标系一致更新后，就变成真实的坐标。
ARCMAP配准和矢量化
ARCMAP配准和矢量化图像最好不要压缩，越精确地图的矢量化原精确，使用ArcGIS 9.2 Desktop完成。
栅格图像的校正和坐标系确定启动ArcMap，新建一个新工程，右键Layers选择Add Data…添加TI F图像，将显现如下提示（如果提示无法加载rester data时请安装ArcGIS Desktop SP3补丁），单击Yes确定，加载图像后提示图像没有进行配准，确定然后配准图像。
图像加载后即可看到图像内容，右键工具栏打开Georeferencing工具条，进行图像的配准工作，在配准之前最好先储存工程。
在File菜单下打开Map Properties编辑地图属性，Data Source Option s可设置储存地图文件的相对路径和绝对路径。
（那个地点选择相对路径以确保将工程复制到其他机器可用）。
配准前要先读懂地图，望都县土地利用现状图采纳1954北京坐标系，比例尺1:40000，查阅河北省地图发觉望都县位于东经115度邻近，那么按6度分带属于20带中央经线117度，按3度分带属于38带。
从图框看到的公里数发觉没有带号，应该是公里数。
那个地点只找了4个点进行配置（能够找更多的点），从左到右从下到上，逆时针编号为1、2、3、4；在ArcMap中单击Georefercning工具条上的Add Control Ponit工具（先掉Auto Adjuest选项），添加4个点操纵点。
然后编辑Link Table中的4个操纵点的代表的公里数，然后单击“Ge oreferecning下拉菜单的Auto Adjuest”图像即进行校正这时可看到参差值那个地点是0.00175（Total RMS）专门小讲明配准较为精确。
单击Save按钮可将操纵点信息储存到文件，单击Load按钮可从文件加载操纵点坐标。
给校准后的地图选择适合的坐标系，右键Layers打开Properties对话框属性对话框选择投影坐标系，（Prokected Coordinate Systems）展开Predefi ned/ Prokected Coordinate Systems/Gauss Kruger/Beijing 1954下找Beijing 1954 GK Zone 20坐标系（高斯克里克投影20带无带号），单击确定储存工程；这时配准工作即完成，在状态栏就能够看到正确的坐标单位了。
ArcGIS专题操作之-自动矢量化
实验一使用ArcScan进行自动矢量化专业年级：：学号：一、实验目的：了解ArcGIS中ArcScan工具，掌握使用ArcScan进行自动矢量化的技术；掌握线要素转化为面要素的方法。
二、实验要求：1.栅格图象的二值化2.对栅格图像进行校准和配准。
3.创建要素层（点线面图层）4.使用ArcScan进行自动矢量化5.线要素转化为面要素三、实验内容：1.栅格图象的二值化1、灰度图像二值化：直接利用属性工具框进行二值化，先将xujiapeng.img加载进来，右击选porperties，点击symbology/show下unique values ，右侧将1设为白色，0设为黑色2、彩色图像二值化：，1）将landuse.jpg加载进来2）将彩色图像转为连续灰度图像：右击选择porperties，打开属性框，选择symbology/show 下的stretched，点击Ok3）利用空间分析模块确定分值界限，将spatial analyst模块调出来a、利用spatial analyst/reclassify重分类确定界限b、利用栅格计算器raster calculator进行分界（[landuse.jpg] <= 160）c、将背景设为白色，图线设为黑色：右击选porperties，点击symbology/show下unique values ，右侧将1设为白色，0设为黑色3.创建要素层（点线面图层）在ArcCatalog下建立点线面要素层4.使用ArcScan进行自动矢量化ArcScan激活条件：图是二值化图，并与Editor同时使用（start editor并且target为矢量化的目标类型）1)将建立好的点线面要素层拖入ArcMap中，利用将徐家棚图像二值化或按彩色二值化步骤将landuse.jpg二值化2)点击按钮，打开raster sanpping option对话框（如下图）设置线的矢量化宽度及多少像素作为实体块来提取3)设置捕捉，点击Editor/snap，在下框选按中心和交叉点矢量化4)交互式矢量化矢量化追踪：利用工具，给一起始点，在给一方向，它便会开始自动矢量化到该线的交叉点或末节点出两点间矢量化：利用工具，给一起点和终点自动矢量化，它自动矢量化两点间的线段若自动矢量化遇到断线，则转用Editor工具栏的进行缝合5)自动矢量化①矢量化预览先在Editor工具条中选Target为线，再在Arcscan中点Vectorization/show preview②选择性矢量化先进行矢量化设置Vectorization/Vectorization SettingA、全图选择矢量化设置栅格：点击Cell Selection/Interactive selection Target/Foreground cell 选择栅格Cell Selection/Select Connected Cells 注意设置区域像素个数清除所选栅格Raster Cleanup/Start cleanup，再选Erase selected cell最后执行矢量化Vectorization/Generate FeatureB、局部清除再矢量化点击Raster Cleanup /Raster Painting局部清除：使用Erase或Magic Erase工具原图erase擦出后Magic Erase其他常用工具：将线转化为面：刷子或喷桶工具栅格选择工具：可直接用用于选择事物如：分区矢量化：点击Swaps BG/FG，将前景色变为白色，点击选矩形或椭圆形，将不需要的部分拉框覆盖图形识别：可以利用图形识别工具，将面状图形矢量化注意：矢量化时要分层将大于一定尺寸的（一定像素数量）存于面层，线存于线层5.线要素转化为面要素1）点击Editor /Start Editor, 注意选择Target:面2）调出Topology工具栏，点击第一个按钮，弹出地图拓扑对话框，选择线，点击ok.3）用选择工具选择一封闭为面状的曲线4）点击topology工具栏第二个按钮，在弹出的对话框中点击ok.出现的图结果图：四、实验总结（体会）这次实习主要熟悉练习了ArcGIS中栅格图象的二值化、使用ArcScan进行自动矢量化及线要素转化为面要素。
ArcGIS矢量化地图详细步骤
1、在桌面上新建一个文件夹，打开ArcCatalog，
2、“文件”——“连接文件夹”
点击“确定”。
3、打开文件夹“孙金彦”，然后新建“文件地理数据库”：“”,打开，
新建“要素类”，具体步骤如下图所示：（说明图层有固定格式，这里是为了导入固定格式）
(1) 新建“文件地理数据库”：“”
(2)新建“要素类”，以高速公路为例，其为线状要素，具体过程：
下一步
下一步
下一步
下一步
点击“导入”，任选一线状要素，
“添加”
“完成”
如此，依次建立其他图层
4、将图层添加到ArcMAp中，添加数据后，开始描图，这里不做介
绍
5、下面是图像拼接，以含山，和县为例，做法是：在ArcCatalog
中打开含山的图层（前提两者的图层设置一样），将和县的数据分别加载到含山相应的图层上。
直到完成
6、偏移参数为（，），选择北京54坐标，117度带
7、去带号“39”，呀呀呀
完成后
（2）打开ArcMap,将所有图层添加进去，以“呀呀呀”为模版，将各图层分别导出数据
8、将北京54,117度，转化为北京54，度
至此结束。
arcgis的自动矢量化设定
arcscan工具条下，vectorization下拉菜单有一个vectorization设定，现介绍一个各个设定分别是什么：
1.intersection solution:
交点解决方案，因为在栅格图像中一个像元可能同时是两条线的组成成分，所以变为矢量图像时也要处理这一状况，geometry,几何处理即把交点处理为直角（如街道交点），median，把交点处理为有弧度的角（如自然地貌），none,则不产生交点（适用于不可以相交的要素）2.
maximum line width,单位为像素，可用工具量测，宽度大于此的线无法成为矢量线
3.
compression tolerance，这个值是道格拉斯-P算法的最大容忍值，这个值越大用点拟合出来的线越失真。
单位百分比
4。
smoothing weight，光滑度，这个值越大，线越光滑，但是失真，单位百分比。
5.
gap closure tolerance
像元为空不代表线断裂，可能是源图件或者是扫描的问题，所以这个值可以忽略比它小的间隔
fan angel，使上一个参数更智能，它会忽略角度内的所有较小间隔（适合有间断的曲线）
6.
hole size
忽略被frontcolor包围的backcolor
7.
resolve corner
是否保留角落
8.
style，你可以根据你要矢量化的要素的类别，直接选择合适的style即可。
arcmap自动生成矢量图层的方法
*****大学学生实验报告学院地环学院专业地理信息系统年级、班 08地信学号 **** 姓名 *** 同组者课程名称 GIS设计与实现实验题目生成矢量数据成绩一、实验目的：熟练掌握Shapefile格式数据的创建。
二、实验准备：了解Shapefile文件类型及属性表格式；熟悉VBA编程环境；掌握创建Shapefile文件所用到的类：WorkSpaceFactory、WorkSpace、Fields、Field、GeometryDef。
三、实验内容：（1）利用ArcMap提供的Customize功能创建三个按钮，名称分别为CreatePoint、CreateLine和CreatePolygon；（2）在VBA环境下编写宏，实现创建点图层、线图层和多边形图层，要求①每个图层属性表均包含FID、Shape、Name（String, 10）和Code（String, 10）四个字段；②图层名和路径均由用户输入；③单击按钮后，自动将创建好的图层添加到ArcMap 当前窗口；（3）在高级编程语言环境下（如.net, VB6.0），实现上述功能，并编译成DLL文件发布。
四、实验过程及步骤：（包括程序界面设计、控件属性说明、程序代码和程序运行四部分）UIControl 空间分四类，如上图所示，此时我们新建UIButtonControl命令，点击创建后会在命令列表中自动新建命令按钮，此刻我们将命令按钮更改名称，如下图所示：通过工具Æ订制Æ然后将新建的命令添加到自己订制的工具条中，如下图所示：代码的编写，在订制才当中双击新建命令按钮编写如下代码Private Sub createline_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactoryDim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO")Set wsn = wsf.Create(ro, "POINT", Nothing, 0)Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryLineSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "Line")Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") ‘一下是自动弹添加到arcmap中的程序Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub‘点的新建程序Private Sub createpoint_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactory Dim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO") Set wsn = wsf.Create(ro, "POINT", Nothing, 0) Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryPointSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "POINT")Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub‘面的新建程序Private Sub createpolygon_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactory Dim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO") Set wsn = wsf.Create(ro, "POINT", Nothing, 0) Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryPolygonSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "POLYGON") Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub教师意见：年月日。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
*****大学学生实验报告学院地环学院专业地理信息系统年级、班 08地信学号 **** 姓名 *** 同组者课程名称 GIS设计与实现实验题目生成矢量数据成绩一、实验目的：熟练掌握Shapefile格式数据的创建。
二、实验准备：了解Shapefile文件类型及属性表格式；熟悉VBA编程环境；掌握创建Shapefile文件所用到的类：WorkSpaceFactory、WorkSpace、Fields、Field、GeometryDef。
三、实验内容：（1）利用ArcMap提供的Customize功能创建三个按钮，名称分别为CreatePoint、CreateLine和CreatePolygon；（2）在VBA环境下编写宏，实现创建点图层、线图层和多边形图层，要求①每个图层属性表均包含FID、Shape、Name（String, 10）和Code（String, 10）四个字段；②图层名和路径均由用户输入；③单击按钮后，自动将创建好的图层添加到ArcMap 当前窗口；（3）在高级编程语言环境下（如.net, VB6.0），实现上述功能，并编译成DLL文件发布。
四、实验过程及步骤：（包括程序界面设计、控件属性说明、程序代码和程序运行四部分）UIControl 空间分四类，如上图所示，此时我们新建UIButtonControl命令，点击创建后会在命令列表中自动新建命令按钮，此刻我们将命令按钮更改名称，如下图所示：通过工具Æ订制Æ然后将新建的命令添加到自己订制的工具条中，如下图所示：代码的编写，在订制才当中双击新建命令按钮编写如下代码Private Sub createline_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactoryDim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO")Set wsn = wsf.Create(ro, "POINT", Nothing, 0)Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryLineSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "Line")Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") ‘一下是自动弹添加到arcmap中的程序Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub‘点的新建程序Private Sub createpoint_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactory Dim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO") Set wsn = wsf.Create(ro, "POINT", Nothing, 0) Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryPointSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "POINT")Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub‘面的新建程序Private Sub createpolygon_Click()Dim wsf As IWorkspaceFactorySet wsf = New ShapefileWorkspaceFactory Dim wsn As IWorkspaceNameDim ro As Stringro = InputBox("请输入路径", "", "D:\AO") Set wsn = wsf.Create(ro, "POINT", Nothing, 0) Dim pN As INameSet pN = wsnDim ws As IFeatureWorkspaceSet ws = pN.OpenDim fs As IFieldsSet fs = New FieldsDim fse As IFieldsEditSet fse = fsDim f1 As IFieldSet f1 = New FieldDim fe1 As IFieldEditSet fe1 = f1With fe1.Name = "FID".Type = esriFieldTypeOID.Length = 4End Withfse.AddField f1Dim f2 As IFieldSet f2 = New FieldDim fe2 As IFieldEditSet fe2 = f2With fe2.Name = "shape".Type = esriFieldTypeGeometryEnd WithDim geod As IGeometryDefSet geod = New GeometryDefDim geode As IGeometryDefEditSet geode = geodgeode.GeometryType = esriGeometryPolygonSet geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geodfse.AddField f2Dim f3 As IFieldSet f3 = New FieldDim fe3 As IFieldEditSet fe3 = f3With fe3.Name = "name".Type = esriFieldTypeString.Length = 10End Withfse.AddField f3Dim f4 As IFieldSet f4 = New FieldDim fe4 As IFieldEditSet fe4 = f4With fe4.Name = "code".Type = esriFieldTypeString.Length = 10End Withfse.AddField f4Dim t As ITableDim na As Stringna = InputBox("请输入名称", "", "POLYGON") Set t = ws.CreateTable(na, fs, Nothing, Nothing, "") Dim wf As IWorkspaceFactorySet wf = New ShapefileWorkspaceFactoryDim wso As IFeatureWorkspaceSet wso = wf.OpenFromFile(ro, 0)Dim sp As IFeatureClassSet sp = ws.OpenFeatureClass(na)Dim fn As IFeatureLayerSet fn = New FeatureLayerSet fn.FeatureClass = spDim Ds As IDatasetSet Ds = sp = Dim pDoc As IMxDocumentSet pDoc = ThisDocumentpDoc.AddLayer fnEnd Sub教师意见：年月日。