作者:王同宇
qq:429786830
一、程序介绍
1.简介
此程序用于快速统计AutoCAD图纸中一片区域的房屋建筑面积,使用的图纸类似下图所示。
2.效果
- 直接框选一片区域,程序会自动计算选定区域的房屋面积。
-
同时,程序会为每栋房屋标号。
-
标号的同时,程序会自动生成一个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.出现了其他各种莫名其妙的问题
请尽快联系程序作者。