AutoLISP与VBA交叉编程的技术在铁路保护煤柱留设中的应用2011全国矿山测量学术会议.pptVIP

* 汇报人：田迎斌 AutoLISP与VBA交叉编程技术在铁路保护煤柱留设中的应用 煤炭科学研究总院唐山研究院 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 1、引言 2、AutoLISP与VBA交叉编程技术简介 3、利用AUTOLISP编程自定义命令 4、利用VBA开发面向对象的对话框 5、VBA程序的调用及向AutoLISP的数据传递 6、应用实例 7、结论 汇 报 内 容 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 1、引言 留设保护煤柱是保护地表建（构）筑物的最有效的方法之一。目前，对于铁路保护煤柱一般采用垂直剖面法进行留设，而其关键就是绘制垂直于铁路纵向的竖向剖面图。 本文针对铁路保护煤柱的留设，利用AutoLISP与VBA交叉编程技术探讨在CAD中绘制剖面图的程序化，从而使铁路保护煤柱留设变得简单易行。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2、AutoLISP与VBA交叉编程技术简介 AutoLISP语言不仅具有一般高级语言的基本结构和功能，又具有一般高级语言所没有的强大图形处理能力，它可以实现对AutoCAD当前图形数据库的直接访问和修改、定义新命令、实现参数化绘图、扩充AutoCAD现有功能，可以直接调用全部的AutoCAD命令，是开发AutoCAD的强有力的工具。 AutoCAD的VBA是一个面向对象的编程环境，提供了和VB相似的丰富编程功能，VBA应用窗体设计简单灵活，包括了VB中的所有标准控件。 AutoLISP与VBA 交叉编程技术的核心即是利用AutoLISP编制自定义绘图程序；利用VBA 进行用户界面制作，实现人机交互中获得设计参数。这种技术应用的关键在于如何成功地在VBA 程序及VLISP 程序中进行数据与信息传递。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 3、利用AUTOLISP编程自定义绘制铁路垂直剖面图的命令 通过对《建筑物、水体、铁路及主要井巷煤柱留设与压煤开采规程》中附录九例8的分析，可以得出要绘制一个标准的剖面图需要如表1所示的11个主要参数。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 根据表1中的参数编写了名称为“CZPM”的自定义命令，将这些程序写在TLPMPLOT.lsp的文本文件中。 在程序中主要完成绘图所需参数的输入、剖面图上下山伪移动角的计算及剖面图形的输出等。其主程序格式如下： (defun c: CZPM( ) (setq t (getreal “\n请输入T:”)) (setq w (getreal “\n请输入w:”)) …… (setq pt (getpoint “\n请输入剖面图插入点pt:”)) …… (setq pl1 (getpoint “\n请点击平面图中剖面线与围护边界之交点PL1【左侧】:”)) (setq pl2 (getpoint “\n请沿剖面线点击PL1外侧之任一点PL2:”)) …… (setq pr1 (getpoint “\n请点击平面图中剖面线与围护边界之交点PR1【右侧】:”)) (setq pr2 (getpoint “\n请沿剖面线点击PR1外侧之任一点PR2:”)) …… ) 当运行“CZPM”自定义命令时，要求用户依次输入十几个有关参数。这样以调用自定义命令并且逐个输入参数的方式，有其局限性和不足，就是逐个输入参数的方式