AutoCAD 2004集成VBA在农村房产测绘中的应用.docVIP

AutoCAD 2004集成VBA在农村房产测绘中的应用 　　摘要:该文主要讨论在农村房产测绘中对于autocad软件中集成的VBA的应用。通过使用符合工作环境与要求的编程提高繁琐而细致的房产测绘内业作业中的工作效率。 　　关键词:AutoCAD;VBA;农村房产测绘 　　中图分类号:TP311文献标识码:A文章编号:1009-3044(2010)10-2496-02 　　AutoCAD2004 Integrated VBA in the Rural Real Estate Mapping 　　ZHOU Lan-jie, LIU Ling-yan 　　(Seismic Survey Research Center, Xiamen 361021, China) 　　Abstract: This paper mainly discusses about how to make use of the integrated VBA in AUTOCAD 2004 to work in the country real-estate mapping. By programming, we can meet the need of complicated and meticulous work in real-estate mappingand improve work performance. 　　Key words: AutoCAD; VBA; country real-estate mapping 　　农村房产测绘是房产测绘中的重要分支项目,涵盖了广大农村百姓的民生基础。通常每个宗地都对应一个单独的dwg文件,并集中保存在相应的行政村或自然村目录中。在日常的内业处理中,经常需要对同一个行政村或自然村的文件进行内容相同或相识的批处理,如果采用人工进行的方式,难免繁琐而效率低下,并且难以保证准确度。而面对庞大的数据量,如何通过有效的编制一定的程序让计算机为我们的作业人员服务,从而提高工作效率,成为我们需要思考的问题。在这里,我们通过AUTOCAD 2004集成的VBA界面来编制程序,实现工作效率的提高。 　　1 VBA简介及其应用 　　VBA即Microsoft Office中的Visual Basic for Applications,她被集成到AutoCAD 2000以上版本中。VBA为开发者提供了一种新的选择,也为用户方位AutoCAD中丰富的技术框架打开了一条新的通道。VBA和AutoCAD中强大的ActiveX自动化对象模型的结合,代表了一种新型的定制AutoCAD的模式构架。通过VBA,我们可以操作AutoCAD,控制ActiveX和其它一些应用程序,使之相互之间发生互易活动。 　　使用VBA编程是我们在AutoCAD环境中对多文件进行批量处理的一个重要工具,使我们能够从工程项目的高度来管理大量相似内容结构的文件。 　　2 农村房产测绘工作 　　在农村房产测绘中,我们一般按照行政村为单位进行地籍测绘,然后根据自然村的情况进行分目录存储各宗地信息,将每家每户的宗地图存储在相应的自然村目录中。每一份宗地图所包含的图层信息都是相同的,通常包括,线划,内容注记,数据标注,界址线等。同时,宗地图和房屋分层平面图中都含有表头,需要填入诸如,权属人,地籍号,房屋座落,面积统计信息等。我们可以通过编制程序来完成诸如根据文件名填写权属人,地籍号等信息;也可以在一份村统计表中填入各种面积统计信息等。 　　3 程序实现 　　例程:对面积进行统一改位 　　 Private Sub autono_Click() 　　Dim pos As Integer 　　pos = MsgBox(面积改位将宗地面积和建筑面积汇总修改为两位小数,确认吗?, vbYesNo, 面积改位) 　　If pos = vbNo Then Exit Sub 　　Dim i As Integer 　　Dim adtext As AcadText 　　Dim adss As AcadSelectionSet 　　Dim ftype(0 To 1) As Integer, fdata(0 To 1) As Variant 　　Dim mjzdold As String, mjzdnew As String, mjjzold As String, mjjznew As String 　　Dim blc As Double, pt As Variant, p1(0 To 2) As Double, p2(0 To 2) As Double 　　On Error Resume Next 　　Form1.Hide如果不隐藏对话框,Aut