ArcView GIS Avenue培训教程

1、AVENUE基础

1.1 AVENUE简介

ArcView提供了显示、浏览、查询与分析地理数据的方法。AVENUE是ArcView面向对象的程序设计语言。ESRI 公司开发AVENUE的目的是为用户提供按自己的要求建立ArcView应用程序。用户编写的AVENUE程序可以在任何具有ArcView的平台上运行。ArcView自身的某些部分以及许多直接服务于用户的功能都是用AVENUE实现的。利用AVENUE可以做如下工作：

①定制ArcView的界面：可以去除不需要的控制单元，改变控制单元的排列及显示形式。如我们可以汉化ArcView 的界面。

②开发新的功能：用户可以通过AVENUE开发ArcView没有提供的功能。

③连接ArcView和其它应用程序：在工作中可能同时用到几个软件，如利用WORD进行文字处理，利用EXCEL 管理数据，利用ArcView分析地理数据。有时侯需要在软件之间进行数据交换，如利用ArcView更新EXCEL数据，执行其它的应用程序等。

④按用户的要求开发应用系统：根据用户要求，包括功能、界面、人机对话方式等开发应用系统。

1.2 Script （脚本）编辑器

ArcView 提供了Script （脚本）编辑器用于建立、编译和修改AVENUE程序（即Script）。与其它ArcView 文档一样，Script编辑器也有一套自己的菜单、按钮和工具。

ArcView中的每一个标准菜单、按钮和工具都有相应的Script，这些Script称为系统Script。通过Script编辑窗口可以打开和编辑Script。可以通过对系统Script的修改来产生新的满足要求的Script，如我们希望在显示某一特征时同时进行放大，可以把放大工具的Script文件增加到显示属性信息工具的Script中。任何Script都是与项目文件一同存储的，但也可以把它存储为文本文件。

Script输入

Script 编辑器提供各种控制单元，帮助用户创建Script 源代码。源代码的输入有三种方式：

从键盘输入：可以将AVENUE的语句直接从键盘输入到Script 窗口。ArcView提供了方便编辑操作的按钮，可以实现文本内容的剪切、粘贴等。

装载文本文件：用户可以使用该按钮选择某个文本文件，并将它插入到Script窗口中。被装载的文本文件可以用任何一种文本编辑器编辑。

拷贝已有的Script：当用户点击该按钮系统将打开Script管理器，选择需要拷贝的Script，该Script将插入到Script编辑窗口中。

编译和运行Script

点击编译（Compile）按钮，AVENUE将检查源代码的语法错误。如果没有错误，用户就可以执行该Script。如果Script语法有错，用户必须根据错误信息，修改并再次编译，一直到编译没有错误。

点击运行（Run）按钮，将执行经编译的Script。以下是一个Script及运行后的结果。

Script的调试

Script编辑器提供了一些调试按钮，用于帮助用户调试Script代码。

逐步追逐调试按钮：当Script已经正确编译，利用该按钮可以使用户逐步跟踪Script的运行。

断点按钮：可以通过设置断点中止Script的正常运行。如果Script在编译过程中出错，光标会停留在Script出错的地方。这时。可以在此行之前设置一个断点，然后编译并运行Script，并在断点处检查变量的值。该按钮是开关按钮。

显示变量值的按钮：可以显示全局和局部变量的值。

1.3 事件（Events）与Script的运行

当用户点击一个按钮、在某个文档窗口使用一个工具或更新一个文档，都称为事件的发生。AVENUE支持三种类型事件：点击（Click）、应用（Apply）和更新（Update）。

点击：当用户点击一个按钮、一个菜单子项或工具时，就发生了一个点击事件，这个事件会立即引起相应的Script

的执行。

应用：当用户在某个窗口中使用某个工具，就发生了一个应用事件。同样，该事件也会立即引起相应的Script的执行。

更新：当文档的状态发生变化（例如，向视图中加入主题，激活表格中的某个字段）时，就会发生一个更新事件。不同的控制单元识别不同类型的事件。按钮和菜单子项识别点击和更新事件。工具识别应用、点击和更新事件。菜单仅识别更新事件。

菜单菜单子项按钮工具更新点击点击点击更新更新应用更新

在ArcView应用程序的总体设计和建立符合用户需求的ArcView界面时，必须考虑到这些差异。例如，如果编写的Script需要用户从视图中选择时，Script必须与某个工具的Apply事件相联。

1.4定制对话框（Customize Dialog Box）

定制对话框提供了可视化的框架，用户可以利用它，按照自身的要求安排ArcView的菜单、按钮、和工具。Arcview 提供了两种方法打开定制对话框：从项目的Project菜单中选择Customize项，或者两次点击按钮或工具条的空白区。

双击空白处

定制对话框有6个部分：

文档类型（Document Type）用户可以在此选择具有所需控制单元的文档类型。

控制单元的分类（Control Category）在此选择用户所需的控制单元集合。用户作出选择后，对应的控制单元集合就会显示在控制单元编辑器（Control Editor）。

控制单元属性列表（Properties List）与选中的控制单元及当前的设置相关的所有属性信息显示在控制单元属性列表中。通过属性列表可以修改和设置菜单、按钮、工具的事件响应程序及属性信息。

Reset 按钮―Reset‖按钮用于将当前文档类型重新设置为初始的安装设置。初始设置存在ArcView的安装目录的ECT子目录下的default.apr文件中。

Make Default按钮使用―Make Default‖按钮将当前文档设置为用户的缺省设置。它替代用户家目录下default.apr文件。

控制单元编辑器中有一系列的按钮，它随着文档类型和控制单元的不同而不同。然而有三个按钮保持不变，New、Separator、Delete。New按钮是新建一个控制单元，Separator是分割不同类的控制单元，Delete是删除控制单元。下面以View文档为例来介绍控制单元编辑器的操作。

上图是《上海市河网演变系统》的一个界面，是通过定制对话框用户化和汉化的结果。汉化操作是对控制单元Label 属性修改的结果，由于Arcview地理信息系统软件的内核支持双字节，所以只需在Label中输入汉字即可。首先选中―File‖，双击其Label属性，输入―文件‖，如图所示，确定后就可得到上图所示的结果。

在《上海市河网演变系统》中没有Graphics菜单，我们可以通过两种方法达到这一结果。一种是选中此菜单按Delete 钮删除，这样同时删除其子菜单，且无法恢复，因此一般不推荐此方法；第二种是选中此菜单修改其Invisible属性，把―False‖改为―True‖即隐藏此菜单，这种方法可以再次修改Invisible属性而恢复原先的情况。

