Surfer二次开发在海岸工程中的应用.pdfVIP

Surfer二次开发在海岸工程中的应用.pdf

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第十三届中国海洋(岸)工程学术讨论会论文集 Surfer二次开发在海岸工程中的应用 王恺 (南京水利科学研究院,江苏南京210024) Scripterqb编程,实现了海岸工程中数据文件的批处理,包括自动生成网格文件、滤波、白化、绘等值线图、填充、添加基 面图、覆盖地图等常用方法。文中给出了脚本程序代码以及实现VB与Suffer混合编程的关键性技术的描述。最后以海南某港 的波浪数模计算为例,计算考虑了不同设计方案、不同波向、不同波浪重现期与水位重现期的组合,生成大批数据文件,应 用本文的方法进行批处理,得到令人满意的效果,大大提高了工作效率。 关键词:suffer;二次开发;scripter;批处理 1 引 言 Suffer是美国Golden 二维绘图和数据处理能力,并有一定的三维显示功能,是专门针对绘图的软件。从Suffer7开始,软件增加 了Automation技术,支持VisualBasec(简称VB)编程语言的二次开发。 Suffer是目前在国内外海岸工程中使用较为广泛的数据可视化应用软件之一,它支持多种数据格式, 功能强大、产品结果实用美观,是一款优秀的海岸工程数据二维可视化应用软件。但在以往使用Suffer进 行数据可视化过程中,一般是采用操作菜单项的方式,逐项调整参数、处理数据。如果将此方法应用于大 批量数据的可视化时,会消耗工作人员大量的精力与时间,很不经济,还容易因工作人员误操作而引起错 误。但在海岸工程中,如数模计算或物模实验,往往会产生大批量的数据文件,为了解决上述问题就需要 编辑suffer脚本程序以实现数据文件的批处理。 2利用Scripter编辑器实现数据文件批处理 UserDialog编辑器、断点、监事窗口、立即窗口等。一个脚本由若干命令组成,脚本运行时命令被逐条执 行,其命令格式类似于Basic语言。 2.1 Suffer的ActiveX技术 Model,部件对象模型)的技术集,它与 ActiveX是Microsoft提出的一组基于COM(ComponentObject 具体的编程语言无关…,旨在windows系统的统一管理下,协调不同的应用程序,使之可以相互沟通、相互 控制。 2.2 suffer的对象简介 Suffer的主要对象如图1所示uJ。 Selection, Documents,Grid,Imagemap,Level,Levels,MapFrame,Overlays,PlotDocucment, Shapes,Shapes,VectorMap等。 用CreatObject() Application对象代表Suffer应用程序实例,是其他Suffer对象的根;在scripter中, 创建对象,具体方法如下: DimsurfAs Object Set surf=CreateObject(”suffer.application”1 然后,就可以使用这个对象所包含的各种方法和属性实现对Suffer的调用。 410 第十三届中国海洋(岸)工程学术讨论会论文集 》Clickredarrowto chart expand 图1 常用surfer对象的层次关系 2.3 实现批处理的程序代码 SubMain DimsurfAs Object Set surf=CreateObiect(”suffer.application”、 ’创建Suffer的ActiveX对象 Dim As file,gridfileString path=”d:\batch\’’ ext=”术.dat” file=Dir(path+ext) Whilefile””

文档评论(0)

whl005 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档