利用VBA编程实现地形图的自动分幅

垫Sci en e acn dT ec n ol oh g yl n nov t a oni H e al d r

:Q

学术论坛

利用V AB编程实现地形图的自动分贺幅伟秋 (中国电水顾问集中南团测勘设计研院究湖南长沙

4 100 14 )

摘要：目前大部分地形图是都用采Au t o A Dc的格式存储，在数据入库和使用时需要均将形图按地标准进照行分幅目前也，有分软部支件持 自动对地图形幅，但分是存圈框不在能自定义者定义或文件杂复圈整饰不廓合符范规，进行地图形裁时对象丢切等问题，失文该出提了利V用B A进行蝙实程现了 形地图布以局的方式自动分，幅较好解决了的以上题问。

键关： VB A地词形图动自幅中分分图号类 T: P3

局布文献标码识： A文章号： 1 6编 74— 098 (X 20 41) O 1( )b一0 24 2一O 1

随着计算机技术的展发，目大前部分地形图均 现实了数字化生成和存储， 但是在 业用外图和数据归档时是还需要对地形图进分行，目幅部前分 商用软件也实现了动自对地形图分幅功能，的但是存在图框文件不能自定义者或定文义件复、杂廓图整饰不合符范、规行进分幅剪裁对时丢象失等现象， 为解决这些问题，本文出提了采用V A编B程对 A t uCAD进o行二次开发，将地 图分形幅到布局的思路克服上缺以点实现对地，形图自的动分幅 。t e X t O b J. A li g mn e n t 表格的式方存储幅信分息，表在一中存储 lA inm gne toTpe f Lt图廓整饰容，内作业员按要求照将内输容入a进去c可，即在表 二存中图幅储邻接关 ,系作t ex t b jO. T xe tA1i gm e nntP o n i tsne rt io Pnoin t业员只要在表格中按照地形图的排列关系 i将图输名入表格即可 (需不输每幅入的西图 整饰廓内 容序直程接读取对应的 角南标，坐程可序以自推算动 )。面前提 到E X e 1C分幅信息文件中的表一 图，名结、 V合B是A从Mc ro o sft f f oi ec中生派来的，出 表信息等则可通

以过二表中的形图邻接关

因此利用VBA读取E x ce l格式 数的据的编系推算得到 。难度程也大降大。低 4)新建口视 Set E we po rtV= T i s Drha w ngi.

地形 3分图幅至局A u布t o AC文件D分为模 型空和间纸空图间， 个一A u t Co A文 D只件有能一个模 型空间但是，可以拥有图纸空间中多的个布局 ,将地形图分幅至局布，分即幅后的幅每图为图纸间空中的一个布局。编在实现时程，将图廓等内容直接绘制 图在纸空间，和模型空互不干间扰，而地形的内图在在容该图纸空间建一创个视口，过通义定视口的心中位置和大小等方 法实现来该幅 形地图从模型空到图纸空间间的射映与将地形图分幅裁切成单文个件 相比将形图地分幅 到局布有下以优点： 1 )全部地图存形储在一个 Au t o CA文 D里面件，便于理管，并且分幅的后每 地幅形至图是模型 空的映间射 减，了文小的件大小，利于更存和传送储；2 )地图形如果更新后，需只修 改模型间空的内，容布局会动自更新需不要新分重幅接和；边 3)免避对了 形图地裁切时对象丢失的情况发生； 4 )不同 地幅形的中图各的对种并象没有因为分幅 被真正而裁切，方便更其他专业利用子电版的地形图进行三维模建、面断切剖等应用 5;)所有形图位地于一个文件，中并且打印设 一置致，在地形图打印时更方批打印便。 地形图自动幅分布局关至实键现代码

a PP r S Pe C e. AdadVP eiw POr t ( c e n et,r

5 00, 5 00)

1开发工具的选择目前uAt 0AD最C主流的开发方式 是 A u t Lois p O、 b j ec ARt和XV BA种三式方 ,他们有各优缺点。 )1 uAt oL I SP是一种表处语言理， 被是解释行的，任执何 个一句语键入后就能马上执行，对交于互式的程序开发 非方常便 。缺其点是继了承 LIS P 言语的编程规则而导致多的繁括号。 2 ) Ob j e c t RA以X C++为 程语言编，采用先进的面对向象的编程原，理提供

