一个基于Excel和VBA开发的自动生成.pdf
测绘信息网http://wwothemapca友F070禔供 中列出,接下来可以点击“生成报表”或者“展点到 CAD”分别进行报表生成和调用CAD进行成图。运 三、主要程序代码及注释节选 行后结果合并如图1所示。 程序中主要的几处代码列于下文不包括若十 界址点成果裹 个子函数,因代码太长故略有删减,仅作参考。 出籍号 家乐科技有限公司 1.“浏览”按钮对应的代码 宗均面积(平广米〕1570170 建茸占地(平方米) wt h Comdg 界址点坐标 D alog Title="选择界址点坐标数据文件逗号 序号点号 坐 边长 JUO 4213943 6194008 42141.49 6944 524 分隔文才 42142,73 6194918 Flter =datI * dat t xt * t xt all *. *k 4214347 6195334 4214420 B1963.16 J005 4214550 697323 10.16 End wt h 12.89 m090 Co mdg. Sho w Open 1544 Text BoxlText=Comdg filena me 大泉乐科技有公司 12 72006 37 2.“生成报表”按钮对应的代码 157017095程着 4 Open Text BoxlText For Input As #2 6.18 ′读取文件头,即第一界址点之前的地块相关信 19 息,并且填入相应表格 66 2 Input 2, AA, Dji hao: Input 2, AA, Quan- JUT 8216B.44 shu input #2, AA, Marji 图1 Range("B5). Select: Active Cell. For mularI C1 Qji hao 界址点成具表 Range(B7). Select: Active Cell. For mularlC1 宗地币积平方米) manshu 百地方米) Q 界址点坐 Input 2, AA, Jianzhu: Input #f 2, AA, aa 点号 边长 数据文件生成界址点成果表 AAAA 数据文件D:itmp1on 读取结果:文件总行数=3其中界址点个数=39 按照固定的行高,每页可以读35个点,即到85 生成报寰展点到 使用说明 退出 行,然后换页 For i=21 To(nu mall-5)s2+19 Step 2 图2 If eof(2) The n Exit For Input #2, Xuhao danhao, zbn Zbe 4.功能实巩:文件的读取与VB编程差不多 Range(a&i). Select: Acti ve Cell. For mu 这里不再赘述。难点一是读取相应坐标后如何填到 I ariel= Xuhao 相应的单元格里,笔者使用的是Ran对象,先指定 Range(B& i). Select: Active Cell. For mu- 某单元格或者单元格范围,然后利用活动单元格1aRC1= Dian 的F or mul a 属性来填写数据。然后循环直到数据全 Range(〃 c& i). Select: Active Cell. For n 部读写完毕,中间再加上计算相邻界址点的边长和1aRlC1=zbn 地块总面积,填写单元格后可以给它设置单元格属 Range(D& i). Select: Active Cell. For mu- 性,如字体、大小等,木文不再赘述。难点二是调用 larici= zbe AutO caD2006并进行展点连线,关于调用CAD的 ′训算边长,每读2行计算一次边长 程序代码很容易査致注意要先在VBA编辑器中引 If Zno &0 And Zeo X0 Then Range(E"& 用 AutocaD2006 Type library),关键是读取坐标i). Select: Acti veg. For mular1C1=Sq(zbn- 后要逐点进行展点、标注点号、边长连线。与上面 Zno)2+(zbe- Zbe0)2) 样循环读取点名和坐标等,在CAD中展点并标注点 Zbe0= Zbe Zbn0= Zbn 名,然后逐点连线直到形成封闭图形,最后标注地块 Next i 名及面积。程序部分代码见下文。 dose #2 Range(C9). Seect: Active Cell Far mla riCl= Sa 测绘信息网http://wwothempca友F070碮供 M g Box"报表生成完毕! line Obj= acad App. Active Document Model Space. Ad- 3.展点到CAD”按钮对应的代码 dine( punt, point)′在模型空间中创建该直线 先启动绘图′调用子函数打开CAD line obj. Cdor=1 acadApp Active docu ment Set variable Next i PD MODE",3232为点样式代码 a ose 2 acadApp. Acti ve Docu ment. Set VariablePD SIZE",22为点的绝对值 四、总结 Open Text Boxl. Text For Input As 2 该程序摆脱了传统的制作成果表的手工输入模 读取文件头,即第一界址点之前的地块相关信式,直接用程序进行读取数据、单元格填充、计算和 息 对表格的修饰,整个过程只需点几次鼠标便可以轻 Line Input#2lin: Line Input#2lin: Line in松完成,大大提高了制作成果表的效率,并且避免了 put#2,lin: Line Input#2,lin: Line Input#2lin人工出错的可能,对测绘成果的格式标准化起到了 For i=1 To(numall-5) 很好的作用。该程序在 Windo ws XP和 Auto cad If eoF( 2)The n Exit For 2006中运行通过,生成的成果表完全正确、美观,可 Inpu#2,Ⅺhao, anhao,Zbn,Zhbe′开始读投入使用。其只要作部分修改就可以应用于其他多 坐标行,存入数组 种测绘报告表、图的生成 y(i)=Zbe: x(i)=Zbn: d S(i)=Danhao 参考文献 (0)=y(i):c(1)=x(i):c(2)=0"定义点的 位置 [1]VK工作室 Excel2000VBA入门M.北京:科学出 Set pa nt ob acad App Active docu ment. Mod 版社,2001 cl Space. Addpoint(c)'创建点 「21刘庆金 Mcrosoft Excel与 Moros ot word结合生成 Set Gr or acad App. Acti ve Docu ment. Mod “宗地测量成果表”[J.测绘通报,2005,(5):6566 el space. Add grcle(c,1)′创建圆 [3]周卫.基于VBA的 Excel测量程序开发技和J.测 绘通报,2005、6):37-40 apoint(0)=point(0): paint(1)=paint(1):a [4]刘海明VB与VBA技术手删M.北京:中国电力出 point(2)=point( 2) 版社,2001 Set text c= acad App· Acti ve docu ment,Md-[5]李凤华, Aut oCAD2001200VBA开发指南M.北 el Space. Add Text(d$(i),c,3)′创建点名,3为点 京:清华大学出版社,2001 名高度 [6] COTTINGHAM M. AutOCAD Vba从入门到精通 text o.o=7′点名颜色 [M.北京:电子工业出版社,2001 acadApp.ⅵsibe=True [7]王珏.用VBA开发 AutO CaD2000应用程厅M.北 opoint(0)=y(i): point(1)=x(1): bpa nt( 2) 京:人民邮电出版社,1999 [8]张桂芬,工卫安ⅤBA在S数据更新中的应用J] If apaint(0)x0 And paint( 1)x0 Then Set 测绘工程,2005,4(3):4-43 上接第63页 学院学报,2002,22(4) [6]蒋景瞳.中国地理信息元数据标准研究M.北京:科[10]陈荻玲,怀进鹏.一种wb服务安全通信机制的研究 技出版社,1996 与实现,计算机研究与发展,2004,(4) [7]周文生,毛峰.地理标记语言GML及其可视化J 11] EASTLAKE D, REAGLE J. XML Encrypti on Syntax 测绘通报,2003,(9) and Proessing[ r. [sI]: [s n ] 2002 [8]吴信才,郭玲玲,白玉琪.Wb(S开发技术分析与系「121 DOURNAEE B.XM安全基础M.北京:清华大学 统实J.计算机工程与应用,2001,(5)9699 出版社,2003. [9]鲍艳,責朝华.XML在(S中的应用J.西安科技