【摘要】本文介绍了用户幻灯菜单及功能和开发方法,并给出了标高标注和图例绘制程序的开发方法以及程序注解。  

１用户幻灯菜单简介用户幻灯菜单（下文简称幻灯菜单）是在ＡｕｔｏＣＡＤ平台上开发的一种高效实用的用户图形界面,由幻灯和相应的ＡｕｔｏＬＩＳＰ实用程序组成。其功能及用法类似于ＡｕｔｏＣＡＤ的图标菜单。调用时幻灯菜单屏幕上出现一幅幻灯,幻灯显示不同图形界面,由幻灯和相应的ＡｕｔｏＣＡＤ实用程序组成。其功能及用法的功能区域,每个区域对应相应的功能,用鼠标点取即可调用该功能。  

幻灯菜单可以用于开发本部门使用的工具软件或是商业化的ＣＡＤ软件,可以大大提高开发效率以及设计绘图速度。  

下面以我院开发的标高标注程序为例介绍幻灯菜单的功能:在ｃｏｍｍａｎｄ:状态下从下拉菜单中点取“标高标注１”后屏幕上出现如图１所示幻灯,用鼠标在某一标高种类格中点击后幻灯消失,恢复前一图面,在提示行中提示“请输入起点”,给点后又提示:“标高值”,输入数值后自动按选择的种类画好标高符号并写好标高值;然后重复提示“请输入起点”标注下一个,回车则回到图１幻灯重复使用,点ＥＸＩＴ退出。  

２幻灯菜单的特点  

幻灯菜单可以实现ＡｕｔｏＣＡＤ的图标菜单的各项功能,并且有如下优点:  

ａ．制作、修改效率高。制作图标菜单时,要实现的功能数与幻灯数及菜单项的数量相同。而制作一个幻灯菜单只需要作一个幻灯,幻灯数量大幅减少,修改也容易得多。  

ｂ．使用效率高。为了提高软件效率,尽量减少击键次数是今后软件的发展方向。幻灯菜单可以将多种形式的选择以图形形式直观地显示出来,以供选择。以标高标注为例,以前的方法是先问标高符号形式,再问方向,而使用幻灯菜单只需点取一次即可。  

ｃ．界面美观,制作灵活多样,使用方便。幻灯菜单在一幅幻灯中划分的功能区数量不限,并且可以根据需要制作成方格、横格、竖格、扇型格、圆环格等多种形式,甚至可以达到可编程序对话框的很多功能。  

ｄ．适用性强,移植方便。幻灯菜单适用于Ｒ９．０版以上的各种中、西文ＡｕｔｏＣＡＤ版本。使用幻灯菜单时,由于它包含在用ＡＤＳ或ＡｕｔｏＬＩＳＰ等语言编制的程序中,所以只要能运行程序即可调出幻灯菜单,版本升级时不必改变新的菜单文件。而图标菜单的菜单项必须逐条加入到新的菜单文件中。  

ｅ．可以作成定型模块重复使用,从而大大提高编程效率。  

３幻灯菜单的制作  

幻灯菜单的原理是:将ＡｕｔｏＣＡＤ绘图区分为若干规则的图形区域,每一区域可以对应一组功能,在程序调用幻灯菜单时,要求用户根据需要在某一图形区域中选取一点,然后程序自动计算出该点所在的区域位置,从而调用所对应的程序功能。  

点的定位是幻灯菜单制作编程的关键所在,以矩形格幻灯菜单为例,其步骤是:  

ａ．获取下列ＡｕｔｏＣＡＤ系统变量:  

ｖｉｅｗｓｉｚｅ-当前绘图区高,用绘图单位计算;  

ｖｉｅｗｃｔｒ-当前绘图区中心点坐标值;  

ｖｓｍａｘ、ｖｓｍｉｎ-虚拟屏幕的左下角及右上角点坐标值,可以用来求绘图区宽高比,从而求出绘图区宽度。  

ｂ．根据横向和竖向分格数,求出每格的宽和高。  

ｃ．由点的坐标值分别求出点所在格的横向和竖向序号。  

ｄ．横向和竖向序号连接即可获得该格的区域代码。  

