陈晨GIS设计与实现实验二.docVIP

西北师范大学学生实验报告 学院 地环学院 专业 地理信息系统 年级、班 学号 姓名 同组者 课程名称 实验题目 成绩 实验准备： 三、实验内容：①每个图层属性表均包含FID、Shape、Name（String, 10）和Code（String, 10）四个字段；②图层名和路径均由用户输入； ③单击按钮后，自动将创建好的图层添加到ArcMap当前窗口； （3）在高级编程语言环境下（如.net, VB6.0），实现上述功能，并编译成DLL文件发布。 四、实验过程及： 程序界面设计、控件属性说明程序代码和程序运行四部分Sub Createployline() Dim wsf As IWorkspaceFactory Set wsf = New ShapefileWorkspaceFactory Dim Place As String Place = InputBox(请输入保存地址：, 输入保存地址, H:\新建文件夹\) Dim wsn As IWorkspaceName Set wsn = wsf.Create(Place, NewFile, Nothing, 0) Dim pn As IName Set pn = wsn Dim ws As IFeatureWorkspace Set ws = pn.Open built the properties for table Dim fs As IFields Set fs = New Fields Dim fse As IFieldsEdit Set fse = fs Dim f1 As IField Set f1 = New Field Dim fe1 As IFieldEdit Set fe1 = f1 With fe1 .Name = FID .Type = esriFieldTypeOID .Length = 4 End With fse.AddField f1 Dim f2 As IField Set f2 = New Field Dim fe2 As IFieldEdit Set fe2 = f2 With fe2 .Name = shape .Type = esriFieldTypeGeometry End With Dim geod As IGeometryDef Set geod = New GeometryDef Dim geode As IGeometryDefEdit Set geode = geod geode.GeometryType = esriGeometryPolyline Set geode.SpatialReference = New UnknownCoordinateSystem Set fe2.GeometryDef = geod fse.AddField f2 Dim f3 As IField Set f3 = New Field Dim fe3 As IFieldEdit Set fe3 = f3 With fe3 .Name = Type .Type = esriFieldTypeString .Length = 4 End With fse.AddField f3 Dim f4 As IField Set f4 = New Field Dim fe4 As IFieldEdit Set fe4 = f4 With fe4 .Name = Name .Type = esriFieldTypeString .Length = 10 End With fse.AddField f4 Dim myName As String myName = InputBox(请输入文件名称：, 输入文件名称, ) Dim t As ITable Set t = ws.CreateTable(myName, fs, Nothing, Nothing, ) here is the place to input the file auto Dim nwf As IWorkspaceFactory Set nwf = New ShapefileWorkspaceFactory Dim nws As IFeatureWorkspace Set nws = nwf.OpenFromFile(Place + \NewFile, 0) Dim nsp As IFeatureClass Set nsp = nws.OpenFeatureClass(myName) Dim nf1 As IFeatureLayer Set nf1 = New FeatureLayer Set nf