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级流量清洗系统配攻击溯源，准确进行流量调度，确保服务器高可用性。佳节活动现已开启，新人活动云服务器买多久送多久。