浅谈多个设计高程的土石方计算
范森合1 刘金生2
（1.南宁市勘测院 南宁 530021
2.广西测绘职业技术学校 广西南宁 530023
）
【摘 要】 本文应用实例叙述有关多个设计高程的土石方量的计算及解决方法。
【关键字】 南方CASS6.1成图系统 Excel AutoLISP 方格网法 设计高程 土石方量
1 引言
随着科技的飞跃发展，城市建设中许多工程项目都需要场地平整，土石方量的计算关系到各方的经济利益。目前，土石方量的计算方法有三角网法、断面法、方格网法、等高线法等，其中方格网法比较直观易懂，大多数甲方也要求用这种方法计算。在南方CASS6.1成图系统中，利用方格网法只能直接计算一个设计高程和一个设计坡度的情况，对于多个设计高程，还需用其他的方法进行数据处理才能准确的计算出土石方量。下面就有关多个设计高程的土石方量计算，应用实例来进行叙述。
2 解决方法及步骤
2.1 将设计高程设为0米，利用方格网法分别计算出设计、现状数据的挖土石方量。（如图1）
 |
 |
图1 |
2.2 用AutoLISP语言编写一个程序，将挖土方量的位置及方量数读写出来，利用Excel电子表格的功能计算出实际挖土方量并进行标识（“T=”为填方量，“W=”为挖方量）。（如图2）
2.3 利用Excel电子表格的功能将数据标识填挖方量处理成南方CASS6.1成图系统‘野外测点代码’的数据格式。（如图3）
2.4 利用南方CASS6.1成图系统中绘图处理->展野外测点代码的功能将填、挖土方量展绘出来。（如图4）
2.5 利用南方CASS6.1成图系统中等高线->由数据文件建立DTM模型，生成曲面模型后着色，再将设计、现状两个DTM模型叠加在一起，找出填挖分界线。（如图5）
 |
 |
图5 |
2.6 重新计算出填挖分界线经过的方格网内的填挖土方量。（如图6）
 |
 |
图6 |
2.7 图例说明。（如图7）
 |
 |
图7 |
2.8 统计填挖土方量并整饰打印图。（如图8）
 |
 |
图8 |
3 程序代码
;;;文本坐标
（defun c:wbzb（/）
（setvar "osmode" 0）
（setvar "cmdecho" 0）
（setvar "dimzin" 0）
（setq file （getfiled "\n输入保存数据的文件名" "d:/" "csv" 1））
（setq f （open file "w"））
（setq ent （ssget "x" '（（8 . "fgw"） （0 . "text"））））
（if ent
（progn
（setq zds （sslength ent））
（setq xd 0）
（repeat zds
（setq ty （ssname ent xd））
（setq data （entget ty））
（setq p （cdr （assoc 10 data）））
（setq x （nth 0 p））
（setq x （rtos x 2 3））
（setq y （nth 1 p））
（setq y （rtos y 2 3））
（setq h （cdr （assoc 1 data）））
（setq xd （1+ xd））
（setq dh （itoa xd））
（setq s （strcat dh "," y "," x"," h））
（write-line s f）
）
）
）
（close f）
（prompt "\n结束!"）
（princ）
）
4 结语
利用上述方法可以解决实际工作中遇到的多个设计高程土石方计算的问题。
【参考文献】
[1] 郭朝勇等编著.AutoCAD R14（中文版）二次开发技术.北京：清华大学出版社，1999
[2] 南方测绘仪器公司.南方CASS6.1成图系统 |
