原创 WEB上画接线图的在线绘图系统构造

 2008-12-23 14:08  2162 3 3 分类: 工业电子

一、现在在电力行业里面，已经有许多信息系统了（电力信息系统，设备管理系统，办公自动化系统……），但在所有的信息系统当中，还欠缺一个基础性的性系统，那就是在线绘图系统，在电力行业里面，需要许多定制的绘图系统用于绘一次接线图，低压设备图，配网图，操作票，线路图……。那么如果这些图的绘制工具不再局限于C/S的CAD等绘图工具，而且可以在IE上进行定制性的快速绘电力相关的图，那么信息系统的功能就会大大扩展了，那么先前的信息系统就可以改进成一个完整的电力系统平台了，不仅仅拥有先前的信息管理的功能，还可以进行图纸绘制管理，电力数据实时监控，电力分析系统（线损、潮流、状态、短路、功率、设备、检修等分析）。

那么如何快速设计或构造一个在线图形监控，在线图形绘制，在线图形分析的系统呢？就像：

二、在线图形系统的设计与构造。

一个在线图形系统的架构如下：

不管是什么服务器后台语言是什么，我们要的只是在IE浏览器端，可以进行图库绘图，图元属性设置，还有保存图形文件，那么功能上也就可以满足了。

然后再从实时数据库里面抽取数据显示在图形里面，那么就可以在线实时监控。VG的图形平台打包起来也不过400K，所以很容易在互联网上传输配置运行。

在把VG放进HTML里面像Flash一样的用<object>标签使用VG。例如：

</object>

三、那么如何在Html调用VG里面的功能呢？

利用JS、VBS调用VG的COM接口的函数，类，事件。

<?xml:namespace prefix = o />

Sub window_ 实现调用IE控件里面的页面窗口加载事件onload。

vg1.Design ""’调用VG的Design函数

s = vg1.Execute( "return SystemParams.DefaultPath" ) ‘调用VG的Execute函数

vg2.Run s + "listview.tbl"’调用VG的Run函数

vg2.Width = 180

vg3.Run s + "toolbar.tbl"

vg1_OnSheetChange( vg1.ActiveSheet )

vg3.Execute "btnPaste.Enable=true"

vg4.Run s + "propedit.tbl"

设置VG图形里面的一个自定义属性。

vg4.ActiveSheet.SetPropertyValue "selected", vg1.ActiveSheet.Selection

vg2.execute("libs1.loadlib('http://127.0.0.1/lib/电力设备.tbl','电力设备')")

'这是加载自定义的图库，路径可以是本地路径，也可以是HTTP的URL路径。

End Sub

Sub vg1_OnSheetChange( ASheet )’实现调用控件VG１的OnSheetChange事件。

if not ( vg2.ActiveSheet is Nothing ) then

vg2.ActiveSheet.SetPropertyValue "cursheet", vg1.ActiveSheet

end if

if not ( vg3.ActiveSheet is Nothing ) then

vg3.ActiveSheet.SetPropertyValue "cursheet", vg1.ActiveSheet

end if

End Sub

</SCRIPT>

　Visual Graph是一套强大的交互图形开发平台，她能非常方便地建造基于图形的界面、制作各种图形元件、实现图形管理、图形建模、制作监控系统、表单系统、绘图系统、流程设计、CAD软件等。她提供功能非常强大的ActiveX核心组件，和其他流行的编程语言共同工作，极大地弥补了这些语言在图形处理方面的不足。也可以嵌入IE浏览器中，实现网上图形编辑和控制等。

　　Visual Graph专门处理交互图形，与具体业务无关，她提供了十分丰富规范的交互事件和图形控制命令，内置结构简单开放的脚本语言，使程序员能够专心编写后台系统等与图形无关的部分，体系结构十分清晰。

北京图王软件开发有限公司：http://www.visual-graph.com

写原创有奖励！2024面包板原创奖励正在进行中