可与A u t 0CA直接D互交开的发环境， 使能用户方便快捷地开发出高效简洁的 A u tO AC应D用程序，但是对编程槛门较高，需要比较熟练的握掌 C++向面象对的程方法编。3 )VB A Mc即 ro s fo t of f i e c中的 V siu a l B a si c f ro A p l p cia t io n s,被集成到A t uo ACD。中V B为A发开者提供了一种的选新择，也为用户访问uA o t CD A中丰富技术的框 打架开一条新通道的。 VB A和Au t o AD中 c大的Ac强 t i ve X动自化对象 型的模结，合代表了一种新型的定制A t u CAD的o模 式构架通。过BA,V我们可以操 A作t uCAoD,控制 A tc i e Xv其它一和些应程序用，使之相互之间发生互易活动 。同 V时AB以 V是B为基 础语言，大大降了低如下： 开发的难度。因本此次选用 V AB作为主要 )1建布局新： Se t nwe aLyetu= T ih Dsra w ing. 开手发段 Au对to CA进D行二次开发。 L ay ou t s Ad.d (“图名” ) )在2布局中插入框图，由于图框基的本 地形图2分信息幅文件定的义因此编程时在将标准图框要进行 形地图分幅首先要定义地形图 内容是一直的， A文件D作为一个 块直接扎入布局即。可分幅信息文，件以让程便按照分序幅信息 的C 要求行进动分自幅，分 信息幅件文要主包含两个方面的内容。一

c e n te r为视中心口位置 , 5 00,5 00分 别为视口的度宽和高度，在进行地图分形幅时默认进行 05 X 5 0 分，幅因此在这里设置为5 0 0, 5 00。 n e wpVrot. Di s pl ay T rueTihs r Da i nwg. SpMce a T= ru eZoo m W ndoi wpo ni l, Poti tn 2 Th i s Dr aw i g. nM Sapce= F l sa e

通以上过几步个骤编的就程成完一幅图的分幅工作需要说。明的是由于布局只是了为形地分图幅打印的需要而建立，并不需要映反实真的地理位信息置，因此

每个布局的地中形图均放在一位同置，并根且据地形图比例尺对模型间进空行了缩放，便以无于论什么比尺例的地形图均可以在打印的时

候按照1: 1打印。

结语 4本程 序实现了根据分 信息幅文件自动 将地形分图幅布至的局功能，克 了将服图裁形切分幅文至件不足的，支持图廓信息自定，义并且界面友好，编 程字时体严格按规照范定义，在证保作业标准化的同时大大提高作业了率效。 参考献文[ 1]李冠忆 .深浅居Aut出OCA二次D开发明经道通坛论. [2】祥孔丰 . A ut c o d a v+b 从入 a门到 通精【M】 北京.:电工子业出版， 2社0 01 . 3[】 G B-T 2 205 7 . 1 - 200 71: 5 O 0、 1: 1 O00 、S e t

b l o c R ek f 0 bj =

1 2 0 0:O地形图图式 M【】.北京：中国标 出准版社 .

T h i s D r a W i n g. P a P e r S P a c .e sn r e Bl t co k i( sne r it noP nt, mpIor Fi e, lt )图廓整饰内，这容部 分容内对于同 I# 1#,,1#,0 )测的地形区图，每幅地形图内容基本 相1 3 在)布局中添加廓整图饰文字 :同；2 )地形图邻关系接，这部分内容 包含Se tt e x tOb j= Th is Dr a iWn . g每幅地形图位的以置及和 邻地形图的接关 P Pe arSPa e.cA d Tde t x ( text St i rn.g 系，每幅 形地均图不相。同 n se tri o n P oi n,ht e ig h t ) 根据分幅 息信的特点 本，采用次E xc e l i24 2科技创导新报 Sci e n c e a nd T ceh nol o y g I n n ov t ia o n H e r lad

本文来源：https://www.bwwdw.com/article/isu1.html