浅谈AutoLISP在岩土工程中应用.docVIP

浅谈AutoLISP在岩土工程中应用摘要　AutoLISP是镶嵌于AutoCAD内部的一种LISP(List Processing Language)语言，其简单易学而又功能强大。对于一些常见的岩土工程问题，通过在CAD中编写AutoLISP程序，可方便设计和提高工作效率。在较详细列举两个源程序实例和演示一个程序基础上，简要介绍了AutoLISP在岩土工程中的应用。 关键词　AutoLISP；源程序；测量；边坡；赤平投影 AutoCAD是AutoDesk公司推出的工程绘图软件，AutoLISP是镶嵌于AutoCAD内部的一种LISP(List Processing language)语言。AutoLISP具有人工智能语言LISP的基本特性，采用了与CommonLISP相近的语法和习惯约定，同时，针对AutoCAD的需要，增加了许多功能，例如可以把AutoLISP程序和Auto－CAD绘图命令透明地结合起来，使设计和绘图融为一体，还可以通过AutoLISP编程，实现对AutoCAD当前图形数据库的直接访问和修改，为对屏幕图形的实时修改和智能化设计绘图提供了方便。作为AutoCAD为用户提供的主要应用开发工具或编程接口，Au－toLISP简单易学而又功能强大，通过创建AutoLISP程序，可在AutoCAD命令系列中添加有专门用途的新命令，实际上，许多标准的AutoCAD命令就是AutoLISP应用程序。 在多年的工作实践及对AutoLISP／Visual LISP进行深入学习的基础上，作者结合本单位实际情况针对一些常见的岩土工程问题利用AutoLISP编写了一批实用小程序，并在长期应用中不断进行了改进和完善，达到了方便设计和提高工作效率的目的。本文将不讨论AuloLISP本身的基本语法，但将通过几个具体原创实例来谈谈如何利用AutoLISP结合AutoCAD解决具体岩土工程问题。以供同仁们参考。 1　经纬仪测量计算、放点程序 在岩土工程勘察中，当勘探孔(点)施工完毕，我们往需要重新测量勘探孔(点)实际实施位置及标高，对于山区地基，为进行场地和地基的稳定性分析，还经常涉及边坡和临空面测量。目前，传统的经纬仪仍是很多单位的主要测量工具，对测量成果进行计算并将测点通过AutoCAD放置在已知平面上，则可通过AutoLISP程序轻松实现。以下是该程序完整的源程序，直接加载即可使用。 ；；经纬仪测量计算、放点程序! (defun c：CLCL()；；定义函数名或CAD命令名 (alert”＼n欢迎大家使用经纬仪测量计算、放点程序!＼n＼n本程序采用“hz”字体，适用于1：1模型空间。”) 该程序是一个非常简单的AutoLISP程序，实现了测量数据计算和测点绘制及标高标注两项功能。程序使用前，需在CAD中任意假定一个测站点(可用两条直线的交点表示)，测点绘制完毕，根据已知平面的比例、方位，对所有测点进行相应缩放、旋转并利用所测参照点与已知平面进行重合，即可完成所施工勘探点在已知平面上的真实布置。此外，还可将该程序用于小型地形测量，进行地形图辅助绘制。 2　边坡稳定性验算及剩余下滑力计算程序 在山区边坡工程中，对边坡进行稳定性验算并根据设计安全系数计算边(滑)坡剩余下滑力，是岩土工程设计中的一项重要内容。对绘制于CAD中的边坡实测剖面，在确定或假定危险滑动面基础上，利用条分法，通过编制AutoLISP程序，可同时达到上述目的。以下是作者所编该程序的演示图(图1)，最大计算条块数为15块，根据需要，可对程序进行扩展增加条块数。 为了实现程序的友好性、易用性，该程序综合应用了对话框、幻灯片等编程技术，相应地，与前一个程序相比，该程序明显变得复杂。 首先根据程序所要解决的问题编写主对话框和子对话框，本程序完整的对话框控制语言(Dialog ControlLanguage，简称DCL语言)如下。DCL语言同Au－toLISP语言一样，内嵌于AutoCAD中，简单易学。用DCL语言描述的对话框需要由AutoLISP来驱动，反过来，DCL语言丰富了用户界面的处理手段，增强了Au－toLISP的能力。 上述主程序中共包含16个子程序，由于程序总体较长，限于篇幅，不能一一详细列举，下面仅作简要介绍，分别为：xdkz、ankz，控制对话框主要按钮；aqxs，选择滑坡推力安全系数；xdjs，在CAD中选择条块点(每条块4个点)；zhjsl，将对话框中字串转换为数值，以便进行计算；bpjs，计算边坡稳定性系数和滑坡推力；xsjg，在对话框中动态显示计算结果；zhjs2，将计算结果数值转换为字串Ibpjg，显示于子对话框中的有关计算结果；sqg，在CAD实测剖面中输出结果