后文将给出我院开发的标高标注和图例绘制两个实例,以下程序均在ＡｕｔｏＣＡＤＲ１０至１３各版本下顺利运行,并已非常成熟。需要指出的是,为了简化程序,突出重点,删去了一些诸如容错或装饰性的语句,但不影响程序运行。  

４实例一———标高标注程序  

由程序ａｂｇ．ｌｓｐ和幻灯文件ａｃｄｌ．ｓｌｄ文件组成,使用说明已在前面叙述,标题７ａ给出ａｂｇ．ｌｓｐ程序清单及注解  

ａｂｇ．ｌｓｐ程序包括主程序ａｂｇ和１５个标高标注子函数,子函数ａｂｇｌ至ａｂｇ１５类似,本文只列出ａｂｇｌ子函数程序。  

５实例二———图例绘制软件本软件由用户在６页幻灯菜单中连续选取图例,给出一个插入图例的左上角点后,程序自动将所选择的图例按顺序逐项向下排列连续绘出。软件由Ａｕ ｔｏＬＩＳＰ程序ａｔｌ．ｌｓｐ和６页幻灯以及近百个图块组成。幻灯文件为ａｔｌ１～ａｔｌ６．ｓｌｄ。图块名为ａｔｌａｂｃ．ｄｗｇ,ａｔｌ为前缀,ａ代表幻灯页序号,为１～６;ｂ代表幻灯菜单左右代码,左面为１,右面为２;ｃ代表幻灯菜单中上下序号,分别为１～８。  

本软件设计的核心思想是通过点的定位计算出的所对应的图例图块名,然后插入图例,多重选择由表处理语句来完成。本文中第７节的ｂ部分给出ａｔｌ．ｌｓｐ中与幻灯菜单有关的程序清单及注解。后面还有几个子函数,由于篇幅有限本文不详细列出程序,只做简单介绍:  

ｌａｓｔｓｌｄ子函数对幻灯名字符串进行运算,求出上一页幻灯名;  

ｎｅｘｔｓｌｄ子函数对幻灯名字符串进行运算,求出下一页幻灯名;  

ｓｅｔｎｉｌ子函数对各变量（必须包括ｗｈｉｌｌ）赋空值,并退出程序:  

ｓｅｔｏｋ子函数对被选择的图例表进行处理,并逐项连续插入图例。  

６小结  

ａ．标高标注程序是利用幻灯菜单调出相应的标高标注子程序。  

ｂ．图例程序是利用幻灯菜单给图例名称赋值,然后运用字符串处理和表处理技术求得图例名称的列表,从而连续逐项插入被选中的图例。  

ｃ．图例幻灯菜单分两个大区,上面是图例区,下面是幻灯菜单的操作区,可见幻灯菜单能做成复杂高效的菜单。  

７程序清单  

ａ．ａｂｇ．ｌｓｐ程序及注解;  

（ｄｅｆｕｎＣ：ＢＧＢＺ（）  

（ｓｅｔｑｗｈｉｌ１ｔ）  

（ｗｈｉｌｅｗｈｉｌ１）  

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）  

（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″请点取标高种类″））  

（ｐｒｏｇｎ  

（ｒｅｄｒａｗ）  

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）  

ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）  

ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）  

ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虚拟屏幕左下角）  

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））  

（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））  

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））  

（-（ｃａｄｒｐｃｅｎ（  

／ｈ３））））  

（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（／ｗ３））  

（+（ｃａｄｒｐｃｅｎ）（／ｈ３））））  

（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））  

（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））  

（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））  

（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））  

（ｓｅｔｐｘ（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））  

（ｓｅｔｑｙ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））  

（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））  

（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））  

（（＝ｎｎ１３）（ａｂｇ２））  

（（＝ｎｎ１２）（ａｂｇ３））  

（（＝ｎｎ１１）（ａｂｇ４））  

主程序ＢＧＢＺ开始  

设ｗｈｉｌ１值为真  

当ｗｈｉｌ１为真时执行下列程序  

显示幻灯在幻灯菜单中选点  

重画恢复原画面  

绘图区高  

绘图区中心点  

虚拟屏幕右上角  

共获取系统变量  

求绘图区宽  

有效区左下角,（有效区宽和高占绘图宽和高的三分之二）  

有效区右上角  

每格宽和高  

ＰＰ点的Ｘ和Ｙ坐标  

