小木虫 --- 500万硕博科研人员喜爱的学术科研平台
给排水设计给排水ＣＡＤ软件开发实例作者: 收集于网络
【摘要】本文介绍了用户幻灯菜单及功能和开发方法,并给出了标高标注和图例绘制程序的开发方法以及程序注解。&&１用户幻灯菜单简介用户幻灯菜单（下文简称幻灯菜单）是在ＡｕｔｏＣＡＤ平台上开发的一种高效实用的用户图形界面,由幻灯和相应的ＡｕｔｏＬＩＳＰ实用程序组成。其功能及用法类似于ＡｕｔｏＣＡＤ的图标菜单。调用时幻灯菜单屏幕上出现一幅幻灯,幻灯显示不同图形界面,由幻灯和相应的ＡｕｔｏＣＡＤ实用程序组成。其功能及用法的功能区域,每个区域对应相应的功能,用鼠标点取即可调用该功能。&&幻灯菜单可以用于开发本部门使用的工具软件或是商业化的ＣＡＤ软件,可以大大提高开发效率以及设计绘图速度。&&下面以我院开发的标高标注程序为例介绍幻灯菜单的功能:在ｃｏｍｍａｎｄ:状态下从下拉菜单中点取“标高标注１”后屏幕上出现如图１所示幻灯,用鼠标在某一标高种类格中点击后幻灯消失,恢复前一图面,在提示行中提示“请输入起点”,给点后又提示:“标高值”,输入数值后自动按选择的种类画好标高符号并写好标高值;然后重复提示“请输入起点”标注下一个,回车则回到图１幻灯重复使用,点ＥＸＩＴ退出。&&２幻灯菜单的特点&&幻灯菜单可以实现ＡｕｔｏＣＡＤ的图标菜单的各项功能,并且有如下优点:&&ａ．制作、修改效率高。制作图标菜单时,要实现的功能数与幻灯数及菜单项的数量相同。而制作一个幻灯菜单只需要作一个幻灯,幻灯数量大幅减少,修改也容易得多。&&ｂ．使用效率高。为了提高软件效率,尽量减少击键次数是今后软件的发展方向。幻灯菜单可以将多种形式的选择以图形形式直观地显示出来,以供选择。以标高标注为例,以前的方法是先问标高符号形式,再问方向,而使用幻灯菜单只需点取一次即可。&&ｃ．界面美观,制作灵活多样,使用方便。幻灯菜单在一幅幻灯中划分的功能区数量不限,并且可以根据需要制作成方格、横格、竖格、扇型格、圆环格等多种形式,甚至可以达到可编程序对话框的很多功能。&&ｄ．适用性强,移植方便。幻灯菜单适用于Ｒ９．０版以上的各种中、西文ＡｕｔｏＣＡＤ版本。使用幻灯菜单时,由于它包含在用ＡＤＳ或ＡｕｔｏＬＩＳＰ等语言编制的程序中,所以只要能运行程序即可调出幻灯菜单,版本升级时不必改变新的菜单文件。而图标菜单的菜单项必须逐条加入到新的菜单文件中。&&ｅ．可以作成定型模块重复使用,从而大大提高编程效率。&&３幻灯菜单的制作&&幻灯菜单的原理是:将ＡｕｔｏＣＡＤ绘图区分为若干规则的图形区域,每一区域可以对应一组功能,在程序调用幻灯菜单时,要求用户根据需要在某一图形区域中选取一点,然后程序自动计算出该点所在的区域位置,从而调用所对应的程序功能。&&点的定位是幻灯菜单制作编程的关键所在,以矩形格幻灯菜单为例,其步骤是:&&ａ．获取下列ＡｕｔｏＣＡＤ系统变量:&&ｖｉｅｗｓｉｚｅ-当前绘图区高,用绘图单位计算;&&ｖｉｅｗｃｔｒ-当前绘图区中心点坐标值;&&ｖｓｍａｘ、ｖｓｍｉｎ-虚拟屏幕的左下角及右上角点坐标值,可以用来求绘图区宽高比,从而求出绘图区宽度。&&ｂ．根据横向和竖向分格数,求出每格的宽和高。&&ｃ．由点的坐标值分别求出点所在格的横向和竖向序号。&&ｄ．横向和竖向序号连接即可获得该格的区域代码。&&后文将给出我院开发的标高标注和图例绘制两个实例,以下程序均在ＡｕｔｏＣＡＤＲ１０至１３各版本下顺利运行,并已非常成熟。需要指出的是,为了简化程序,突出重点,删去了一些诸如容错或装饰性的语句,但不影响程序运行。&&４实例一———标高标注程序&&由程序ａｂｇ．ｌｓｐ和幻灯文件ａｃｄｌ．ｓｌｄ文件组成,使用说明已在前面叙述,标题７ａ给出ａｂｇ．ｌｓｐ程序清单及注解&&ａｂｇ．ｌｓｐ程序包括主程序ａｂｇ和１５个标高标注子函数,子函数ａｂｇｌ至ａｂｇ１５类似,本文只列出ａｂｇｌ子函数程序。&&５实例二———图例绘制软件本软件由用户在６页幻灯菜单中连续选取图例,给出一个插入图例的左上角点后,程序自动将所选择的图例按顺序逐项向下排列连续绘出。软件由Ａｕ&ｔｏＬＩＳＰ程序ａｔｌ．ｌｓｐ和６页幻灯以及近百个图块组成。幻灯文件为ａｔｌ１～ａｔｌ６．ｓｌｄ。图块名为ａｔｌａｂｃ．ｄｗｇ,ａｔｌ为前缀,ａ代表幻灯页序号,为１～６;ｂ代表幻灯菜单左右代码,左面为１,右面为２;ｃ代表幻灯菜单中上下序号,分别为１～８。&&本软件设计的核心思想是通过点的定位计算出的所对应的图例图块名,然后插入图例,多重选择由表处理语句来完成。本文中第７节的ｂ部分给出ａｔｌ．ｌｓｐ中与幻灯菜单有关的程序清单及注解。后面还有几个子函数,由于篇幅有限本文不详细列出程序,只做简单介绍:&&ｌａｓｔｓｌｄ子函数对幻灯名字符串进行运算,求出上一页幻灯名;&&ｎｅｘｔｓｌｄ子函数对幻灯名字符串进行运算,求出下一页幻灯名;&&ｓｅｔｎｉｌ子函数对各变量（必须包括ｗｈｉｌｌ）赋空值,并退出程序:&&ｓｅｔｏｋ子函数对被选择的图例表进行处理,并逐项连续插入图例。&&６小结&&ａ．标高标注程序是利用幻灯菜单调出相应的标高标注子程序。&&ｂ．图例程序是利用幻灯菜单给图例名称赋值,然后运用字符串处理和表处理技术求得图例名称的列表,从而连续逐项插入被选中的图例。&&ｃ．图例幻灯菜单分两个大区,上面是图例区,下面是幻灯菜单的操作区,可见幻灯菜单能做成复杂高效的菜单。&&７程序清单&&ａ．ａｂｇ．ｌｓｐ程序及注解;&&（ｄｅｆｕｎＣ：ＢＧＢＺ（）&&（ｓｅｔｑｗｈｉｌ１ｔ）&&（ｗｈｉｌｅｗｈｉｌ１）&&（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）&&（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″请点取标高种类″））&&（ｐｒｏｇｎ&&（ｒｅｄｒａｗ）&&（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）&&ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）&&ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）&&ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虚拟屏幕左下角）&&（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））&&（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））&&（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））&&（-（ｃａｄｒｐｃｅｎ（&&／ｈ３））））&&（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（／ｗ３））&&（+（ｃａｄｒｐｃｅｎ）（／ｈ３））））&&（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））&&（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））&&（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））&&（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））&&（ｓｅｔｐｘ（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））&&（ｓｅｔｑｙ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））&&（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））&&（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））&&（（＝ｎｎ１３）（ａｂｇ２））&&（（＝ｎｎ１２）（ａｂｇ３））&&（（＝ｎｎ１１）（ａｂｇ４））&&主程序ＢＧＢＺ开始&&设ｗｈｉｌ１值为真&&当ｗｈｉｌ１为真时执行下列程序&&显示幻灯在幻灯菜单中选点&&重画恢复原画面&&绘图区高&&绘图区中心点&&虚拟屏幕右上角&&共获取系统变量&&求绘图区宽&&有效区左下角,（有效区宽和高占绘图宽和高的三分之二）&&有效区右上角&&每格宽和高&&ＰＰ点的Ｘ和Ｙ坐标&&左下角点坐标&&ＰＰ点和ＰＰ０点Ｘ和Ｙ坐标差;&&Ｘ方向格序号&&Ｙ方向格序号&&将Ｘ和Ｙ连接&&多项选择条件函数&&ｎｎ＝１３时运行ａｂｅ２子函数&&（（＝ｎｎ２４）（ａｂｇ５））&&（（＝ｎｎ２３）（ａｂｇ６））&&（（＝ｎｎ２２）（ａｂｇ７））&&（（＝ｎｎ２１）（ａｂｇ８））&&（（＝ｎｎ３４）（ａｂｇ９））&&（（＝ｎｎ３３）（ａｂｇ１０））&&（（＝ｎｎ３２）（ａｂｇ１１））&&（（＝ｎｎ３１）（ａｂｇ１２））&&（（＝ｎｎ４４）（ａｂｇ１３））&&（（＝ｎｎ４３）（ａｂｇ１４））&&（（＝ｎｎ４２）（ａｂｇ１５））&&（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））&&）;ｃｏｎｄ）&&）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ&&（ｄｅｆｕｎａｂｇ１（）&&（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″输入起点″））&&（ｉｎｉｔｇｅｔ１）&&（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″标高值:″））&&（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））&&（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））&&（ｓｅｔｑｐ４（ｌｉｓｔ（+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））&&（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））&&（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２&&″＠３．２＜１３５″″＠１２．８＜０″″″&&″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……&&ｂ．ａｔｌ．ｌｓｐ程序及注解&&为１１-４４格规定功能,即每一格对应一个子函数&&主程序ＢＧＢＺ结束&&定义ａｂｇ１子函数&&标高符号起点&&不接受空值&&标高值&&计算各点位置&&标高为０时加“±”&&画标高符号&&写标高值ｃｏｍｍａｎｄ&&ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ&&ｂｇ２～ａｂｇ１５子函数省略&&（ｄｅｆｕｎＣ：ＴＬ（）&&（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）&&（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）&&（ｐｒｏｍｔｐ″＼ｎ给排水图例程序—ＢＥＲＩＳ″）&&（ｗｈｉｌｅｗｈｉｌ１&&（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））&&（ｉｎｉｔｇｅｔ１）&&（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ请连续点取图例,并点取〈确定〉″））&&（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））&&（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））&&图例绘制主程序&&赋初始值&&图例图块路径&&提示&&当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）&&不接受空值&&以下内容同标高标注程序&&（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））&&（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））&&（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））&&（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））&&（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））&&（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））&&（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））&&（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））&&（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））&&（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））&&（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））&&（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））&&（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））&&（ｓｅｔｑａｏｒｂ″１″）&&（ｓｅｔｑａｏｒｂ″２″））&&（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））&&（ｓｅｔｑｂｌｋｎａｍｅ&&（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））&&（ｄｅｆｕｎｄｑ２（）&&（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））&&（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））&&（（＝ｘｈ１２）（ｎｅｘｔｓ&&&&&ｌｄ））&&（（＝ｘｈ１３）（ｓｅｔｎｉｌ））&&（（＝ｘｈ１４）（ｓｅｔｏｋ））））&&（ｄｅｆｕｎｌａｓｔｓｌｄ（））&&（ｄｅｆｕｎｎｅｘｔｓｌｄ（））&&（ｄｅｆｕｎｓｅｔｎｉｌ（））&&（ｄｅｆｕｎｓｅｔｏｋ（））&&如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数&&点落在左面ａｏｒｂ为１&&点在右面ａｏｒｂ为２;ｉｆ&&计算纵向序号计算图例图块名（由４部分连接组成）&&ｄｑ１结束&&定义ｄｑ２子函数&&计算横向序号&&运行ｌａｓｔｓｌｄ子函数,向前翻页&&运行ｎｅｘｔｓｌｄ子函数,向后翻页&&运行ｓｅｔｎｉｌ子函数,赋空退出运行ｓｅｔｏｋ子函数,插入图例&&定义ｌａｓｔｓｌｄ子函数,略&&定义ｎｅｘｔｓｌｄ子函数,略&&定义ｓｅｔｎｉｌ子函数,略&&定义ｓｉｔｏｋ子函数,略&&
本栏目更多导读：洪泽那里有CAD培训班？回复 谢谢！_百度知道
洪泽那里有CAD培训班？回复 谢谢！
我有更好的答案
锦杭百货旁边
呵呵！我也想办个培训班！现在学这个的人真多！
其他类似问题
为您推荐：
洪泽的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急……为什么我的CAD用07版本+天正8.2画的，但转存为04版本或者图形导出为R14版本之后用04版本就打不开…_百度知道
急……为什么我的CAD用07版本+天正8.2画的，但转存为04版本或者图形导出为R14版本之后用04版本就打不开…
04CAD或者04CAD+天正都打不开……一打开？我电脑同时安装了04和07版本的CAD，出现这个问题后我重新安装了07版本CAD和天正暖通8.2，04CAD或者04CAD+天正就卡死！，可是问题还是没解决……谢谢大家！，只能用07版本打开或者07版本+天正打开……什么原因呢
提问者采纳
0及以上的版本安装在07或以上的版本上之后画出来的图转版本后相当的卡。可以考虑06版本的cad试试，而且相当不稳定：jiao。邮箱，太多问题了.2和高版本的cad。07的cad最好别用，天正8，处理后返还。如果你想彻底解决这个问题的话建议不要将高版本的天正安装在不稳定的cad版本上。 我的电脑上有天正8，如果你的问题得不到解决的话可以将图纸发给我07版本的cad很不好用
恩 谢谢……我今天把图纸修复之后转出来的图能用04CAD或者04CAD+天正打开了……但是没有转的图用04版本打开还是要卡死……我用过06版的CAD。但是是试用，已经试用完了……而我的07CAD可以无限期用，所以才一直在用07CAD。虽然安装了04，但没用习惯……如果我又遇到这种问题我一定找你帮忙处理一下……谢谢！
如果你想要06的cad可以联系我，免费提供，邮箱已经告诉你了。
提问者评价
谢谢你，请发06版CAD至我邮箱吧……89***（我已用此邮箱给你发了一封邮件了）
其他类似问题
为您推荐：
其他3条回答
天正菜单里面不是有个文件布图吗，选择导出为天正三格式试试。
试过……导出来的图是CAD的最低版本R14和t3格式，但是还是打不开……在其他电脑上也打不开……只能用07版或者07版本+天正打开。总之经过天正导出来的图用04版本或者04版本+天正都打不开，只能用07版或者07版本+天正打开。但是没经过天正图形导出的话，能用04版CAD打开，但是不能显示天正画的图。我是想把我的图给他人……而他人的CAD只有04版本，并且没有安装天正……所以我要导出为04版本的CAD……谢谢
你要传给别人吗？如果只是给人家看的话，转成JPG、PDF之类的不是更加好？要不你再试试转成为.DXF文件，或者存为2007版本的天正3，看看能不能打开？能打开就继续存为R14的T3
还是不行……只有过一段时间来看了……前一段时间都没出现这个问题而可以正常打开……谢谢你！！
你可以试试 ，，单独用你的07 转为04的不用天正+07转，，因为天正 破解版本太多，大多数都有缺陷
建议使用08版本的CAD配天正8.2，我就是这么用的，相当稳定。CAD单数年版本的似乎都不大好用！现在08破解版到处有下！自己搜下！
恩好谢谢……我试试……
天正8的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁华硕电脑windins10怎么恢复出厂设置_百度知道
华硕电脑windins10怎么恢复出厂设置
如果您用的是正版Win10中文版是有一键还原的（专业版以上版本的系统99%是盗版的，如果是升级到Win10的中文版也是没有的），如果是盗版是没有的，是需要您准备的，在说一下，如果您的电脑卡机了、进不了系统或开不了机，即使有还原也是没用的，这时就需要重装了。 Win10怎么还原系统（有一个前提，如果您的电脑死机、蓝屏、开不了机，还原的方法基本无效，这时就需要重装了） 如果您开启了系统的还原，如果您备份了映像备份，如果您下载了还原软件软件，如果您预装的是正版系统，如果全没有，您就不能还原系统就重装后在做上面的准备，下次在出事就可以还原了。 1）右击计算机选属性，在左侧选系统保护，在保护设置中选择要保护的磁盘，点选上面的还原系统设置和以前版本的文件，在选磁盘使用量大小按确定，保护几个盘就设置几个盘，按上面的方法设置。这样系统会自动备份，也可手动备份，选择这个页面最下面创建，自己创建还原点。还原方法是：Win10还原系统，右击计算机选属性，在右侧选系统保护，系统还原，按步骤做就是了。旦袱测惶爻耗诧同超括 2）创建映像方法：打开控制面板，在系统和安全中选通过文件历史保存你的文件备份副本，在打开的页面左下角等会，在选创建系统映像，按要求做就是了。3）预装正版系统还原的方法：（Win7家庭版Win810中文版是正版，专业版以上版本的系统99%是盗版的） 建议咨询品牌客服会告诉您方法，因为品牌不一样，方法也不一样。
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