New按钮可以在选中的控制单元之后创建一个新的控制单元。选中Graphics按NewMenu，则产生一个新的菜单，在其Label属性中输入―图层‖，选中―图层‖按NewItem生成子菜单。如图所示：

以上是对菜单的操作，对按钮（Buttons）和工具（Tools）的操作与之相类似。不同的是按钮有一个Icon（图标属性），双击弹出图标管理器，从中选择或导入所需图标。如图所示：

至于快捷菜单（Popups）除了本身响应右击事件外，与一般菜单的设计完全相同。

建立Script与控制单元的关联

建立Script与控制单元关联的方法是双击控制单元属性列表中的事件属性，并从出现的Script管理器中选择当某个事件发生时需要执行的Script。

一个Script可以同时与多个控制单元建立关联。例如，诱发更新事件（如使控制单元生效或无效）的Script可以为多个控制单元所共享。

建立Script和项目的关联

在项目属性表中可建立Script与项目的启动（Startup）与关闭（Shutdown）事件的关联。当项目文件打开时，StartUp事件执行一个Script ，而关闭项目文件时，ShutDown事件执行另一个Script。这类事件可用于项目的环境初始化，例如，数据库联结，删除临时文件或表格。

视图、表格、图表等其它一些文档打开或关闭时也执行Script。

2 AVENUE是如何工作

2.1 理解对象

AVENUE是面向对象的程序设计语言。面向对象程序设计实际上是把复杂的问题分解成很多单元（称为对象），这些对象是封装的，包含了数据和数据操作的代码。编程人员不需要去了解对象内部情况，如果要操作这些对象，只要发送相应请求。如要制造汽车，不需要了解汽车如何生产，只要发送命令。

对象有特性(properties)、动作（Actions）和状态（States）。如汽车，型号、颜色、车门数等特性；有启动、停车、左转、右转等动作；有方向（北）、速度（60mph）等状态。

一个对象可以以很多方式与其它对象联系。一个对象可以包含其他对象，如汽车可以有音响、方向盘和座位等。一个对象也可以利用其他对象，如汽车使用燃料运行。对象也可以被其他对象利用，如某人驾驶汽车。

在ArcView，我们操作的每一事都是对象，打开一个视图，我们就操作视图对象；增加一个主题到视图，我们就操作主题对象；增加按钮到界面，我们就操作按钮对象；利用用户界面的操作实际上就操作ArcView对象。面向对象的编程就是操作对象。

在ArcView中，除了项目、视图和主题是对象外，还有一些我们原先可能不认为是对象，如数字和文本，Nil—空对象，布尔值。

具有相同特性的对象被组织成类。在某一类中的所有对象被定义成有相同特性，同一类中产生的对象是类的例子（instances），如图中下面两辆车是车这一类型的例子，具有车这个类型的特性（如，有轮子、车门等）。同样，在ArcView，View1、View2、View3都是View这一类型的例子。类分抽象类和具体类。抽象类没有直接的例子，它仅用于组织所有下级类共有的特性。具体类有自己直接的例子。

类可以通过层次图（class hierarchy）进一步组织，定义类之间关系。类关系可以以三种方式描述：继承、集合和关联。演示这些关系的一种方式是通过对象模式图。对象模式图的基本组成是方框（表示类）和线（连接类显示类之间关系）。通过分析类模式图，我们可以类及对象之间的关系。

继承表示一个类型，轿车是汽车的一个类型。汽车是一个超类，定义了所有汽车的一些特性。子类可以继承超类定义的特性。通过继承，层次中的特性只需要定义一次，没有继承的特性在类本身中定义。继承的符号是一个开放的三角形。

汽车

轿车卡车救护车

同样，ArcView中，视图是文档的一种类型，视图继承文档的特性，如包含在一个窗口，有图形用户界面等，但它也定义了自己的特性，如视图有主题和内容表。

集合表示组成关系，一辆汽车包括一个发动机，四个轮胎，一个汽车音响，座位。当然，一辆有很多东西组成，在示意图显示所有内容是不可能的。在ArcView关系图上，实际上只显示最重要的关系。集合的符号是菱形。另外，一个实心圆表示不止一个，空心圆表示可选。

关联表示类之间物理上或概念上的联系；汽车用汽油来运行，同样，汽车需要人来驾驶。单一线指示一个相关对象。对象模式图显示了类之间的关系。一旦理解了这些关系，就可以操作属于某一类的对象。如放大音响声音，首先确定音响所在的汽车，然后确定音响进行操作。同样，通过我们要控制视图中的一个主题，首先要确定包含这个主题的视图。当然，关键是确认正确的对象，要求它做一些它所知道如何做的事情。例如，我们不能要求汽车座位对象放大声音，但我们可以要求它倾斜（只要它能倾斜）。

汽车

发动机轮胎汽车音响座位

调音器磁带

2.2 对象请求（Requests）

在ArcView中，对对象的操作实际上是对对象提出请求。当我们按一个按钮或点击菜单，ArcView将发送请求给对象。一个请求可能将产生一个新的对象，如一个新的主题；也可能提取一个对象的信息，像当前视图名；也可能改变一个对象的属性，如改变主题名或使它成为活动主题。

大多数请求是提取或修改已有的对象。这些请求称为例子请求。如显示或隐藏图例。另一种请求称为类请求，类请求一般是产生新的目标类对象或返回影响类的事情信息。如增加一个主题对象。

在AVENUE中，定义了很多类以及对这些类的请求，对象的请求实际上是按照它所属类的请求方式进行操作，如汽球可以定义一个类，不同的汽球有共同的特性，当我们用针刺汽球，汽球就会爆炸；当我们松开汽球，汽球将会升上天。这些请求及结果在类中已经定义，对具体对象的请求将产生相应的结果。

不同的类支持不同的请求，如视图可以有放大请求，但数据表不能理解这个请求。

AVENUE请求命名一般是以动词开始指示它的动作，如，GetProject、FindScript、AddDoc和Setvalue，这里Get、Find、Add和Set是动作，Project、Script、Doc和value接受动作。下表显示了一些关键词以及它们的作用

关键词作用例子

Add 增加对象aView.AddTheme

As 对象类型转换aNumber.AsString

Can 确认对象是否可操作aTheme.CanEdit

Find 搜寻指定对象aVie w.FindTheme(―Roads‖)

Get 返回一个参考给对象aView.GetThemes

Has 指示对象是否有指定的条件或状态aScript.HasError

Is 返回―真‖或―假‖ aButton.IsVisible