左下角点坐标  

ＰＰ点和ＰＰ０点Ｘ和Ｙ坐标差;  

Ｘ方向格序号  

Ｙ方向格序号  

将Ｘ和Ｙ连接  

多项选择条件函数  

ｎｎ＝１３时运行ａｂｅ２子函数  

（（＝ｎｎ２４）（ａｂｇ５））  

（（＝ｎｎ２３）（ａｂｇ６））  

（（＝ｎｎ２２）（ａｂｇ７））  

（（＝ｎｎ２１）（ａｂｇ８））  

（（＝ｎｎ３４）（ａｂｇ９））  

（（＝ｎｎ３３）（ａｂｇ１０））  

（（＝ｎｎ３２）（ａｂｇ１１））  

（（＝ｎｎ３１）（ａｂｇ１２））  

（（＝ｎｎ４４）（ａｂｇ１３））  

（（＝ｎｎ４３）（ａｂｇ１４））  

（（＝ｎｎ４２）（ａｂｇ１５））  

（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））  

）;ｃｏｎｄ）  

）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ  

（ｄｅｆｕｎａｂｇ１（）  

（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″输入起点″））  

（ｉｎｉｔｇｅｔ１）  

（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″标高值:″））  

（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））  

（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））  

（ｓｅｔｑｐ４（ｌｉｓｔ（+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））  

（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））  

（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２  

″＠３．２＜１３５″″＠１２．８＜０″″″  

″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……  

ｂ．ａｔｌ．ｌｓｐ程序及注解  

为１１-４４格规定功能,即每一格对应一个子函数  

主程序ＢＧＢＺ结束  

定义ａｂｇ１子函数  

标高符号起点  

不接受空值  

标高值  

计算各点位置  

标高为０时加“±”  

画标高符号  

写标高值ｃｏｍｍａｎｄ  

ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ  

ｂｇ２～ａｂｇ１５子函数省略  

（ｄｅｆｕｎＣ：ＴＬ（）  

（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）  

（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）  

（ｐｒｏｍｔｐ″＼ｎ给排水图例程序
—ＢＥＲＩＳ″）  

（ｗｈｉｌｅｗｈｉｌ１  

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））  

（ｉｎｉｔｇｅｔ１）  

（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ请连续点取图例,并点取〈确定〉″））  

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））  

（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））  

图例绘制主程序  

赋初始值  

图例图块路径  

提示  

当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）  

不接受空值  

以下内容同标高标注程序  

（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））  

（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））  

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））  

（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））  

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））  

（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））  

（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））  

（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））  

（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））  

（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））  

（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））  

（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））  

（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））  

（ｓｅｔｑａｏｒｂ″１″）  

（ｓｅｔｑａｏｒｂ″２″））  

（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））  

（ｓｅｔｑｂｌｋｎａｍｅ  

（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））  

（ｄｅｆｕｎｄｑ２（）  

（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））  

（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））  

（（＝ｘｈ１２）（ｎｅｘｔｓ  

   
ｌｄ））  

（（＝ｘｈ１３）（ｓｅｔｎｉｌ））  

（（＝ｘｈ１４）（ｓｅｔｏｋ））））  

（ｄｅｆｕｎｌａｓｔｓｌｄ（））  

（ｄｅｆｕｎｎｅｘｔｓｌｄ（））  

（ｄｅｆｕｎｓｅｔｎｉｌ（））  

（ｄｅｆｕｎｓｅｔｏｋ（））  

如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数  

点落在左面ａｏｒｂ为１  

点在右面ａｏｒｂ为２;ｉｆ  

计算纵向序号计算图例图块名（由４部分连接组成）  

ｄｑ１结束  

定义ｄｑ２子函数  

计算横向序号  

运行ｌａｓｔｓｌｄ子函数,向前翻页  

运行ｎｅｘｔｓｌｄ子函数,向后翻页  

运行ｓｅｔｎｉｌ子函数,赋空退出

运行ｓｅｔｏｋ子函数,插入图例  

定义ｌａｓｔｓｌｄ子函数,略  

定义ｎｅｘｔｓｌｄ子函数,略  

定义ｓｅｔｎｉｌ子函数,略  

定义ｓｉｔｏｋ子函数,略