结构分析软件SAP2000建模的二次开发技术_傅建清

这样就在程序中创建了一个楼层数为 ３，开间数为３，楼层高度为１２４英寸，开间为 ２００的二维门式框架。
４ 结语 ＳＡＰ２０００已经发展成为一个集成化的
建筑结构分析与设计软件，它采用独特的 图形操作界面系统（ＧＵＩ），利用面向对象的 操作方法来建模，编辑方式与ＡｕｔｏＣＡＤ类 似，可以方便地建立各种复杂的结构模型， 同时辅以大量的工程模板，大大提高了用 户建模的效率，并且可以导入导出包括 ＡｕｔｏＣＡＤ在内的常用格式的数据文件，极 大方便了用户的使用。在ＳＡＰ２０００功能如此 强大的基础上，为了方便用户解决特定的 问题，这些问题可能不需要使用ＳＡＰ２０００直 接进行建模，或者是虽然ＳＡＰ２０００的功能如 此强大，但实际的工程的项目仍然有可能 非 常 复 杂 。研 究 单 位 针 对 这 些 专 门 领 域 的 工程项目，一般都有多年甚至数十年的专 门研究，有可能发展了一套专有的或扩展 了通用分析计算软件，但一般来说，这些程 序 都 缺 少 好 的 前 后 处 理 模 块 。那 么， 通过二 次开发技术，这些专有的或扩展的计算模 块，完全可以无缝的集成到ＳＡＰ２０００平台
４ 结语 在灭火救援作战中，指挥车作为现场
指挥的中心，其地位是显而易见的，火场指 挥部通过车上的各种设施了解现场情况，
参考文献 ［１］ 郑 娟 毅 ，石 明 卫 ． ８ ０ ２·１ １ 无 线 局 域 网 技
术及其发展［Ｊ］．西安邮电学院学报，２００６ （３）：１９～２２． ［２］ 钟涛．无线监控及防盗产品在安防工程 中的应用［Ｊ］．安防科技，２００３（６）． ［３］ 郝 利 华 ， 宋 文 爱 ． 无 线 便 携 式 射 线 图 像 采集传输处理系统研究［Ｊ］．测试技术学 报，２００３（２）．
３ 完整的实例代码 把以上描述的步骤应用到创建一个二
维框架模型的例子中，其完整的ＶＢＡ代码 如下：
Ｓｕｂ ＭｙＰｒｏｇｒａｍ（） ＇定义变量 Ｄｉｍ ＳａｐＯｂｊｅｃｔ Ａｓ ＳＡＰ２０００． ＳａｐＯｂｊｅｃｔ
（ 下转 ３ ０ 页）
２ ＳＡＰ２０００二次开的主要步骤
从ＳＡＰ２０００ Ｖ１１．００版开始ＣＳＩ公司为图２ 多路火灾图像传输系统的构成
内，摄像机采集火场内部的情况，发射端将 摄到的图像及声音变成电波信号经窗户等 空 隙 传 出 火 场 。对 于 火 场 外 部 情 况， 可以在 不同部位布置几个摄像发射端，由侦察员 肩扛或架设方式，从不同角度传送火场图 像，给指挥人员提供全方位的火场信息。 ３ ． ２ 接收端
第五步：释放模型和对象占用的空间， 代码是Ｓｅｔ ＳａｐＭｏｄｅｌ＝ Ｎｏｔｈｉｎｇ
Ｓｅｔ ＳａｐＯｂｊｅｃｔ＝ Ｎｏｔｈｉｎｇ‘这是很重要 的一步，它中断了你的应用程序和ＳＡＰ２０００ 应用程序的连接，并释放系统资源，如果你 没有写上面代码，ＳＡＰ２０００应用程序就没有 完全终止，你可以在任务管理器中看到它 仍在运行。
火场环境一般比较复杂，遮挡严重，总 有某些方位的火场图像信号指挥车不能直 接接收，而要借助中继设备，这是由于无线
局域网的低功率和高频率限制了其覆盖范 围而造成的。 ３ ． ４ 多路传输
在灭火救援工作中，往往同时需要火 场 外 部 不 同 角 度 、火 场 内 部 的 现 场 图 像，这 需 要 配 置 几 套 采 集 发 射 、中 继 设 备 和 能 够 接 收 几 路 信 号 的 接 收 设 备 。与 发 射 端 对 应 的接收机解出不同的图像信号，通过画面 分割器在一个监视器上同时显示出来，还 可单独显示某一路图像信号，供指挥人员 仔细观察某一方位现场情况，此时系统构 成如图２所示。
Ｓｅｔ ＳａｐＭｏｄｅｌ＝ＳａｐＯｂｊｅｃｔ．ＳａｐＭｏｄｅｌ ＇初始化模型 ｒｅｔ＝ＳａｐＭｏｄｅｌ． ＩｎｉｔｉａｌｉｚｅＮｅｗＭｏｄｅｌ ＇调用Ｓａｐ２０００ ＡＰＩ函数执行所需完 成的任务 ＇从模板中创建一个二维门式框架 ｒｅｔ ＝ ＳａｐＭｏｄｅｌ．Ｆｉｌｅ． Ｎｅｗ２ＤＦｒａｍｅ（ＰｏｒｔａｌＦｒａｍｅ，３，１２４，３，２００） ＇关闭 Ｓａｐ２０００应用程序 ＳａｐＯｂｊｅｃｔ．ＡｐｐｌｉｃａｔｉｏｎＥｘｉｔ Ｆａｌｓｅ ＇释放系统资源 Ｓｅｔ ＳａｐＭｏｄｅｌ ＝ Ｎｏｔｈｉｎｇ Ｓｅｔ ＳａｐＯｂｊｅｃｔ ＝ Ｎｏｔｈｉｎｇ Ｅｎｄ Ｓｕｂ 程序最后的运行结果如图１所示。
１ ＳＡＰ２０００ 介绍 ＳＡＰ２０００是由美国Ｃｏｍｐｕｔｅｒｓ ａｎｄ
Ｓｔｒｕｃｔｕｒｅｓ Ｉｎｃ．（ＣＳＩ）公司开发研制的通用 结构分析与设计软件。ＳＡＰ２０００已有近４０年 的发展历史，是美国乃至全球工人的结构 分 析 计 算 程 序， 在 世 界 范 围 内 广 泛 应 用 。工 程 师 可 以 在 同 一 个 界 面 中 完 成 建 模 、分 析 和设计，可以通过不同的视图窗口将结构 的 模 型 信 息 、分 析 结 果 和 设 计 结 果 同 时 展 现给用户，而且可以在不同显示含义的视 图中直接进行与该显示状态相关的操作， 比如， 在 模 型 信 息 中 查 看 修 改 模 型 信 息 、在 分析结果显示视图中选择显示构件的内力 详 细 输 出 、在 设 计 结 果 中 进 行 构 建 的 交 互 式设计等。设计方面，ＳＡＰ２０００采 用 传 统 设 计方式与交互式图形方式相结合进行结构 设计，这种设计方式可以大大提高工程师 的效率。
（ 上接 ２ ８ 页）
Ｄｉｍ ＳａｐＭｏｄｅｌ Ａｓ ｃＳａｐＭｏｄｅｌ Ｄｉｍ ｒｅｔ Ａｓ Ｌｏｎｇ ＇创建ＳＡＰ２０００对象的一个实例 Ｓｅｔ ＳａｐＯｂｊｅｃｔ ＝ Ｎｅｗ ＳＡＰ２０００． ＳａｐＯｂｊｅｃｔ ＇启动Ｓａｐ２０００应用程序 ＳａｐＯｂｊｅｃｔ．ＡｐｐｌｉｃａｔｉｏｎＳｔａｒｔ ＇创建ＳＡＰ２０００模型对象
信 息 技 术
下 达 作 战 命 令 。但 是， 目 前 多 数 消 防 指 挥 车 仅仅具有通讯功能， 图 像 功 能 很 弱 。利用无 线局域网技术的现场图像传输方案，可以 将火灾事故现场外部不同方位及现场内部 的情况实时传输到指挥车上，供现场指挥 员 直 观 、准 确 、全 面 地 了 解 火 场 的 发 展 变 化 情况，从而准确判断火灾的发展态势，及时 做出正确的决策，组织火灾的扑救，尽快扑 灭火灾，同时也便于火灾现场资料的保存。
我们了对其进行二次开发的技术文档，里
面包括上千个应用程序接口函数（ＡＰＩ），这
使 得 用 户 创 建 、分 析 、设 计 模 型 的 过 程 自 动
图１
２８ 科技资讯 ＳＣＩＥＮＣＥ ＆ ＴＥＣＨＮＯＬＯＧＹ ＩＮＦＯＲＭＡＴＩＯＮ
科技资讯 ２００９ ＮＯ．０６ ＳＣＩＥＮＣＥ ＆ ＴＥＣＨＮＯＬＯＧＹ ＩＮＦＯＲＭＡＴＩＯＮ
化完成，并能获得用户定制的分析与设计 结 果 。这 样 做 可 以 省 去 许 多 创 建 模 型 的 中 间过程，只根据用户的实际需求创建模型， 大 大 缩 短 了 结 构 模 型 的 创 建 、分 析 时 间，省 时省力。对ＳＡＰ２０００进行二次开发这一过程 主要是利用组件对象模型技术，在进程外 创 建 组 件 。可 以 使 用 大 多 数 主 要 的 编 程 语 言通过ＡＰＩ函数来创建一个ＳＡＰ２０００进程。 这包括ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ）、 Ｖｉｓｕａｌ Ｂａｓｉｃ ２００５、Ｖｉｓｕａｌ Ｃ＃ ２００５、Ｉｎｔｅｌ Ｖｉｓｕａｌ Ｆｏｒｔｒａｎ ｖ９。由于ＶＢＡ简单易学，并 被嵌入到了Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ中，可以直接利 用 它 编 写 程 序 ， 所 以 ，文 章 采 用 Ｖ Ｂ Ａ 以 创 建 一个二维框架模型为例说明对ＳＡＰ２０００进 行 二 次 开 发 的 主 要 步 骤 。第 一 步 ： 要 使 用 ＳＡＰ２０００的ＡＰＩ，就要在外部应用程序中添 加对ＳＡＰ２０００的引用，本例从Ｍｉｃｒｏｓｏｆｔ Ｅ ｘ ｃ ｅ ｌ 中 添 加 对 其 Ｓ Ａ Ｐ ２ ０ ０ ０ 的 引 用 。启 动 Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ，选择工具→宏→Ｖｉｓｕａｌ Ｂａｓｉｃ编辑器，打开ＶＢＡ编辑器。插入模块后 选 择 工 具 → 引 用 ， 在“ 引 用 ”对 话 框 中 勾 选 ＳＡＰ２０００复选框，这样就添加了对ＳＡＰ２０００ 的引用。第 二 步：创建一个ＳＡＰ２０００对象实 例 。代 码 Ｄ ｉ ｍ Ｓ ａ ｐ Ｏ ｂ ｊ ｅ ｃ ｔ Ａ ｓ Ｓ Ａ Ｐ ２ ０ ０ ０ ． ＳａｐＯｂｊｅｃ‘ｔ 创建对象变量Ｓｅｔ ＳａｐＯｂｊｅｃｔ ＝ Ｎｅｗ ＳＡＰ２０００．ＳａｐＯｂｊｅｃ‘ｔ 创建ＳＡＰ２０００对 象实例。第 三 步：启动ＳＡＰ２００程序。代码是
１ ＳＡＰ２０００二次开发的意义 １ ． １ 对软件产品的功能进行扩充或根据特 殊需要组合扩展功能
由于ＳＡＰ２０００软件系统提供了相应的 软件开发包ＳＤＫ（Ｓｏｆｔｗａｒｅ ｄｅｖｅｌｏｐ ｋｉｔ）。二 次开发人员可以根据ＳＤＫ中提供的公开的 Ａ Ｐ Ｉ （应 用 程 序 接 口 ）来 访 问 软 件 原 有 的 一 些基本功能，并要据这些基本功能组合，扩 展进而形成更加专业或新的功能以完成用 户特殊的需求。 １ ． ２ 与第三方软件无缝地连接
ＳａｐＯｂｊｅｃｔ．ＡｐｐｌｉｃａｔｉｏｎＳｔａｒｔ。至此，你可以打 开一个已经存在的模型，也可以创建一个 新 模 型 。第 四 步 ： 定 义 一 个 模 型 对 象 ， 用 ＳａｐＭｏｄｅｌ代替ＳａｐＯｂｊｅｃｔ．ＳａｐＭｏｄｅｌ，代码是 Ｄｉｍ ＳａｐＭｏｄｅｌ Ａｓ ｃＳａｐＭｏｄｅ
Ｓｅｔ ＳａｐＭｏｄｅｌ＝ ＳａｐＯｂｊｅｃｔ．ＳａｐＭｏｄｅｌ 当 完成了模型的创建后，你可以关闭Ｓａｐ２０００ 应用程序，代码是ＳａｐＯｂｊｅｃｔ．ＡｐｐｌｉｃａｔｉｏｎＥｘｉｔ Ｔｒｕｅ
停放在火场附近的指挥车装有系统的 接收端，接收由火场发射端发送的电波信 号， 转 换 成 图 像 、声 音 送 给 指 挥 车 上 的 监 视 器，指挥员能够实时看到火场情况听到现 场 声 音 ， 及 时 正 确 地 指 挥 灭 火 工 作 。如 需 要，还可录像，便于资料保存。 ３ ． ３ 中继设备