Make 产生一个新例子View.Make

Return 产生一个新对象并返回一个参考给它aFileName.ReturnDir

Set 给对象赋特征aButton.SetIcon

2.3 对象请求语句

Avenue语句包含两个部分：对象和对这些对象提出请求。其中，请求可以带参数，这些参数使请求更加明确。Avenue 语句执行的结果是产生一个新的对象。

用一个赋值符号（=）可以将产生的对象赋给一个变量。

如theName = theView.GetName

对象请求的标记方式有三种：后缀式标记、内缀式标记和前缀式标记。

后缀式标记：这是对象请求最常用的方法，是在对象和请求之间加一个圆点，如theView.Print，请求在对象之后。内缀式标记：数字对象请求的标记，请求放在数字对象之间，如25+15。

前缀式标记：这种标记方式用于布尔对象，请求防在对象之前，如Not True。

2.4 变量

许多程序设计语言要求在使用变量之前必须确定变量的数据类型（例如：整数、浮点数、字符串）。AVENUE的变量不需要事前定义，也不需要事先确定数据类型。变量定义是通过一个赋值语句来完成，变量出现在赋值号（=）的左边。

例如：

Variable = Statement

TheNumber = 45

AString = ―abcdefg‖

变量名必须以字母开头，其中可以包括数字。变量名的长度没有限制。AVENUE不区分大小写，但采用一定的大小

写规范有助于程序的清晰和保持统一的风格。

AVENUE编译器会自动识别变量名与类名和请求的冲突。

以下划短线（_）开头的变量称全局变量。一旦定义了全局变量，在应用程序处于活动状态时，任何项目的任何Script 均可使用这些变量。全局变量会占用很多内存，因此，如果在一个项目中需要用到全局变量，一定要在项目关闭后使用av.RemoveGlobalVars删除全局变量，否则全局变量仍然占有分配给它的内存空间。

2.5 类和请求在线帮助

对于初学者来说类和请求在线帮助可能用处不大，但是对于Avenue编程人员来它是不可缺少的。因为它包含了Avenue所有的类和请求，内容丰富，而且通过目录和索引可以方便的获取所需信息。如果你想知道视图类有那些请求，那么你只要打开帮助，在索引中键入―view‖按回车，就可得到所有有关视图的请求。

3Avenue的组成要素

3.1字符串

有两种方法可以产生字符串对象：

将双引号括起来的字符串赋给一个变量，如Var = ―Shanghai‖；或将请求返回的字符串对象赋给一个变量，如Var = theView.GetName。

用―+‖或―++‖请求可以拼接字符串。其中，用―++‖时串之间包括一个空格。如：

Var1 = "Sahnghai"

Var2 = "China"

Var = Var1 ++ Var2

https://www.360docs.net/doc/8516469173.html,(Var,"")

Avenue有一些特殊的字符串，NL、TAB、CR，分别表示换行符、制表符和回车符。

可以使用―=‖、―<‖、―>‖、―< =‖、―>=‖、―<>‖等比较算符进行字符串的比较，在条件语句中常用到这种比较。用关键词As打头的转换请求可以将字符串转换为其它类，例如，可以用AsNumber这个请求将一个字符串转换为数字。

还有许多其他的字符串操作请求，可以用这些请求实现大小写转换、互换字符串等。

3.2 数字

数字可以直接赋给一个变量，也可以通过请求赋值。Avenue所支持的标准运算包括+、－、*和/、Max、Min、Cos、Sin、Ln、Sqrt、Mod、Round等。

+、－、*和/等请求采用标准的数学标记方式（中缀式标记）。但Cos、Sin、Tan和Round等以通用标记方式表示。

TheNumber = 7 +12 TheNumber = 35.Cos

除非使用括号，否则Avenue算子的优先级是从左到右。如：

x = 2+3*3 x=15 x = 2+(3*3) x=11

利用以关键字As打头的请求，可以将数字转换为其他对象。例如，三角函数需要以弧度作参数，这时就可以使用AsRadians和AsDegrees两个请求实现度数与弧度之间的变换。

利用格式化（formatting）字符串可以控制数字的格式。例如―D.DD‖使数字的格式在小数点左边至少有一位，而在小数点右边则必须有两位数字。

3.3 布尔对象

布尔类有两个例子：True和False。可以直接将True或False赋给一个变量，如：

done = false

也可以利用请求的返回值，如：

status = aTable.HasSelections

布尔表达式要么为True要么为False，而且布尔表达式必须出现在括号中。利用AND、OR和NOT可以构造出复合表达式。

布尔表达式可以构成分支和循环语句的条件判断部分。

3.4 NIL

NIL类只有一个例子，即NIL对象。NIL对象表示缺值。大多数请求返回NIL表示一个错误。在AVENUE中，通常根据一个返回值是否为NIL来判断一个对象是否存在。如：

theView = av.GetActiveDoc

theTheme = theView.FindTheme("Canada.shp")

if (theTheme = Nil)then

https://www.360docs.net/doc/8516469173.html,("No themes","")

else

https://www.360docs.net/doc/8516469173.html,("the theme is "+thetheme.getname,"")

end

3.5 枚举（enumerations）

枚举是一组关键词或选项，每一选项称为枚举元素（EnumerationElt）。如要产生一个文件，我们可以指定以下文件允许的操作：

#FILE_PERM_READ

#FILE_PERM_WRITE

#FILE_PERM_MODIFY

#FILE_PERM_APPEND等

在指定枚举时，关键词前加―#‖号，所有字母大写。

第一部分代表类，第二部分代表枚举，第三部分代表元素。

3.6 日期、时间和时间段

Avenue的日期类支持日期、时间和时间段。日期信息包括年、月、日，时间包括小时、分钟和秒，时间段指日期或时间的跨度。

可以用Now这个请求将当前的日期和时间赋给日期对象：

today = Date.Now

也可以将特定的时间和日期赋给一个日期类：

christmasday = Date.Make(―12/25/94‖, ―M/d/y‖)

可以用设定日期和时间的缺省格式，还可以用指定某个特定的日期或时间格式。

时间段，两个日期对象相减就生成一个时间段类。如：

DaysTilChristmas = today – christmasDay

时期和时间的增量也可以通过增加时间段来获得：

payday = today + 3.AsDays

curfew = time.now + 6.AsHours

3.7 列表

列表是不同类对象的有序集合。列表中可以包括多种类型的对象。字符串、主题和数字都可以成为同一个列表的成员。

生成列表的方法是将括在大括号（{}）中的一组元素赋给一个变量。如：

