第３期 四川林勘设计 Ｎｏ．３ ２０１１年９月 ＳＩＣＨＵＡＮ ＦＯＲＥＳＴＲＹ ＥＸＰＬＯＲＡＴＩＯＮ ＡＮＤ ＤＥＳＩＧＮ Ｓｅｐ．２０１１ ＡｒｃＧＩＳ软件自动分幅出图的实现 林勇 ，李逢吉 ，李德文 ，焦晋川 （１．四川省林业调查规划院，四川成都６１００８１； ２．攀枝花市林业调查规划院，四川攀枝花６１７０００） 摘要：以ＡｒｃＧＩＳ软件为平台，通过编写ＶＢＡ代码解决了自动分幅出图的问题。经验 证，生成选择图幅号的打印布局按钮的ＶＢＡ代码运行良好，可以精确、流畅地实现自动分 幅出图，有一定的推广价值。 关键词：ＧＩＳ；分幅出图；林业制图 Ｏｎ ｔｈｅ Ａｕｔｏｍａｔｉｃａｌ Ｐｒｉｎｔｉｎｇ ｏｆ ｐｉｃｔｕｒｅｓ Ｔｈｒｏｕｇｈ ＡｒｃＧＩＳ Ｌｉｎ ｙｏｕｎｇ ，Ｌｉ Ｆｅｎｇ—ｊｉ ，Ｌｉ Ｄｅ—ｗｅｎ ，Ｊｉａｏ Ｊｉｎ—ｃｈｕａｎ （１．Ｓｉｃｈｕａｎ Ｆｏｒｅｓｔｒｙ Ｓｕｒｖｅｙ ａｎｄ Ｐｌａｎｎｉｎｇ Ｉｎｓｔｉｔｕｔｅ，Ｃｈｅｎｇｄｕ Ｓｉｅｕａｎ ６１００８１，Ｃｈｉｎａ； ２．Ｐａｎｚｈｉｈｕａ Ｆｏｒｅｓｔ Ｉｎｖｅｎｔｏｒｙ ｎａｄ Ｐｌａｎ Ｉｎｓｔｉｔｕｔｅ；Ｐａｎｚｈｌｈｕａ Ｓｉｅｕａｎ ６１７０００；Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｂａｓｅｄ ｏｎ ＶＢＡ，ｔｈｅ ｏｕｔｐｕｔ ｍｅｔｈｏｄｓ ｆｏｒ ａｕｔｏｍａｔｉｃ ｐｌａｎｅ ｄｒａｗｉｎｇｓ ｏｆ ｆｏｒ－ ｅｓｔｒｙ ｈａｄ ｂｅｅｎ ｐｒｅｓｅｎｔｅｄ ｉｎ ＡｒｃＧＩＳ．Ｂｙ ｔｈｅ ｍｅｔｈｏｄｓ，ｔｈｅ ｐｌａｎｅ ｄｒａｗｉｎｇｓ ｍｅｅｔｉｎｇ ｗｉｔｈ ｄｅｍａｎｄｓ ａｒｅ ｏｕｔｐｕｔ ｅａｓｉｌｙ ｂｙ ｐｒｉｎｔｅｒ ｏｒ ｐｌｏｔｔｅｒ． Ｋｅｙｗｏｒｄｓ：ＧＩＳ，Ｐｌａｎｅ ｄｒａｗｉｎｇｓ，Ｆｏｒｅｓｔｒｙ ｍａｐｐｉｎｇ 在根据行政单位出图时，每个图层显示都可 １．２分幅对象 以是、完整的，这种方法对各种ＧＩＳ软件都是 通过属性数据库建立、空间数据库建立、数据 较易实现的。但在按基本比例尺地形图分幅标准 联接以及成果图设计，完成四川省元坝区森林分 进行分幅绘制时，很多图层往往是分成了几部分 类区划图。 显示在各张图上，如果不能实现自动分幅出图则 ２工作步骤 会给绘图工作带来很多麻烦。笔者以ＡｒｃＧＩＳ软 ２．１ 自动分幅数据的建立 件为平台，通过编写ＶＢＡ代码解决了这一问题。 ２．１．１分幅控制点数据的生成 １研究材料 为了分幅面数据生成得精确，分幅控制点按 １．１ ＡｒｅＧＩＳ软件简介 基本比例尺（１：１万）地形图分幅标准进行生成。 ＡｒｃＧＩＳ是美国环境系统研究所（Ｅｎｖｉｒｏｎｍｅｎ— 分幅控制点的生成顺序为：先在Ｅｘｅｃｌ中录入元 ｔａｌ Ｓｙｓｔｅｍ Ｒｅｓｅａｒｃｈ Ｉｎｓｔｉｔｕｔｅ，ＥＳＲＩ）开发的新一代 坝区涉及方形区域地形图最左下角和最右上角经 软件，是世界上应用广泛的ＧＩＳ软件之一，是一个 纬度的值，录入比例尺，由设计好的Ｅｘｃｅｌ文件自 全面、完善、可伸缩的ＧＩＳ软件平台。无论单用 动生成需要的控制点坐标数值（Ｌ、Ｂ）（见图１）， 户，还是多用户；无论是在桌面端，还是服务端、互 然后复制坐标数值生成一个Ｅｘｃｅｌ的坐标信息文 联网还是野外操作，都可以通过ＡｒｃＧＩＳ构建地理 件，最后在ＡｒｃＭａｐ中的Ｔｏｏｌｓ（工具栏）菜单下 信息系统。 打开Ａｄｄ ＸＹ Ｄａｔａ模块（见图２）生成分幅控制点 ・收稿日期：２０１Ｉ一０７—１２ ｌ￣ｌＪ｛ｌ林勘设计２ｏｉ１年第３期 图４联接数据示意图 与打印两个命令按钮，两个命令按钮含ＶＢＡ代 码。窗体内容见图５。 图５分幅打印窗体图 ２．４代码编写 通过ＶＢＡ代码的编写，单击生成选择图幅号 的打印布局按钮，可生成选择图幅号的成果图；单 击打印按钮，根据需要，可把元坝区全部范围内的 分幅图自动转成ＪＰＧ保存或直接打印。生成选 择图幅号的打印布局按钮的ＶＢＡ代码含有８个 子过程。代码具体内容及步骤如下： Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ—Ｃｌｉｃｋ（） ＳｅｔｄａｔａｆｒａｍｅｓＡｃｔｉｖｅｄｆｏｃｕｓ矢量激活矢量数据 框架 ＲｅｍｏｖｅＬａｙｅｒＦ去除底图 Ａｄｄｌｍａｇｅ添加底图 ｍｏｖｅｌａｙｅｒｄｏｗｎ把底图移到最底层 ｓｅｌｅｅｔｏｆｔａｂｌｅ选择图幅号的记录 打印指定区域１万比例尺矢量设置打印区 域及比例尺 ＳｅｔｄａｔａｆｒａｍｅｓＡｅｔｉｖｅｄｆｏｅｕｓ分幅图激活分幅图 数据框架 ｄｄ更新分幅色标 Ｅｎｄ Ｓｕｂ 打印按钮的ＶＢＡ代码除含有生成选择图幅 号的打印布局按钮的ＶＢＡ代码含有８个子过程 外，还增加了１个输出图片的子过程，另外还有还 增加了循环功能代码及打印代码，见以下代码： Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＰｒｉｎｔ＿Ｃｌｉｅｋ（） Ｄｉｍ ｉ Ａｓ Ｌｏｎｇ Ｆｏｒ ｉ＝ｌ Ｔ０ ８３ ＴｅｘｔＴｕｈａｏ．ｔｅｘｔ＝ｉ ＳｅｔｄａｔａｆｒａｍｅｓＡｃｔｉｖｅｄｆｏｅｕｓ矢量激活矢量数据 框架 ＲｅｍｏｖｅＬａｙｅｒＦ去除底图 Ａｄｄｌｍａｇｅ添加底图 ｍｏｖｅｌａｙｅｒｄｏｗｎ把底图移到最底层 ｓｅｌｅｃｔｏｆｔａｂｌｅ选择图幅号的记录 打印指定区域１万比例尺矢量设置打印区 域及比例尺 ＳｅｔｄａｔａｆｒａｍｅｓＡｅｔｉｖｅｄｆｏｅｕｓ分幅图徼活分幅图 数据框架 ｄｄ更新分幅色标 ＥｘｐｏｒｔＡｃｔｉｖｅＶｉｅｗ输出图片 ＂Ａｐｐｌｉｃａｔｉｏｎ．ＰｒｉｎｔＤｏｃｕｍｅｎｔ订印，根据要求， 与输出图片可只选择一样 Ｎｅｘｔ ｉ Ｅｎｄ Ｓｕｂ ９个子过程代码详见下： （１）激活矢量数据框架代码 Ｓｕｂ ＳｅｔｄａｔａｆｒａｍｅｓＡｃｔｉｖｅｄｆｏｅｕｓ矢量（） Ｄｉｍ ｓｔｒＮａｍｅ Ａｓ Ｓｔｒｉｎｇ 林勇等：ＡｒｃＧＩＳ软件自动分幅出图的实现 ８５ ｓｔｒＮａｍｅ＝”矢量” Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ ｔｕｈａｏ＝ＴｅｘｔＴｕｈａｏ．ｔｅｘｔ ｎａｍｅｉｍｇｌ＝”Ｅ：＼元坝分类经营＼地形图、地 形图配准” ｎａｍｅｉｍｇ２＝”．ｉｍｇ。’ ｎａｍｅｉｍｇ ｎａｍｅｉｍｇｌ＋ｔｕｈａｏ＋ｎａｍｅｉｍｇ２ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｓｅｔ ｐＭａｐ＝ＧｅｔＭａｐ（ｓｔｒＮａｍｅ） Ｉｆ Ｎｏｔ ｐＭａｐ Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ Ｉｆ ｐＭｘＤｏｅ．ＡｃｔｉｖｅＶｉｅｗ Ｉｓ ｐＭｘＤｏｃ．ＰａｇｅＬａｙｏｕｔ ｐＲａｓｔｅｒＬａｙｅｒ．ＣｒｅａｔｅＦｒｏｍＦｉｌｅＰａｔｈ ｎａｍｅｉｍｇ Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｔｈｅｎ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．ＦｏｃｕｓＭａｐ ＝ｐＭａｐ Ｅｌｓｅ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ＝ｐＭａｐ Ｅｎｄ Ｉｆ Ｅｌｓｅ Ｄｅｂｕｇ．Ｐｒｉｎｔ”ｍａｐ ｎｏｔ ｆ０ｕｎｄ：”＆ｓｔｒＮａｍｅ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ （２）去除底图代码 Ｓｕｂ ＲｅｍｏｖｅＬａｙｅｒＦ（） Ｄｉｍ ｐＭｘＤｏｃｕｍｅｎｔ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｄｉｍ ｐＡｃｔｉｖｅＶｉｅｗ Ａｓ ＩＡｃｔｉｖｅＶｉｅｗ Ｄｉｍ ｐＬａｙｅｒ Ａｓ ＩＬａｙｅｒ Ｓｅｔ ｐＭｘＤｏｃｕｍｅｎｔ＝Ａｐｐｌｉｃａｔｉｏｎ．Ｄｏｃｕｍｅｎｔ Ｓｅｔ ｐＭａｐ ｐＭｘＤｏｃｕｍｅｎｔ．ＦｏｃｕｓＭａｐ Ｓｅｔ ｐＬａｙｅｒ＝ｐＭａｐ．Ｌａｙｅｒ（８１ Ｉｆ Ｎｏｔ ｐＬａｙｅｒ Ｉｓ Ｎｏｔｈｉｎｇ Ｉ＇ｈｅｎ ｐＭａｐ．ＤｅｌｅｔｅＬａｙｅｒ ｐＬａｙｅｒ Ｅｎｄ Ｉｆ Ｓｅｔ ｐＡｃｔｉｖｅＶｉｅｗ＝ｐＭａｐ ｐＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ Ｅｎｄ Ｓｕｂ （３）添加底图代码 Ｓｕｂ Ａｄｄｌｍａｇｅ（） Ｄｉｍ ｐＲａｓｔｅｒＬａｙｅｒ Ａｓ ＩＲａｓｔｅｒＬａｙｅｒ Ｓｅｔ ｐＲａｓｔｅｒＬａｙｅｒ＝Ｎｅｗ ＲａｓｔｅｒＬａｙｅｒ Ｄｉｍ ｔｕｈａｏ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｎａｍｅｉｍｇ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｎａｍｅｉｍｇｌ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｎａｍｅｉｍｇ２ Ａｓ Ｓｔｒｉｎｇ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ ｐＭｘＤｏｃ．ＦｏｃｕｓＭａｐ．ＡｄｄＬａｙｅｒ ｐＲａｓｔｅｒＬａｙｅｒ ｐＭｘＤｏｃ．ＣｕｒｒｅｎｔＣｏｎｔｅｎｔｓＶｉｅｗ．Ｒｅｆｒｅｓｈ ｐＲａｓ． ｔｅｒＬａｙｅｒ Ｅｎｄ Ｓｕｂ （４）把底图移到最底层代码 Ｓｕｂ ｍｏｖｅｌａｙｅｒｄｏｗｎ（） Ｄｉｍ ｐＭｘＤｏｃｕｍｅｎｔ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｄｉｍ ｐＬａｙｅｒ Ａｓ ＩＬａｙｅｒ Ｓｅｔ ｐＭｘＤｏｃｕｍｅｎｔ＝Ａｐｐｌｉｃａｔｉｏｎ．Ｄｏｃｕｍｅｎｔ Ｓｅｔ ｐＭａｐ ｐＭｘＤｏｃｕｍｅｎｔ．ＦｏｃｕｓＭａｐ Ｓｅｔ ｐＬａｙｅｒ＝ｐＭｘＤｏｃｕｍｅｎｔ．ＳｅｌｅｅｔｅｄＬａｙｅｒ Ｓｅｔ ｐＬａｙｅｒ＝ｐＭａｐ．Ｌａｙｅｒ（ＬａｙｅｒＣｏｕｎｔ） ｐＭａｐ．ＭｏｖｅＬａｙｅｒ ｐＬａｙｅｒ，ｐＭａｐ．ＬａｙｅｒＣｏｕｎｔ —ｌ ｐＭｘＤｏｃｕｍｅｎｔ．ＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ ｐＭｘＤｏｃｕｍｅｎｔ．ＵｐｄａｔｅＣｏｎｔｅｎｔｓ Ｅｎｄ Ｓｕｂ （５）选择图幅号的记录代码 Ｓｕｂ ｓｅｌｅｃｔｏｆｔａｂｌｅ（） Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＭｘＤｏｅ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｄｉｍ ｔｕｈａｏ Ａｓ Ｓｔｒｉｎｇ ｔｕｈａｏ＝ＴｅｘｔＴｕｈａｏ．ｔｅｘｔ Ｓｅｔ ｐＭａｐ ｐＭｘＤｏｃ．ＦｏｃｕｓＭａｐ Ｄｉｍ ＰＦＬａｙｅｒ Ａｓ ＩＦｅａｔｕｒｅＬａｙｅｒ Ｓｅｔ ＰＦＬａｙｅｒ＝ｐＭａｐ．Ｌａｙｅｒ（１） Ｄｉｍ ｐＱＦｉｌｔｅｒ Ａｓ ＩＱｕｅｒｙＦｉｌｔｅｒ Ｓｅｔ ｐＱＦｉｈｅｒ＝Ｎｅｗ ＱｕｅｒｙＦｉｌｔｅｒ ｐＱＦｉｌｔｅｒ．ＳｕｂＦｉｅｌｄｓ＝”Ｎａｍｅ” ８６ 四川林勘设计２０１１年第３期 Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＥｎｕｍＦｅａｔ Ａｓ ＩＥｎｕｍＦｅａｔｕｒｅ Ｓｅｔ ｐＥｎｕｍＦｅａｔ ｐＭｘＤｏｅ．ＦｏｃｕｓＭａｐ．Ｆｅａｔｕｒ－ ｐＱＦｉｌｔｅｒ．ＷｈｅｒｅＣｌａｕｓｅ＝”ＮＡＭＥ＝ ’＋ｔｕ— ｈａｏ Ｊ－” ’ Ｄｉｍ ｐＦＳｅｌ Ａｓ ＩＦｅａｔｕｒｅＳｅｌｅｃｔｉｏｎ Ｓｅｔ ｐＦＳｅｌ＝ＰＦＬａｙｅｒ ｅＳｅｌｅｃｔｉｏｎ Ｄｉｍ ｐＧｅｏｍ Ａｓ／Ｇｅｏｍｅｔｒｙ ｐＦＳｅ１．ＳｅｌｅｅｔＦｅａｔｕｒｅｓ ｐＱＦｉｌｔｅｒ，ｅｓｒｉＳｅｌｅｃｔｉｏｎ— ＲｅｓｕｈＮｅｗ，Ｔｒｕｅ Ｄｉｍ ｐＡｃｔｉｖｅＶｉｅｗ Ａｓ ＩＡｃｔｉｖｅＶｉｅｗ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．ＰａｒｔｉａｌＲｅｆｒｅｓｈ ｅｓｒｉＶｉｅｗ— ＧｅｏＳｅｌｅｃｔｉｏｎ，Ｎｏｔｈｉｎｇ，Ｎｏｔｈｉｎｇ Ｅｎｄ Ｓｕｂ （６）设置打印区域及比例尺 Ｓｕｂ打印指定区域１万比例尺矢量（） Ｃｌｉｐ２ｓｅｌｅｃｔｅｄＳｈａｐｅｓ ０似缓冲区０设置打印 区域 Ｄｉｍ ｉｎｔＡｎｓ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｐＩｔｅｍ Ａｓ ＩＣｏｍｍａｎｄＩｔｅｍ Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＡｃｔｉｖｅＶｉｅｗ Ａｓ ＩＡｃｔｉｖｅＶｉｅｗ Ｓｅｔ ｐＡｃｔｉｖｅＶｉｅｗ ｐＭｘＤｏｃ．ＦｏｃｕｓＭａｐ Ｄｉｍ ｐＧＣ Ａｓ ＩＧｒａｐｈｉｃｓＣｏｎｔａｉｎｅｒ Ｓｅｔ ｐＧＣ ｐＭｘＤｏｃ．ＰａｇｅＬａｙｏｕｔ Ｄｉｍ ｐＭａｐＦｒａｍｅ Ａｓ ＩＭａｐＦｒａｍｅ Ｓｅｔ ｐＭａｐＦｒａｍｅ ｐＧＣ．ＦｉｎｄＦｒａｍｅ（ｐＭｘＤｏｃ． ＦｏｃｕｓＭａｐ） ｐＭａｐＦｒａｍｅ．ＥｘｔｅｎｔＴｙｐｅ＝ｅｓｒｉＥｘｔｅｎｔＤｅｆａｕｌｔ Ｗｉｔｈ ＴｈｉｓＤｏｃｕｍｅｎｔ．ＣｏｍｍａｎｄＢａｒｓ Ｓｅｔ ｐＩｔｅｍ＝．Ｆｉｎｄ（Ｑｕｅｒｙ＿ＺｏｏｍＴｏＳｅｌｅｃｔｅｄ） ｐｌｔｅｍ．Ｅｘｅｃｕｔｅ Ｅｎｄ Ｗｉｔｈ ｐＭａｐＦｒａｍｅ．ＥｘｔｅｎｔＴｙｐｅ＝ｅｓｒｉＥｘｔｅｎｔＳｃａｌｅ ｐＭａｐＦｒａｍｅ．ＭａｐＳｃａｌｅ＝１００００ ｐＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ Ｅｎｄ Ｓｕｂ 以缓冲区０设置打印区域二级子过程代码 Ｓｕｂ Ｃｌｉｐ２ＳｅｌｅｃｔｅｄＳｈａｐｅｓ（ｄＢｕｆｆＤｉｓｔ Ａｓ Ｄｏｕｂ— ｌｅ Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＧｅｏｍ＝Ｎｅｗ Ｐｏｌｙｇｏｎ Ｓｅｔ ｐＧｅｏｍ．ＳｐａｔｉａｌＲｅｆｅｒｅｎｃｅ ｐＭｘＤｏｃ．Ｆｏ— ｃｕｓＭａｐ．ＳｐａｔｉａｌＲｅｆｅｒｅｎｃｅ Ｄｉｍ ｐＴｏｐｏＯｐ Ａｓ ＩＴｏｐｏｌｏｇｉｃａｌＯｐｅｒａｔｏｒ Ｓｅｔ ｐＴｏｐｏＯｐ＝ｐＧｅｏｍ Ｄｉｍ ｐＦｅａｔ Ａｓ ＩＦｅａｔｕｒｅ Ｓｅｔ ｐＦｅａｔ＝ｐＥｎｕｍＦｅａｔ．Ｎｅｘｔ Ｄｏ Ｕｎｔｉｌ ｐＦｅａｔ Ｉｓ Ｎｏｔｈｉｎｇ Ｓｅｔ ｐＧｅｏｍ＝ｐＦｅａｔ．ＳｈａｐｅＣｏｐｙ ｐＧｅｏｍ．Ｐｒｏｊｅｃｔ ｐＭｘＤｏｃ．ＦｏｃｕｓＭａｐ．ＳｐａｔｉａｌＲｅｆ－ ｅｒｅｎＣｅ Ｓｅｔ ｐＴｏｐｏＯｐ＝ｐＴｏｐｏＯｐ．Ｕｎｉｏｎ（Ｂｕｆｆｅｒ （ｐＧｅｏｍ，ｄＢｕｆｆＤｉｓｔ）） Ｓｅｔ ｐＦｅａｔ ｐＥｎｕｍＦｅａｔ．Ｎｅｘｔ Ｌｏｏｐ ｐＭｘＤｏｅ．ＦｏｃｕｓＭａｐ．ＣｌｉｐＧｅｏｍｅｔｒｙ ｐＴｏｐｏＯｐ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ Ｅｎｄ Ｓｕｂ 激活矢量数据框架代码 Ｓｕｂ ＳｅｔｄａｔａｆｒａｍｅｓＡｃｔｉｖｅｄｆｏｃｕｓ矢量（） Ｄｉｍ ｓｔｒＮａｍｅ Ａｓ Ｓｔｉｒｎｇ ｓｔｒＮａｍｅ＝”矢量” Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｓｅｔ ｐＭａｐ＝ＧｅｔＭａｐ（ｓｔｒＮａｍｅ） ＩｆＮｏｔ ｐＭａｐ Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ Ｉｆ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ Ｉｓ ｐＭｘＤｏｅ．ＰａｇｅＬａｙｏｕｔ Ｔｈｅｎ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．ＦｏｃｕｓＭａｐ ｐＭａｐ Ｅｌｓｅ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ ｐＭａｐ ＥｎｄⅡ Ｅｌｓｅ 林勇等：ＡｒｅＧＩＳ软件自动分幅出图的实现 ８７ Ｄｅｂｕｇ．Ｐｒｉｎｔ”ｍａｐ ｎｏｔ ｆ０ｕｎｄ：”＆ｓｔｒＮａｍｅ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ （７）激活分幅图数据框架代码 Ｓｕｂ ＳｅｔｄａｔａｆｒａｍｅｓＡｃｔｉｖｅｄｆｏｃｕｓ分幅图（） Ｄｉｍ ｓｔｒＮａｍｅ Ａｓ Ｓｔｒｉｎｇ ｓｔｒＮａｍｅ＝”分幅图” Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ Ｄｉｍ ｐＭａｐ Ａｓ ＩＭａｐ Ｓｅｔ ｐＭａｐ＝ＧｅｔＭａｐ（ｓｔｒＮａｍｅ） Ｉｆ Ｎｏｔ ｐＭａｐ Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ Ｉｆ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ Ｉｓ ｐＭｘＤｏｃ．ＰａｇｅＬａｙｏｕｔ Ｔｈｅｎ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．ＦｏｃｕｓＭａｐ＝ｐＭａｐ Ｅｌｓｅ Ｓｅｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ＝ｐＭａｐ Ｅｎｄ Ｉｆ Ｅｌｓｅ Ｄｅｂｕｇ．Ｐｒｉｎｔ”ｍａｐ ｎｏｔ ｆ０ｕｎｄ：”＆ｓｔｒＮａｍｅ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ （８）更新分幅色标代码 Ｓｕｂ ｄｄ（） Ｄｉｍ ｐＷＳＦ Ａｓ ＩＷｏｒｋｓｐａｃｅＦａｅｔｏｒｙ Ｓｅｔ ｐＷＳＦ＝Ｎｅｗ ＡｅｅｅｓｓＷｏｒｋｓｐａｅｅＦａｅｔｏｒｙ Ｄｉｍ ｐＷｏｒｋｓｐａｃｅ Ａｓ ＩＷｏｒｋｓｐａｃｅ Ｄｉｍ ｔｕｈａｏ Ａｓ Ｓｔｒｉｎｇ ｔｕｈａｏ＝ＴｅｘｔＴｕｈａｏ．ｔｅｘｔ Ｓｅｔ ｐＷｏｒｋｓｐａｃｅ＝ｐＷＳＦ．ＯｐｅｎＦｒｏｍＦｉｌｅ（”Ｅ： ＼元坝分类经营： ｓｈｐ正式＼更新图幅表．ｍｄｂ”， ０） ｐＷｏｒｋｓｐａｃｅ．ＥｘｅｃｕｔｅＳＱＬ”ＵＰＤＡＴＥ分幅表 ＳＥＴ色标＝１ ＷＨＥＲＥ Ｎａｍｅ＝”十ｔｕｈａｏ十” ２¨ ｐＷｏｒｋｓｐａｃｅ．ＥｘｅｃｕｔｅＳＱＬ”ＵＰＤＡＴＥ分幅表 ＳＥＴ色标＝０ ＷＨＥＲＥ Ｎａｍｅ＜＞ ＋ｔｕｈａｏ＋ ” ２劓 Ｄｉｍ ｐＭｘＤｏｃ Ａｓ ＩＭｘＤｏｃｕｍｅｎｔ Ｓｅｔ ｐＭｘＤｏｃ＝ＴｈｉｓＤｏｃｕｍｅｎｔ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ．Ｒｅｆｒｅｓｈ Ｅｎｄ Ｓｕｂ （９）输出图片代码 Ｓｕｂ ＥｘｐｏａＡｃｔｉｖｅＶｉｅｗ（） Ｄｉｍ ＳｔｒＦｉｌｅＮａｍｅ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｐＭｘＤｏｅ Ａｓ ＩＭｘＤｏｅｕｍｅｎｔ Ｄｉｍ ｐＡｃｔｉｖｅＶｉｅｗ Ａｓ ＩＡｃｔｉｖｅＶｉｅｗ Ｄｉｍ ｐＥｘｐｏｒｔ Ａｓ ＩＥｘｐｏ￣ Ｄｉｍ ｐＥｘｐｏｎＪＰＥＧ Ａｓ ＩＥｘｐｏｒｔＪＰＥＧ Ｄｉｍ ｐＰｉｘｅｌＢ０ｕｎｄｓＥｎＶ Ａｓ ＩＥｎｖｅｌｏｐｅ Ｄｉｍ ｅｘｐｏｒｔＲＥＣＴ Ａｓ ｔａｇＲＥＣＴ Ｄｉｍ ｉＯｕｔｐｕｔＲｅｓｏｌｕｔｉ０ｎ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｉＳｃｒｅｅｎＲｅｓｏｌｕｔｉｏｎ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｈＤＣ Ａｓ Ｌｏｎｇ Ｄｉｍ ｔｕｈａｏ Ａｓ Ｓｔｒｉｎｇ ｔｕｈａｏ＝ＴｅｘｔＴｕｈａｏ．ｔｅｘｔ Ｓｅｔ ｐＭｘＤｏｃ＝Ａｐｐｌｉｃａｔｉｏｎ．Ｄｏｃｕｍｅｎｔ Ｓｅｔ ｐＡｃｔｉｖｅＶｉｅｗ ｐＭｘＤｏｃ．ＡｃｔｉｖｅＶｉｅｗ Ｓｅｔ ｐＥｘｐｏｒｔ＝Ｎｅｗ ＥｘｐｏｒｔＪＰＥＧ ＳｔｒＦｉｌｅＮａｍｅ＝”Ｆ： ｊＰｇ＼生态区位图”＋ ｔｕｈａｏ＋”．ｊｐｇ” ｐＥｘｐｏｒｔ．ＥｘｐｏｒｔＦｉｌｅＮａｍｅ＝ＳｔｒＦｉｌｅＮａｍｅ ｉＳｅｒｅｅｎＲｅｓｏｌｕｔｉｏｎ＝９６ ｉＯｕｔｐｕｔＲｅｓｏｌｕｔｉｏｎ＝４００ ｐＥｘｐｏｒｔ．Ｒｅｓｏｌｕｔｉｏｎ ＝ｉＯｕｔｐｕｔＲｅｓ０ｌｕｔｉｏｎ Ｓｅｔ ｐＥｘｐｏｒｔＪＰＥＧ ｐＥｘｐｏｒｔ ｐＥｘｐｏｒｔＪＰＥＧ．Ｑｕａｌｉｔｙ＝８０ Ｗｉｔｈ ｅｘｐｏｒｔＲＥＣＴ ．Ｌｅｆｔ＝０ ．Ｔｏｐ：０ ．Ｒｉｇｈｔ＝ｐＡｅｔｉｖｅＶｉｅｗ．ＥｘｐｏｒｔＦｒａｍｅ．Ｒｉ ｇｈｔ （ｉ０ｕｔｐｕｔＲｅｓｏｌｕｔｉｏｎ／ｉＳｃｒｅｅｎＲｅｓｏｌｕｔｉｏｎ） ．ｂｏｔｔｏｍ＝ｐＡｃｔｉｖｅＶｉｅｗ．ＥｘｐｏｒｔＦｒａｍｅ．ｂｏｔｔｏｍ 术 （ｉＯｕｔｐｕｔＲｅｓｏｌｕｔｉｏｎ／ｉＳｃｒｅｅｎＲｅｓｏｌｕｔｉｏｎ） Ｅｎｄ Ｗｉｔｈ Ｓｅｔ ｐＰｉｘｅ１ＢｏｕｎｄｓＥｎＶ ：Ｎｅｗ Ｅｎｖｅｌｏｐｅ ｐＰｉｘｅｌＢｏｕｎｄｓＥｎｖ．ＰｕｔＣｏｏｒｄｓ ｅｘｐｏｒｔＲＥＣＴ．Ｌｅｆｔ， ｅｘｐｏｒｔＲＥＣＴ．Ｔｏｐ， ｅｘｐｏｒｔＲＥＣＴ．Ｒｉｇｈｔ， ｅｘｐｏｒ— ８８ 四川林勘设计２０１１年第３期 ｔＲＥＣＴ．ｂｏｔｔｏｍ ３运行结果 ｐＥｘｐｏｒｔ．ＰｉｘｅｌＢｏｕｎｄｓ ＝ ｐＰｉｘｅｌＢ０ｕｎｄｓＥｎＶ 运行结果表明，生成选择图幅号的打印布局 ｈＤＣ＝ｐＥｘｐｏｒｔ．ＳｔａｒｔＥｘｐｏｒｔｉｎｇ 按钮的ＶＢＡ代码运行良好，可以精确、流畅地实 ｐＡｃｔｉｖｅＶｉｅｗ．Ｏｕｔｐｕｔ ｈＤＣ，ｐＥｘｐｏｒｔ．Ｒｅｓｏｌｕ— 现自动分幅出图。出图成果图图符清晰，图面美 ｔｉｏｎ，ｅｘｐｏｒｔＲＥＣＴ，Ｎｏｔｈｉｎｇ，Ｎｏｔｈｉｎｇ 观，数据精确，能准确地表达区划结果的各项数据 ｐＥｘｐｏｒｔ．ＦｉｎｉｓｈＥｘｐｏｒｔｉｎｇ 指标。该方法有一定的推广价值。 ｐＥｘｐｏｒｔ．Ｃｌｅａｎｕｐ 设计好的成果图表目录及成图见图６。 Ｅｎｄ ＳＵｂ ５ ０ １５ ２０ Ｍ ００ ， ∞ Ｅ々０ ６ ｌ∞ ｅ５ ｌ７０ １７５ …… 口…省ｒ元市元 Ｅ 盐林 班 目 图６成果图表目录及成图示意图 ４参考文献 ２４（５）：１ｌ～１５． １林岚岚，张冰．地理信息系统在林业制图中的应 ３王国荣，赖长鸿，谢云，等．基于ＡｒｃＧＩＳ在森林分 用［Ｊ］．林业勘查设计，２００６，（３）：８０～８１． 类区划中的制图探索［Ｊ］．四川１林业科技，２００９， ２曾思齐，肖化顺，石军南．地理信息系统支持下的 ３０（４）：７８—８１． 森林分类区划界定［Ｊ］．中南林学院学报，２００４，
