AutoCAD图纸房屋面积统计程序说明

作者：王同宇
qq：429786830

一、程序介绍

1.简介

此程序用于快速统计AutoCAD图纸中一片区域的房屋建筑面积，使用的图纸类似下图所示。

程序简介图

2.效果

直接框选一片区域，程序会自动计算选定区域的房屋面积。

计算房屋总面积
同时，程序会为每栋房屋标号。

房屋标号效果图
标号的同时，程序会自动生成一个Excel表格，Excel表格中的编号对应图纸中房屋的标号。

生成的Excel效果图

二、程序配置（只需一次配置，以后不需要再进行配置）

1.配置Excel路径

（1）查询Excel程序的路径。
如果你不会查询Excel程序的安装路径，可以创建并打开一个空Excel文件，在开发工具->Visual Basic中打开Visual Basic。

打开Visual Basic

双击左侧的Sheet1出现文本框，将下面的代码复制进去，键入键盘上的F5运行程序，运行完毕后关闭Visual Basic窗口。

将代码输入Visual Basic中


Sub GetOfficePath()
ActiveSheet.Range("A1") = Application.Path
Call Shell("explorer.exe " & Application.Path)
End Sub

备注：如果你在Excel的选项中没有找到开发工具栏，可以选择文件->选项->自定义功能区，在右侧的主选项卡中的开发工具前面打对号。

VBA运行结果

VBA运行结果

Excel程序路径会自动出现在Excel表格的第一行第一列，把路径中的""改为"/"，然后在地址后面加上/Excel.EXE,复制地址备用。
（2）修改程序中的Excel程序路径。
使用“记事本”打开程序文件"房屋面积统计程序.lsp"，找到如下图所示代码，把刚才的Excel路径复制到引号内。

配置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.出现了其他各种莫名其妙的问题

请尽快联系程序作者。