ArcView GIS 应用与开发技术（13）－定制ArcView

程序设计要素：对象；类：属性和请求；父类、子类和继承。

Script与控件连接：在ArcView按钮栏双击打开Customize对话框，category类别。

Avenue语句：

1.       对象(基本单位)和请求（该做什么）：Object.Reques。eg.MsgBox.info(“Click on any state”,”state Info”)

2.       变量：

（1）TheProject=Av.GetProject；myView=theProject.FindDoc（“Atlanta”）语句返回一个对象，用赋值语句保存。

(Av应用程序本身；Project工程；Doc文档；Win窗口；MsgBox消息框)

（2）变量名必须以字母或下划线开头，可包含数字；不分大小写；不分数值变量、字符串变量。

（3）串连变量：Object.Request1.Request2.Request3

操作专题：

1.       打开：myView=av.GetProject.FindDoc(“Atlanta”)

         myTheme=myView.FindTheme(“Rail Stops”)

         myTheme.SetVisible(true)

2.       有条件打开/关闭：theTheme=av.GetActiveDoc.FindTheme(“highways”)

                    If(theTheme.IsVisible) then

                         theTheme.SetVisible(false)

                    else

                         theTheme.SetVisible(true)

                    end

3.       从专题列表中选择：选择一个专题先要得到视图的专题列表，用GetThemes实现。

myView=av.GetProject.FindDoc("Altanta")

theThemeList=myView.GetThemes

theThemes=MsgBox.List(theThemeList,"选择一个专题"，"专题选择")

theThemes.SetVisible(true)

MsgBox.List滚动列表、MsgBox.Multilist表单、MsgBox.Choice下拉列表

包含三个参数：选项列表、消息、窗体标题

可以创建自己的列表，对象是字符串、数字或布尔值可使用ListAsString、MuitiAsString和ChoiceAsString。

4.       专题列表循环：for each

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

theThemeList=theView.GetThemes

for each thm in theThemeLst

name=thm.GetName

comments=thm.GetComments

ThemeMsgstring=name+NL+comments

MsgBox.Info(ThemeMsgBox,"Theme Information.")

End