myList = { "red", 34, av.GetActiveDoc, av.GetProject }

for each i in mylist

https://www.360docs.net/doc/8516469173.html,( i.AsString, "List" )

end

一些请求返回列表：

theListOfTheme = theView.GetThemes

theview = av.getactivedoc

thelist = theview.getthemes

thecount = thelist.count

https://www.360docs.net/doc/8516469173.html,(thecount.asstring,"")

theView = av.GetActiveDoc

theTheme = theView.GetThemes.Get(0)

theThemeName = theTheme.GetName

https://www.360docs.net/doc/8516469173.html,(theThemeName,"")

也可以利用Make这个请求生成列表。Make这个请求生成一个空的列表，可以用Add和Insert这两个请求向列表中增加元素。Add在列表尾部增加一个新元素，Insert在列表头部增加一个元素。

通过索引号使用列表元素。第一个元素的索引号为0，最后一个元素的索引号为元素数减1。Get这个请求根据元素索引号检索元素，Set这个请求可以设置特定索引号（索引号必须在列表元素个数的范围内）的元素的值，Find 这个请求返回特定元素的索引号。Empty请求可以把列表置为空。

3.8 AV

AV是ArcView对象模式图的根，称为ArcView应用程序。当我们启动ArcView时，将产生一个一个应用程序的例子。

3.9 词典（Dictionary）

词典是键和值对的集合。词典必须保证各键唯一。键和值可以是任何一个类对象，也可以是不同类的对象。下面是一个词典的例程：

theList={"View","T able","Chart","Layout","Script"}

d=Dictionary.Make(theList.Count-1) ‘创建新词典

n=0

for each l in theList

n=n+1

d.Add(n,l) ‘增加词典的键和值

end

https://www.360docs.net/doc/8516469173.html,(d.Get(3),"Dictionary Sample") ‘返回与键相关的值

词典的定义和列表不同，它必须指定初始大小。这个初始值要与你想插入词典的元素个数相近。因为当元素的量大大超过词典的大小的时候，检索就会花费大量的时间。

3.10 堆栈(Stacks)

和列表一样，堆栈也是对象有序集合，不同的是它的存取方式，在堆栈中我们首先得到的是最后加进去的对象，即最后进，最先出。比如用堆栈可以存储（Push）视图前一次的缩放比例，

TheView=av.GetActiveDoc

?如果没有与视图相关的堆栈，就新建一个

savedState=theView.GetobjectTag

if (savedStated=nil) then

savedState=Stack.Make

theView.SetObjectTag(savedState)

end

savedState.Push(theView.GetDisplay.ReturnExtent)

同样也可以获得(Pop)前一次的缩放比例。

theView=av.GetActiveDoc

SavedState=theView.GetObjectTag

If ((savedState=nil) or (savedState.IsEmpty)) then

Msgbox .Inf o(―No more saved state‖,‖EMPTY‖)

Return nil

End

theView.GetDisplay.SetExtent(savedstate.Pop) ?删除堆栈顶层对象并返回此对象

3.11 If...Then...Else...语句

If...Then...Else...语句根据条件执行程序中某一部分。首先作条件判断，然后根据条件的真与假执行不同的语句。如根据主题是否可见，进行开关操作。

theView = av.getActiveDoc

theTheme = theView.getThemes.get(0)

if(theTheme.Isvisible)then

theTheme.setVisible(false)

else

theTheme.setVisible(true)

end

每个If...Then...Else...语句都必须有对应的End语句，可以进行ElseIf的多重嵌套。

3.11 While...statement（条件循环）

While语句常用于有条件地循环执行一个请求块，循环继续执行直至条件不满足。因此，请求块中就应包含使条件由真变假的语句。

每个While...语句必须有对应的End语句。

done = false

sum = 0

While(not done)

thevalue = MsgBox.input("Enter value:","","")

if(thevalue <> 0.asstring)then

sum = sum + thevalue.AsNumber

https://www.360docs.net/doc/8516469173.html,(sum.asstring,"")

else

done = true

end

end

3.12 For Each...语句（叠代循环）

For Each...语句对于集合中的每一个元素执行一组请求。集合是一个抽象类，它的下级类包括位图、字典、列表等。theView = av.GetActiveDoc

for each t in theView.GetActiveThemes

t.SetVisible(false)

end

上面的程序使视图中所有活动主题都可见。

For Each...语句还可用于对以间隔请求表达的数字、日期和时间范围的操作。

for each n in 0..10 by 2

https://www.360docs.net/doc/8516469173.html,(n.asstring,"")

end

―by‖语句可以缺省，在缺省情况下表示间隔为1。

3.13 循环内流控制(Continue,Break和Exit)

Continue,Break和Exit语句常用于改变控制流。

如果遇到Break语句，则退出最近的循环体，转向End语句的下一个语句。

如果遇到Continue语句，忽略当前循环所剩的未执行步骤，而将控制转给当前循环的下一个循环操作。

Exit语句中止Script的执行。

Return语句中止Script的执行，并返回一个对象给调用语句。如在test1中有如下代码

https://www.360docs.net/doc/8516469173.html,("You will get an Ok.","")

Return ―OK‖ ?返回对象―OK‖，并中止Script的执行

在test2中有如下代码

theReturn=av.Run("test1","")

https://www.360docs.net/doc/8516469173.html,(theReturn,"")

运行test2得到如下结果

如把test1里的第二个语句换成―Exit‖，则只能得到第一个消息框。

3.14 对象标签

每一个控制单元、文档、图形和主题都有对象标签字段。对象标签字段可以存储一个用户希望与这个对象建立关联的其它对象。利用SetObjectT ag和GetObjectTag存储和检索对象。

theView = av.GetActiveDoc

theView.SetObjectTag(―map‖)

theObject = theView.GetObjectTag

https://www.360docs.net/doc/8516469173.html,(theObject,‖‖)

下面一个例子是把目前的视图范围记录的对象标签

theView = av.GetActiveDoc

theView.SetObjectTag(theView.GetDisplay.ReturnExtent)

下面的程序是按视图的对象标签显示视图。

theView = av.GetActiveDoc

theView.GetDisplay.SetExtent(theView.GetObjectT ag )

此外，对象标签还具有持久性（Persistence），只要对象存在，标签的内容就可以获得。

3.15 SELF

SELF是用于指代当前Script的接收对象的关键字，比如下面这一段程序的接收对象是一个按钮（Button）, 那么SELF就代表这个按钮。它常用于与更新（Update）事件（根据特定的条件使控制单元生效或无效）相关的Script 中。

