电力系统上的webdraw -

vgraphvgraph

浏览: 31388 次
性别:
来自: 北京

最近访客更多访客>>

tr14466

pujing

老A不折腾

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (34)

社区版块

存档分类

电力系统上的webdraw

F#Web VBScript EXT 脚本

电力系统上的webdraw<o:p></o:p>

现在的许多电力系统都是基于WEB平台运行的。所以在涉及到电力图，线路图，接线图，设备图，配网图，SCADA图形仿真监控图，电网拓扑图，电厂图农电网网等图形的系统时，由于图形系统的复杂性决定，许多电力系统在图形这一模块表现得相当薄弱，很多时候没有达到专业的水准，为什么呢？

因为缺少专业的实用的易用的方便的图形平台，现在要想在WEB系统上运行一些线路图，主接线图，在线绘制电力图等系统，那么北京图王软件的Visual Graph专业图形引擎平台是不二选择。

<v:shapetype o:spt="75" coordsize="21600,21600" filled="f" stroked="f" id="_x0000_t75" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:extrusionok="f" o:connecttype="rect" gradientshapeok="t"></v:path><o:lock v:ext="edit" aspectratio="t"></o:lock></v:shapetype><v:shape id="_x0000_i1025" type="#_x0000_t75" alt="" style="WIDTH: 407.25pt; HEIGHT: 285pt"><v:imagedata o:href="http://vgraph.blog.51cto.com/album/181932/121636418564.jpg" src="file:///C:\DOCUME~1\h\LOCALS~1\Temp\msohtml1\01\clip_image001.jpg"></v:imagedata></v:shape>

这个例子的VBS（JS）实现代码只有二十行左右，不得了啊！二十行多代码的代码就能实现如此丰富的专业功能：

<!--<o:p></o:p>

Sub window_onload<o:p></o:p>

vg1.Design ""<o:p></o:p>

s = vg1.SystemParams.DefaultPath<o:p></o:p>

vg2.Run s + "listview.tbl"<o:p></o:p>

vg2.Width = 180<o:p></o:p>

vg3.Run s + "toolbar.tbl"<o:p></o:p>

vg1_OnSheetChange( vg1.vg.ActiveSheet )<o:p></o:p>

vg3.vg.Execute "btnPaste.Enable=true"<o:p></o:p>

vg4.Run s + "propedit.tbl"<o:p></o:p>

vg4.vg.ActiveSheet.SetPropertyValue "selected", vg1.vg.ActiveSheet.Selection<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg1_OnSheetChange( ASheet )<o:p></o:p>

if not ( vg2.vg is Nothing ) then<o:p></o:p>

vg2.vg.ActiveSheet.SetPropertyValue "cursheet", vg1.vg.ActiveSheet<o:p></o:p>

end if<o:p></o:p>

if not ( vg3.vg is Nothing ) then<o:p></o:p>

vg3.vg.ActiveSheet.SetPropertyValue "cursheet", vg1.vg.ActiveSheet<o:p></o:p>

end if<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg1_OnSelectChange<o:p></o:p>

if not ( vg4.vg is Nothing ) then<o:p></o:p>

vg4.vg.ActiveSheet.SetPropertyValue "selected", vg1.vg.ActiveSheet.Selection<o:p></o:p>

end if<o:p></o:p>

vg3.vg.Execute "OnSelectChange()"<o:p></o:p>

vg3.vg.Execute "btnUndo.Enable=CurSheet.Owner.CanUndo()"<o:p></o:p>

vg3.vg.Execute "btnRedo.Enable=CurSheet.Owner.CanRedo()"<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg1_OnModifyChange( m )<o:p></o:p>

if not ( vg3.vg is Nothing ) then<o:p></o:p>

vg3.vg.Execute "btnSave.Enable=CurSheet.Owner.Modified"<o:p></o:p>

end if<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg1_OnRButtonDown( x, y )<o:p></o:p>

vg1.vg.Execute( "menu=Create(systemparams.defaultpath+'popupmenu1.tbl', true, false);menu.ActiveSheet.CurSheet = ActiveSheet; px = 0; py = 0; GetCursorPos( px, py ); menu.Popup( px, py ); menu.Free()" )<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg1_OnError(s)<o:p></o:p>

MsgBox s<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg2_OnError(s)<o:p></o:p>

MsgBox s<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

Sub vg3_OnError(s)<o:p></o:p>

MsgBox s<o:p></o:p>

End Sub<o:p></o:p>

<o:p> </o:p>

--><o:p></o:p>

</SCRIPT><o:p></o:p>

</head><o:p></o:p>

<o:p> </o:p>

<o:p> </o:p>

</object><o:p></o:p>

</td><o:p></o:p>

</tr><o:p></o:p>

</object><o:p></o:p>

</td><o:p></o:p>

</object><o:p></o:p>

</td><o:p></o:p>

</object><o:p></o:p>

</td><o:p></o:p>

</tr><o:p></o:p>

</table><o:p></o:p>

<o:p> </o:p>

</body><o:p></o:p>

<o:p> </o:p>

</html>

<o:p> </o:p>

由于是在Html与JS/VBS基于Visual Graph图形引擎平台开发而成的。我们看一下CAB插件包的大小，突然发现只有400k。更令人叫绝的是400k的CAB里面包括有所有界面源码（自己可以定制Onlinedraw的所有界面以及所有动作行为，作为电力系统当中的多样性，其400K就已经可以无限更改其行为，而且还很简单。）以及Visual Graph的核心：vg.dll。

从这个例子，我们可以看到实现一个WEB上的电力绘图系统，电力图形系统，那是很方便快捷。其图形功能列举几项如下：

1.图形技术相当完善：多页面、多图层、表格图形混排、透明度、自由旋转、动画效果、自定义线型、网纹、箭头、自定义任意多个文字标注、自定义图元连接点、自定义光标、图形保护、控制点，支持图形的逻辑分组，允许图元嵌套构建更复杂的图元。

2.包含编辑与运行状态，可以任意操纵与控制图形变化，实现各种仿真与建模。

3.图形和图库是统一的XML格式，便于传输、存储和维护，支持WEB开发。

4.响应众多的图形操作事件，任意给图形添加属性成函数，任意自定义图形。

5.可以建立和分析图形间的任意拓朴连接关系，实现各种逻辑运算与控制。

6.内含面向对象的Visual Graph脚本语言，简洁易用的COM类库接口。

7.每个图形都是对象，拥有众多的属性和函数，可以方便地编辑和操纵。

8.支持报表开发，表格高度智能，可以制作超酷图形界面，轻松换肤。

9.非常容易地开发出任何复杂变化的图形，轻松实现自己的图形库。

10VBS、JS可以操控Visual Graph的一切，VG的内嵌脚本与VBS、JS可以交互控制。

<v:shape id="_x0000_i1026" type="#_x0000_t75" alt="" style="WIDTH: 462pt; HEIGHT: 335.25pt"><v:imagedata o:href="http://vgraph.blog.51cto.com/album/181932/121600674909.jpg" src="file:///C:\DOCUME~1\h\LOCALS~1\Temp\msohtml1\01\clip_image003.jpg"></v:imagedata></v:shape><o:p></o:p>

<o:p></o:p>

<o:p>北京图王软件：http://www.visual-graph.com </o:p>

分享到：