Autolisp程序4之土方量计算1/2

这里展示的是一个土方量计算的lisp程序的运行过程和结果，通过自定义函数mydcl4实现点集的不规则三角形网构建与土方量计算，并能够设置标注、点号和三角网图层的显示与隐藏。

1 加载lisp程序

1.1 lisp程序加载过程

工具->AutoLisp->加载应用程序

1.2 加载lisp程序

选择.lsp或.fas或.vlx文件->点击加载->显示已成功加载…

2 运行lisp命令

2.1 输入命令mydcl4（自定义函数）

2.2 输入lisp程序所在路径

3 程序运行结果

3.1 弹出土方量计算对话框（自定义）

3.2 框选所有点

3.3 指定最大边长

3.4 指定第一点

3.5 程序运行结果

（1）横纵坐标排列完成

（2）2维点表获取成功

（3） 第1个三角形已找到

（4） 所有三角形已构建好

（5） 成功获取三角形点表

（6） 所有三角形已画好

（7） 三角形组建情况

（8） 最终成图

4 图层的隐藏与显示

4.1 点号图层显示

输入ptson（自定义）命令

点号图层被显示

4.2 标注图层显示

输入dimon（自定义）命令

标注（三棱锥体积）图层被显示

4.3 三角网图层隐藏

输入tinoff（自定义）命令

三角网图层被隐藏