作者：王同宇
qq：429786830
一、程序介绍
1.简介
此程序用于快速统计AutoCAD图纸中一片区域的房屋建筑面积，使用的图纸类似下图所示。
2.效果
- 直接框选一片区域，程序会自动计算选定区域的房屋面积。
计算房屋总面积 -
同时，程序会为每栋房屋标号。
房屋标号效果图 -
标号的同时，程序会自动生成一个Excel表格，Excel表格中的编号对应图纸中房屋的标号。
生成的Excel效果图
二、程序配置（只需一次配置，以后不需要再进行配置）
1.配置Excel路径
（1） 查询Excel程序的路径。
如果你不会查询Excel程序的安装路径，可以创建并打开一个空Excel文件，在开发工具->Visual Basic中打开Visual Basic。
双击左侧的Sheet1出现文本框，将下面的代码复制进去，键入键盘上的F5运行程序，运行完毕后关闭Visual Basic窗口。
Sub GetOfficePath()
ActiveSheet.Range("A1") = Application.Path
Call Shell("explorer.exe " & Application.Path)
End Sub
备注：如果你在Excel的选项中没有找到开发工具栏，可以选择 文件->选项->自定义功能区，在右侧的主选项卡中的开发工具前面打对号。
VBA运行结果
Excel程序路径会自动出现在Excel表格的第一行第一列，把路径中的""改为"/"，然后在地址后面加上/Excel.EXE,复制地址备用。
（2）修改程序中的Excel程序路径。
使用“记事本”打开程序文件"房屋面积统计程序.lsp"，找到如下图所示代码，把刚才的Excel路径复制到引号内。
至此，配置Excel路径完成。
三、使用说明
1.处理图纸
（1）新建一个图层命名为“1-房屋建筑面积”。切换到该图层，将需要统计的房屋使用多段线标出，如下图所示，红色的方框区域是使用多段线标出的部分。
（2）将灰色的地形图层统一命名为“1-地形”
2.运行程序
(1)运行程序之前请先将AutoCAD的“对象捕捉”功能关闭，使用快捷键F3开关“对象捕捉”功能。
(2) 在AutoCAD中输入“appload”命令，选择"房屋面积统计程序.lsp"程序，点击加载
(2) 加载完成后，关闭窗口，输入"BUI"命令，会自动跳出Excel程序，框选刚才使用多段线标注的房屋，屏幕上不断跳动数字，等待程序运行完成之后，方可进行进一步的操作。
3. 查找房屋位置
程序已经给所有的房屋自动编号，想要查找某个房屋的位置。输入"SEAR"命令，输入房屋编号，该房屋的编号便会自动高亮。
4.练习
文件夹中已经存在一个示例图纸，可以使用这个图纸练习程序的使用。
(1)练习1
打开示例图纸，图中存在使用红色多段线和蓝色多段线标出的房屋面积，其中红色多段线的图层已经设置为“房屋建筑面积”，直接输入BUI命令，框选红色多段线标出的区域即可看到程序效果。
四、问题汇总
1. 出现总面积为0的情况
1.检查标注房屋的多段线的图层是否为“房屋建筑面积”。
2.检查地形图层是否为"1-地形"。
2. Excel表格中的“房屋类型”列全部为空
1.检查地形图层是否为"1-地形"
2.请只打开“房屋建筑面积”和"1-地形"两个图层，并将整个图纸复制到一个新建的图纸中，重新运行程序即可。
3.出现了编号重叠的情况
请检查出现编号重叠的建筑，表示该建筑的多段线发生了重叠，删除其中之一即可。
4.不知道如何使用程序
请直接联系程序作者。
5.出现了其他各种莫名其妙的问题
请尽快联系程序作者。
