房产测绘中建筑墙体中线获取问题研究

◎闻威

（作者单位：大连市勘察测绘研究院有限公司）

引言：《房产测量规范》(GB/T 17986.1-2000)中规定，共有墙按水平投影面积的一半计入套内墙体面积。从而绘制墙体中线，成为房产测绘的必要工作，而现有的测绘软件并没有墙体中线获取功能，使得这项工作较为繁琐，且容易出错。针对此问题，本文进行了相应的研究，提出解决方法，并利用AutoLISP 编程语言编写了相应的程序，提高了工作效率。

一、房产测绘的图形绘制

房产图上主要有两种线：建筑线和套内线。建筑线是建筑的轮廓线，套内线是户间的分割线或户与公用面积的分割线。套内线的数量一般大于建筑线的数量，户和公用面积越多，套内线的数量越大。套内线一般是墙体中线。

我们在AutoCAD 上绘制墙体中线时一般采用两种方法，一种是用墙体边线偏置的方法。根据墙体边线位置和墙体厚度，利用偏置功能绘制中线。在LINE 线较多时，此方法较为繁琐。另一种方法是利用墙体截断面实体线，用中点捕捉的方式依次绘制中线。在原图上没有实体线时，则需要手动绘制实体线，也较为费力。

二、解决思路

总体思路：先统一处理墙体边线为LINE 线，然后根据墙体两侧边线起终坐标，求取并绘制墙体中线，使用选择集统一管理新绘制的中线图元，最后连接并合并中线。

流程图：

三、程序编制

根据上述思路，利用AutoLISP 编制程序如下：

*绘制墙体中线程序*

(defunc:hzx()；主程序

(setqi1 rec0 ss (ssadd))；

(command"osnap""none""")

(command"_chamfer""d" 0 0"")

(setqchklay(tblsearch"layer""中线"))

(if (=chklaynil)

(command"_layer""n""中线""c"1"中线""s""中线""""")

(command"_layer""s""中线""""")

);if

(prompt" ☆请依次选择Line 线☆")

(setqsel(getstring" 中线是否连续?是[y] 否[n]:[是]"))

(while (= rec 0)；循环绘制中线

(hzx_1)；循环调用绘制子函数

(if(and(>i2)(or(=sel"y")(=sel"")))；判断中线绘制条数，连接中线。

(progn

(if(and(/=L_last L_new)(>i1))

(command"chamfer" L_last L_new "")

);if

);progn

);if

(setqL_lastL_new)

);while

(command"pedit""m" ss "" "y""j" """")；合并中线。

(princ)

)

(defunhzx_1()；子程序1

(提示选择墙体两侧边线)

(调用子程序2)

(判定墙体边线的起始方向)

(绘制墙体边线)

)

(defun hzx_2(tip_x)；子程序2

(setqLL (entseltip_x))

(hzx_3 tip_x)

(if(=rec0)

(progn

(setqLL_chk (cdr(assoc0(entget(carLL)))))

(while(/=LL_chk"LINE")

(prompt" 选择线不是Line 线，请重新选择！")

(setqLL (entseltip_x))

(hzx_3tip_x)

(setqLL_chk (cdr(assoc0(entget(carLL)))))

);while

);progn

);if

)

(defun hzx_3(tip_x)；子程序3

(根据选择，判断绘制是否结束)

)

四、结语

1.随着计算机技术的日益发展，测绘软件的功能也趋于完善，但现有软件并不能完全解决问题，这时我们可以自己去思考和解决，使软件进行更加完善。2.本文通过分析工作中遇到的实际问题，提出了解决思路，并编制相应的程序，从而提高了工作效率。