theView = av.GetActiveDoc

SELF.SetEnabled(0

此外，SELF也可以用在被调用的Script中，来接收通过应用程序AV的Run这个请求传递的对象。如有一个Script1的代码是

av.Run(―myScript‖,‖SELF Example‖)

而在―myScript―中的代码是

https://www.360docs.net/doc/8516469173.html,(SELF,‖‖)

那么运行Script1就可得到如图所示的结果。

3.16 执行Script

应用程序AV会寻找并执行Script。应用程序首先在当前项目中寻找，然后再在用户缺省项目中找，最后在系统缺省项目中寻找。

执行Script的请求有两个，Run和DelayedRun。Run的用法在SELF一节中已经介绍，下面来讲讲DelayedRun 的用法。DelayedRun是一个延迟执行请求，即在延迟一定的时间以后执行某一特定的Script脚本，同样它也能像Run一样向所执行的脚本传递某些参数。DelayedRun的语法是：

av.DelayedRun (aScriptName, anObj, aDelay)

aScriptName是要执行的脚本名，无需写出路径；

anObj是DelayedRun要传递给aScriptName的参数列表；

aDelay是延迟时间，它的单位是秒，值要求整数（虽然非整数不会出错）。

下面这个例子是在运行5秒后显示一个消息框。

Script1的代码如下：

https://www.360docs.net/doc/8516469173.html,(self,"")

Script2的代码如下：

av.delayedrun("script1","zwf",5)

编译以后运行Script2，读者可以查看运行情况。

此外通过DelayedRun还可以实现类似于VB中Timer事件的功能。有两种方法可以实现此功能：通过Run和DelayedRun的组合；DelayedRun自调用。下面分别用两种方法来实现工程的定时保存。

Run和DelayedRun的组合。首先新建两个Script脚本ProSave和DelayedRun，

ProSave的代码：

https://www.360docs.net/doc/8516469173.html,("保存工程......","DelayedRun Sample")

av.GetProject.Save

av.Run("Delayed",nil)

DelayedRun的代码：

av.delayedrun("ProSave",nil,5)

编译以后执行DelayedRun。

DelayedRun自调用，首先新建一个Script脚本SelfDelayedRun，

SelfDelayedRun的代码：

https://www.360docs.net/doc/8516469173.html,("保存工程......","DelayedRun Sample")

av.GetProject.Save

av.delayedrun("SelfDelayed",nil,5)

编译以后执行看看与第一种方法是否相同。

3.17 注释

在Avenue中通过单引号来注释。注释可以提高程序的可读性，注释可以放在程序头也可以放在程序尾。在调试过程中也可以对某些语句进行注释，以免删除后无法恢复。

4视图与主题

4.1视图

视图文档是项目的一个组成部分，它提供了显示和查询用户定义的主题集合的方法。

Doc

MapDisplay Prj

GraphicList View TOC

Theme

视图包含一个或多个主题。

视图有以下相关类：

TOC（T able of Contents）：目录表，负责管理视图中所显示的主题图例。

GraphicList：图形列表，它负责管理图形（Graphics）集合，如在主题上增加的圆、线、文本等。MapDisplay：它负责管理视图的地图显示区。

Prj：投影类，负责管理视图的投影。

下面的程序是产生一个视图，设置视图为China，产生并打开视图窗口。

利用Make请求产生一个新的视图，如：

theView = View.Make

利用GetWin和Open请求，视图将得到一个窗口并打开该窗口，

theView.GetWin.Open

利用Get（Return）和Set请求可以获得和设置视图的特性，如：

theView.SetName("China")

theName = theView.GetName

https://www.360docs.net/doc/8516469173.html,(theName,‖‖)

利用各种不同的请求，用户可以获得主题或主题集合，也可以移动到显示区的任何位置或设置当前显示范围。

4.2主题

主题是图形和图像的一个抽象基类，视图上显示的各种图形、图像和图例的集合共同组成了一个主题。

View

Legend

GraphicSet Theme

Threshold

Ftheme ITheme

4.2.1增加主题

一旦我们有了一个视图对象，我们就可以增加主题到视图上。主题可以是不同类型的地理数据，主要是两种：Ftheme 和Itheme。

如果要增加主题，我们必须指定数据源。在Avenue中，我们使用SrcName(Source Name)类来指定位置（在某些情况下，还要指定类型，如Polygon）。利用Theme.Make（theSrcName）或ITheme.Make(theImgSrcName)产生主题。

theView = av.GetActiveDoc

theSrcName = SrcName.Make("e:\av_gis30\avtutor\arcview\qstart\states.shp ")

theTheme = Theme.Make(thesrcName)

theView.AddTheme(theTheme)

theTheme.SetVisible(true)

theTheme.SetActive(true)

Itheme是图象的可视化，它可以作为视图的主题。它不同于Theme，Theme是矢量的而Itheme是栅格的。下面用ITheme.Make(theImgSrcName)产生主题。

theView=av.GetActiveDoc

anSrcName=SrcName.Make("e:\av_gis30\avtutor\arcview\images\spotimg.bil")

theImgSrc=ImgSrc.Make(anSrcName)

if (anSrcName<>nil) then

theTheme=Itheme.make(theImgSrc)

theView.AddTheme(theTheme)

theTheme.SetVisible(TRUE)

end

运行结果如下：

4.2.2 改变主题符号

主题与图例相关联，图例包含了所有主题使用的符号，因此，要改变主题符号，首先要得到主题的图例。下面的例子显示了对视图中的第一个主题的第一个符号进行操作，即把颜色变为蓝色。主题的获得可以按显示的顺序，也可以通过得到活动主题（theView.GetActiveThemes）或按指定的主题名（theView.FindTheme）。

theView = av.GetActiveDoc

theTheme = theView.Getthemes.Get(0)

thelegend = thetheme.GetLegend

theSymbol = thelegend.GetSymbols.Get(0)

theSymbol .SetColor(color.getBlue)

theTheme.UpdateLegend

也可以为符号定义新的颜色。

theColor = Color.Make

theList = {0,100,0}

theColor.SetRGBList(theList)

theSymbol.SetColor(theColor)

上例是在图例类型既定的情况下，对图例特征（Symbols）的设置。通过Avenue我们不仅可以改变图例的特征，还可以改变图例的类型（theLegend.SetLegendType(LegendTypeEnum)）。下面的例子为视图新增一个具有特定图例的主题。

theView = av.GetProject.FindDoc("View1")

theSrcName=SrcName.Make("e:\av_gis30\avtutor\arcview\qstart\states.shp")

theTheme=Theme.Make(theSrcName)

theView.AddTheme(theTheme)

theTheme.SetVisible(True)

theTheme.SetActive(True)

theTheme = theView.GetActiveThemes.Get(0)

theLegend = theTheme.GetLegend

'首先设置图例类型

theLegend.SetLegendType(#LEGEND_TYPE_UNIQUE)

' 以主题字段的不同值分类

theLegend.Unique(theTheme,"state_name")

theLegend.SetNullvalue("state_name","long")

' 装入并设置颜色方案

theColorSchemes = SymbolList.GetPreDefined(#SYMLIST_TYPE_COLORSCHEME)

for each scheme in theColorSchemes

if (scheme.GetName = "pastels") then

theColorScheme = scheme

end

end

theLegend.GetSymbols.RandomSavedSymbols(theColorScheme)

'改变目录表并重绘主题

theTheme.UpdateLegend

程序运行结果如下：

此外还可以通过装入(Load)保存的图例文件来达到改变图例的目的，Load这个请求的语法如下：

aLegend.Load (aSavedLegend, loadType)

aSavedLegend是通过图例编辑器保存的文件。LoadType共有四种：#LEGEND_LOADTYPE_ALL、#LEGEND_LOADTYPE_CLASSESANDSYMBOLS、#LEGEND_LOADTYPE_CLASSES、#LEGEND_LOADTYPE_SYMBOLS至于其具体的功能在这里就不在赘述，读者可以自己尝试一下。

4.2.3 选择特征

在主题上选择特征的一种方法是利用鼠标进行选择。下面的例子是在活动主题上画一个矩形（另时），选中位于这个矩形内的特征。

theView = av.GetActiveDoc

theTheme = theView.GetActiveThemes.Get(0)

得到矩形，然后利用它选择特征

r = theView.ReturnUserRect

theTheme.SelectByRect(r,#VTAB_SELTYPE_NEW)

如果我们希望既可以通过画矩形来选择特征，也可以通过点击方式来选择特征，只要对上面的程序作简单的修改。修改后的程序如下：

theView = av.GetActiveDoc

theTheme = theView.GetThemes.Get(0)

theRectangle = theView.ReturnUserRect

if(theRectangle.IsNull) then

thePoint = theView.GetDisplay.ReturnUserPoint

theTheme.SelectByPoint(thePoint,#VTAB_SELTYPE_NEW)

else

theTheme.SelectByRect(theRectangle,#VTAB_SELTYPE_NEW)

end

此外，还可以通过一个主题来选择另一个主题的特征。假设你有两个主题，一个主题是某地的城市分布，另一主题是该地河流的分布。你想知道河流沿线5公里范围内有多少零售商业，那么就可用上述方法实现。首先打开― E:\ESRIDATA\CANADA\cities.shp‖和― E:\ESRIDATA\CANADA\rivers.shp‖,程序如下：

theView=av.GetActiveDoc

theTheme1=theView.FindTheme("Cities.shp")

theTheme2=theView.FindTheme("Rivers.shp")

theTheme1.SelectByTheme(theTheme2,#FTAB_RELTYPE_ISWITHINDISTANCEOF,0.5,#VTAB_SELTY PE_NEW)

运行结果如图所示（红色为选中城市）：

4.2.4 热链接

热链接就是把某一特征和另外的图形、文本、文档、项目，或Avenue程序连接起来，当鼠标单击该特征时，立刻显示这些数据或执行这个程序。例如在上海工业地理应用中，当鼠标单击某一企业时，立刻弹出一幅与改企业相关的照片、文字描述，或一段录像，或Avenue程序完成某项特定任务。

通过ArcView的学习，对热链接的上述功能读者大概已并不陌生，但是有时Hot Link对话框并不能满足我们的要求，因此需要通过编程以一种更灵活的法式来实现。

下面这段程序是在鼠标单击某一特征时播放一段与该特征相关的录像，其中关键请求有SetHotField、GetHotField。假定已打开一个名为factories.shp的主题，其中有一字段―相关信息‖，且此字段存有相关媒体的路径。则我们只要把下面的程序与一个工具就可实现热链接。

theView = av.GetActiveDoc

theTheme=theView.FindTheme("factories.shp")

theHotField=theTheme.GetFtab.FindField("相关信息")

?设置热链接字段

theTheme.SetHotField(theHotField)

found = false

p = theView.GetDisplay.ReturnUserPoint

for each t in theView.GetActiveThemes

?判段主题是否有属性信息及热链接字段

if ((t.HasAttributes) and (t.GetHotField <> nil)) then

recs = t.FindByPoint(p)

for each rec in recs

theField = t.GetHotField

found = true

theVal = t.ReturnvalueString(theField.GetName, rec)

if (not (theVal.IsNull)) then

?判断磁盘上是否存在此文件

if (File.Exists(theVal.AsFileName)) then

?调用系统播放器播放相关媒体

system.execute("D:\Program Files\Windows Media Player\mplayer2.exe" ++ theVal) else MsgBox.Warning("File "+theVal+" not found.","Hot Link")

end

end

end

end

end

if (not found) then

System.Beep

end

4.2.5 视图地图投影设置

地图投影的实质是将地球椭球面上的经纬线网按照一定的数学法则转移到平面上。用不同投影方法建立的经纬线网形式不同，它们的变形性质和变形分布规律也各不相同。长度变形是地图投影的主要变形，它影响着面积变形和角度变形。变形性质不同的投影适用于不同用途的地图。制图区域的范围、地理位置和轮廓形状决定着地图投影应选用的构成方法。因此特定区域或者具有特定目的的地图应该选择与之相适应的投影方式。

下面以世界地图为例，考察Avenue的地图投影实现法式。首先打开―E:\ESRIDATA\WORLD\country.shp‖，然后新建两个按钮，分别与下面的两断程序相连。

?等面积方位投影

theView = av.GetActiveDoc

r = Rect.MakeXY(-122,18,-110,50)

'设置投影的参数

p = EqualAreaAzimuthal.Make(r)

p.SetCentralMeridian(-119)

p.SetReferenceLatitude(37.2)

' 设置地图单位为米，距离单位为米

theView.SetUnits(#UNITS_LINEAR_METERS)

theView.GetDisplay.SetDistanceUnits(#UNITS_LINEAR_METERS)

' 设置视图投影

theView.SetProjection(p)

按第一个按钮，得到如下结果：

theView = av.GetActiveDoc

'设置投影的参数

p = Robinson.Make(theView.ReturnExtent)

p.SetCentralMeridian(0)

' 设置地图单位为英尺，距离单位为英里

theView.SetUnits(#UNITS_LINEAR_FEET)

theView.GetDisplay.SetDistanceUnits(#UNITS_LINEAR_MILES)

' 设置视图投影

theView.SetProjection(p)

按第二个按钮，得到结果如下：

可见，不同的投影方式对地图的显示影响显著，读者想了解更多有关地图投影的信息，可以通过在线帮助检索关键字―Prj‖。

5 图形（Graphics）和符号（Symbols）

5.1图形

图形（Graphic）是一个抽象类，它包括三个子类（GraphicGroup、GraphicText和GraphicShape）。GraphicShape类和Shape类是相关的，Shape类定义形状，GraphicShape类是在此基础上定义如何画图形。如果要在视图上增加一个图形，首先通过对形状（shape）对象进行Make请求定义shape，shape包括Circle、Line、Point、Rect等，然后对GraphicShape对象进行Make请求，从数学上来定义如何画图形，最后从图形列表中增加该图形。

下面的例子是在视图上画一个圆。

theView = av.GetActiveDoc

theDisplay = theView.GetDisplay

theCircle = Circle.Make(0.5@0.5,0.2)

theGraphicCircle = GraphicShape.Make(theCircle)

theGraphicList = theView.GetGraphics

theGraphicList.Add(theGraphicCircle)

在视图上画了图形后我们还可以对图形进行编辑。如图形的联合（Combine）、合并（Union）、相减（Subtract）、相交（Intersection）等。下面就以相交为例，来说明上述功能的Avenue实现。

theView = av.GetActiveDoc

theGraphics = theView.GetGraphics

selGraphics = theGraphics.GetSelected

gra1 = selGraphics.Get(0)

shpgra1 = gra1.GetShape

theSym = gra1.GetSymbol

theGraphics.RemoveGraphic(gra1)

gra2 = selGraphics.Get(1)

shpgra2 = gra2.GetShape

theSym = gra2.GetSymbol

theGraphics.RemoveGraphic(gra2)

shpIntersect = shpgra1.ReturnIntersection(shpgra2)

if (shpIntersect.IsEmpty.Not) then

graIntersectAll = graphicShape.Make(shpIntersect)

graIntersectAll.SetSymbol(theSym)

theGraphics.Add(graIntersectAll)

end

5.2符号

符号类下有5个子类：ChartSymbol、Marker、Pen、Fill和TextSymbol。分别用于画图表、画点、画线、填充多边形和文本注记。其中前面四个还可进一步划分子类，如多边形填充可分为栅格填充、矢量填充以及多层复合填充。利用Symbol.Make可以产生一个新的符号或符号子类，一旦产生符号，我们可以设定符号的颜色以及其它特性。下面的例子是使新画的圆为红色。

theView = av.GetActiveDoc

theCircle = Circle.Make(0.5@0.5,0.2)

theGraphicCircle = GraphicShape.Make(theCircle)

theGraphicList = theView.GetGraphics

theGraphicList.Add(theGraphicCircle)

theSym = Symbol.Make(#SYMBOL_FILL)

theSym.Setstyle(#RASTERFILL_style_SOLID)

theSym.SetColor(Color.GetRed)

theGraphicCircle.SetSymbol(theSym)

运行结果如下：

Mark、Pen的使用与Fill的用法相似，都是对图形特征的设定，而TextSymbol是用来设置文本的属性特征的。下面这段程序就是使用工具按钮在视图中写―ABC―并设置其颜色为蓝色，字体大小为50。

theView=av.GetActiveDoc

?生成一个新的TextSymbol符号类

theTextSymbol=Symbol.Make(#SYMBOL_TEXT)

?设置字体大小为50

theTextSymbol.SetSize(50)

theView = av.GetActiveDoc

if (theView.GetGraphics.EditText.Not) then

pt = theView.GetDisplay.ReturnUserPoint

?在鼠标点击处产生―ABC―

t = GraphicText.Make("ABC", pt)

?取消所有图层的选折

theView.GetGraphics.UnselectAll

?把当前图层设置为选种状态

t.SetSelected(TRUE)

?设置文本的属性

t.SetSymbol(theTextSymbol)

t.GetSymbol.SetColor(Color.GetBlue)

?把文本添加到视图上

theView.GetGraphics.Add(t)

?刷新视图

theView.Invalidate

end

设置文本属性除了用TextSymbol类外还可以直接用它的父类Symbol，如上例的t.GetSymbol.SetColor(Color.GetBlue)。通过Symbol不仅可以设置文本的颜色，还可以设置文本的字体、字符的大小等。

5文件、表格和字段

1、文件

文件是一个抽象类，它的下级类是LineFile和TextFile。

LineFile按行操作文件，TextFile按字符操作文件。

LineFile.Make (aFileName, aFilePerm)或

TextFile.Make (aFileName, aFilePerm)

打开或产生一个LineFile（TextFile），aFileName 是文件名（包括路径），aFilePerm指示文件允许的操作(Read, Write, Append, etc.)。

theFN = "c:\test1.txt".AsFileName

theFile = LineFile.Make(theFN,#FILE_PERM_WRITE)

theFile.WriteElt("East China Normal University")

theFile.Close

ReadElt这个请求用于使用文件元素。当读到文件尾时，ReadElt返回Nil。

theString = theFile.ReadElt

https://www.360docs.net/doc/8516469173.html,(theString, ―‖)

在文件输入输出时，可以用FileDialog来显示文件和目录的列表。

myFile = FileDialog.Show("*.txt","Text File","Pick File")

产生新文件：

theFileName = "c:\tmp1.txt".AsFileName

theFile = FileDialog.Put(theFileName,"*.txt","")

2、表格

在ArcView中，Table文档是显示表格状数据的用户界面，这些表格状数据包含在VT ab（a virtual table虚拟表）中，VT ab是从磁盘中ArcView所支持的文件（INFO文件、dBASE文件以及分割的文本文件）中获得。

(1)表格的产生与打开

下面的程序是产生一个表格文档并打开。

theFileName = "c:\test.txt".AsFileName

theVTab = VTab.Make(theFileName,false,false)

myT able = T able.Make(theVtab)

myT able.GetWin.Open

在执行这个程序之前要在C盘下建立一个名为―TEST.TXT‖的文件，其内容如下：

Name , Age

张三, 22

李四, 33

（2）BuildQuery对话框

BuildQuery用来显示查询表达式的对话框。用户也可以构建自己的表达式，然后用Vtab中的Query这个请求来执行。

theT able = av.GetActiveDoc

theT able.BuildQuery

(3)记录选择位图(Selection Bitmap)

与Vtab相关的位图（Bitmap）可用于显示Vtab中哪些记录被选中，用户可以利用位图对表格中选中的记录进行操作。位图是称为位的布尔值的一个有序的集合。位的值说明元素（如表格记录）是否被选择。真值表示选中。

通过位图操作，可以返回选中元素数目。

theT able = av.GetActiveDoc

theVTab = theTable.GetVTab

theBitMap = theVT ab.GetSelection

theSize = theBitMap.Count

https://www.360docs.net/doc/8516469173.html,(theSize.AsString,"")

也可以利用Set和Clear对选中记录和取消选中。

theBitMap.Set(aBitNumber)

theBitMap.Clear(aBitNumber)

theBitMap.SelAll

theBitMap.ClearAll

下面的例子显示对所有记录的循环操作和仅对选中记录的循环操作。在调试下面程序之前要先打开―E:\ESRIDATA\USA\ Counties.dbf‖,并选中若干记录。

theT able = av.GetActiveDoc

theVTab = theTable.GetVTab

theField = theVT ab.FindField("Units")

theTotal = 0

for each r in theVTab.GetSelection

theTotal = theTotal + theVTab.Returnvalue(theField,r)

end

https://www.360docs.net/doc/8516469173.html,(theTotal.AsString,"")

如果选择操作是在视图上进行，编写下面的程序，并与一个工具相关联。当利用该工具在视图上选择后，将对选中的记录的某一字段进行统计并显示统计结果。在调试下面程序之前要先打开―E:\ESRIDATA\USA\ Counties.shp‖,并选中若干图形。

theView = av.GetActiveDoc

theTheme = theView.GetThemes.Get(0)

theRect = theView.ReturnUserRect

theTheme.SelectByRect(theRect,#VTAB_SELTYPE_NEW)

theVtab = theTheme.GetFtab

theField = theVT ab.FindField("pop1990")

theTotal = 0

for each r in theVTab.GetSelection

theTotal = theTotal + theVTab.Returnvalue(theField,r)

end

https://www.360docs.net/doc/8516469173.html,(theTotal.AsString,"")

(4)联结和关联表格

要完成表格的联结或关联，两个表格必须有一个公共字段。

toTable = av.FindDoc("states.dbf")

fromTable = av.FindDoc("sales.dbf")

toVt = toTable.GetVTab

fromVt = fromT able.GetVtab

toField = toVt.FindField("state_abbr")

fromField = fromVt.FindField("state")

toVt.Join(toField,fromVt,fromField)

以上是实现两个表格的联结，要实现两个表格的关联，只要把Join改为Link即可。

(5)主题表的操作

通过上面的学习读者对Vtab应该有了一定的了解，主题表（Ftab）是Vtab的子类。因此在外表上Ftab与Vtab 几乎是一样的，而且Vtab的所有请求都可以用于Ftab，唯一不同之处是Ftab多了一个Shape字段。这个Shape 字段包含一个定义图形几何特征的Shape对象，因此Ftab具有强大的空间分析功能。下面这段程序把原主题中的选中图形及其相关属性存放到一个新的主题中。在运行程序前先打开一个主题（如E:\ESRIDATA\CANADA\cities.shp）,并选中若干图形，如图所示：

theView=av.GetActiveDoc

theTheme=theView.GetActiveThemes.Get(0)

theFtab=theTheme.GetFtab

theFields=theFtab.GetFields

theShpField=theFtab.FindField("Shape")

theClass=theFtab.GetShapeClass

def = av.GetProject.MakeFileName("theme", "shp")

def = FileDialog.Put(def, "*.shp", "New Theme")

if (def <> nil) then

theNewFtab = FTab.MakeNew(def, theClass) ‘生成新的Ftab

?下面的if语句判断新建的Ftab是否可用

if (theNewFtab.HasError) then

if (theNewFtab.HasLockError) then

MsgBox.Error("Unable to acquire Write Lock for file " + def.GetBaseName, "")

else

MsgBox.Error("Unable to create " + def.GetBaseName, "")

end

return nil

end

theNewFields={}

for each f in theFields

if (f.AsString="shape") then

continue

end

fld=f.Clone ?复制字段，包括其名称及格式

theNewFields.Add(fld)

end

theNewFtab.AddFields(theNewFields)

if (theNewFT ab.StartEditingWithRecovery) then ?判断Ftab是否可编辑

for each r in theFtab.GetSelection

newRecord=theNewFtab.AddRecord

for each f in theFields

theOldvalue=th eFtab.Returnvalue(f,r) ?返回字段的值

theField=theNewFtab.FindField(f.AsString)

if (theField=nil) then

continue

end

theNewFtab.Setvalue(theField,newRecord,theOldvalue) ?设置字段的值

end end end

theNewFTab.StopEditingWithRecovery(True) ?结束编辑并保存编辑结果

theNewTheme = FTheme.Make(theNewFtab)

theView.AddTheme(theNewTheme)

theNewTheme.SetActive(TRUE)

theNewTheme.SetVisible(TRUE)

av.GetProject.SetModified(true)

end

运行结果如图所示：

3、字段

（1）返回字段

有三种方式返回字段

f1 = theTable.GetActiveField

f2 = theTable.GetVTab.FindField(―ID‖)

f3= theTable.GetVTab.GetFields.Get(0)

可以指定字段别名，返回或设置字段的值。

theT able = av.GetActiveDoc

theField = theT able.GetActiveField

theField.SetAlias("人口")

返回字段值

theT able = av.GetActiveDoc

theVTab = theTable.GetVTab

theField = theT able.GetActiveField

theObject = theVTab.Returnvalue(theField,0)

https://www.360docs.net/doc/8516469173.html,(theObject.AsString,"")

设置字段值

theT able=av.GetActiveDoc

theVtab=theT able.GetVtab

theField=theTable.GetFields.Get(0)

theVtab.Setvalue(theField,0,‖NewYork‖)

theObject = theVTab.Returnvalue(theField,0)

https://www.360docs.net/doc/8516469173.html,(theObject.AsString,"")

（2）产生字段

Make这个字段可用于建立新的字段，这时需要指定字段名、字段类型、字段宽度和精度。新建立的字段将被加入到VT ab中。

Field.Make (aName, aFieldType, aWidth, aPrecision)

首先新建一个空白的Table，下面的例子是产生两个新字段。

theT able = av.GetActiveDoc