skyline应用-BS动态绘制面状区域-创新互联
在三维GIS的规划、公安等应用系统中,常需要操作者在地图上动态勾画出面状区域,以便用来观看,并能够进行保存查看。
创新互联公司是一家集网站建设,邛崃企业网站建设,邛崃品牌网站建设,网站定制,邛崃网站建设报价,网络营销,网络优化,邛崃网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。skyline的BS开发是采用JavaScript语言进行开发,最新版的6.6可以支持chrome、Firefox、IE浏览器,但随着chrome的更新,不再支持npgapi的方式,最新版的chrome上会失效,一直以来在IE浏览器上的支持比较稳定,建议在IE上开发使用。
面状区域绘制类似于TerraExplorer上的画面操作,只是这个用程序实现。
具体步骤如下:
在开始进行标绘时,首先仿照TE的方式,先将鼠标的样式变化一下,之后进行事件绑定
//变换鼠标的样式,定义全局使用对象
SGWorld.Window.SetInputMode(1,"",0);
LbFlags=true;
polygon=null;
//绑定TE的三个事件:左键、右键、每帧变化 SGWorld.AttachEvent("OnLButtonDown", OnleftbtnUp); SGWorld.AttachEvent("OnRButtonDown", OnRButtonUpp); SGWorld.AttachEvent("OnFrame", Onframe); //OnleftbtnUp、OnRButtonUpp、Onframe是三个事件的具体实现,使用JavaScript的function即可; //左键事件实现 function OnleftbtnUp(Flags,X,Y) { if (LbFlags) { //首先获得屏幕上点击的左键鼠标的地图位置,需要将鼠标位置转换地图坐标 var CursorCoord = SGWorld.Window.pixelToWorld(X, Y); if (CursorCoord == null) return false; if (polygon == null) { // 在进行画面的时候,通常是先画一条线,因为一个面至少需要3个点 var myGeometry = SGWorld.Creator.GeometryCreator.CreateLineStringGeometry([CursorCoord.Position.x, CursorCoord.Position.y, 0, CursorCoord.Position.x, CursorCoord.Position.y, 0]); polygon = SGWorld.Creator.createPolyline(myGeometry, SGWorld.Creator.CreateColor(255, 255, 0, 1), 2, -1,"gPolylineText"); polygon.LineStyle.Width = 1; polygon.Geometry.StartEdit(); } else { if (polygon.ObjectType == 1) { //当有3个点的时候,就把前边画的线给删除掉 var x = polygon.Geometry.Points.Item(0).X; var y = polygon.Geometry.Points.Item(0).Y; SGWorld.Creator.DeleteObject(polygon.ID); // 开始画面 var myGeometry = SGWorld.Creator.GeometryCreator.CreateLinearRingGeometry([x, y, 0, CursorCoord.Position.x, CursorCoord.Position.y, 0, CursorCoord.Position.x, CursorCoord.Position.y, 0]) polygon = SGWorld.Creator.createPolygon(myGeometry, SGWorld.Creator.CreateColor(255, 255, 0, 255), SGWorld.Creator.CreateColor(255, 255, 0, 255), 2, 0, "gPolygonText"); polygon.LineStyle.Width = 1; polygon.Terrain.GroundObject = true; polygon.Geometry.StartEdit(); } else { //编辑面的环中点,并增加点 polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).X = CursorCoord.Position.x; polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).Y = CursorCoord.Position.y; polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).Z = 0; polygon.Geometry.Rings(0).Points.AddPoint(CursorCoord.Position.x, CursorCoord.Position.y, 0); } } } } //每帧事件,实现在没有完成画面的时候,面的最后一个跟随鼠标移动 function Onframe() { if (polygon != null) { try { //获得当前鼠标的位置,使面的最后一个点随着鼠标移动 var mouseInfo = SGWorld.Window.GetMouseInfo() var CursorCoord = SGWorld.Window.pixelToWorld(mouseInfo.X, mouseInfo.Y); if (CursorCoord == null) return false; if (polygon.ObjectType == 2) { polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).X = CursorCoord.Position.x; polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).Y = CursorCoord.Position.y; polygon.Geometry.Rings(0).Points.Item(polygon.Geometry.Rings(0).Points.count - 1).Z = 0; } else { polygon.Geometry.Points.Item(polygon.Geometry.Points.count - 1).X = CursorCoord.Position.x; polygon.Geometry.Points.Item(polygon.Geometry.Points.count - 1).Y = CursorCoord.Position.y; polygon.Geometry.Points.Item(polygon.Geometry.Points.count - 1).Z = 0; } } catch (e) { } } } //右键事件,面绘制完成时,将状态恢复到画面之前,完成画面。
function OnRButtonUpp(Flags, X, Y){
//SGWorld.ProjectTree.EndEdit();
if (polygon != null)
{
if (polygon.ObjectType == 1)
polygon.Geometry.Points.DeletePoint(polygon.Geometry.Points.count - 1);
else polygon.Geometry.Rings(0).Points.DeletePoint(polygon.Geometry.Rings(0).Points.count - 1);
polygon.Geometry.EndEdit();
}
SGWorld.Window.SetInputMode(0,"",0);
LbFlags=false;
}
上边是整个应用功能实现的代码,其中像线宽、填充颜色等参数,参照API文档,就可以自定义进行实现。
创新互联www.cdcxhl.cn,专业提供香港、美国云服务器,动态BGP最优骨干路由自动选择,持续稳定高效的网络助力业务部署。公司持有工信部办法的idc、isp许可证, 机房独有T级流量清洗系统配攻击溯源,准确进行流量调度,确保服务器高可用性。佳节活动现已开启,新人活动云服务器买多久送多久。
名称栏目:skyline应用-BS动态绘制面状区域-创新互联
浏览地址:http://scyanting.com/article/dcghcg.html