nterface("IMenu");
IObjectManager = TE.interface("IObjectManager5");
ITerraExplorer.Load("2.fly");
IRender=TE.interface("IRender5");
}
//飞到某个地方--------------------------------------------------------------------------------------------------
// 处理 Flash 影片中的所有 FSCommand 消息
function myFlash_DoFSCommand(args1,args2)
{
var myFlashObj = InternetExplorer ? myFlash : document.myFlash;
var tX0,tZ0;
tX0 =args1;
tZ0 =args2;
FlyToWhere(tX0,tZ0);
}
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 &&
navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
document.write(‘<SCRIPT LANGUAGE=VBScript\> \n‘);
document.write(‘on error resume next \n‘);
document.write(‘Sub myFlash_FSCommand(ByVal command, ByVal args)\n‘);
document.write(‘ call myFlash_DoFSCommand(command, args)\n‘);
document.write(‘end sub\n‘);
document.write(‘</SCRIPT\> \n‘);
}
function FlyToWhere(tX0,tZ0)
{
//创建文本对象
var LabelInfo = new Object();
LabelInfo.Text = "经度 : "+tX0+" 纬度 : "+tZ0;
LabelInfo.Scale = 1;
LabelInfo.BgColor = 236;
IObjectManager.CreateLabel (LabelInfo, tX0, tZ0, 2000.0 );
IPlane.FlyTo (tX0,tZ0,2000.0,117.98,0, -35,"Oval" );
}
//飞到某地------------------------------------------------------------------------------------------------------
function btn1_DoFSCommand(command, args) {
var btn1Obj = InternetExplorer ? document.all.btn1 : document.btn1;
var tX0;
tX0 =args;
klmy();
}
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
document.write(‘<script language=\"VBScript\"\>\n‘);
document.write(‘On Error Resume Next\n‘);
document.write(‘Sub btn1_FSCommand(ByVal command, ByVal args)\n‘);
document.write(‘ Call btn1_DoFSCommand(command, args)\n‘);
document.write(‘End Sub\n‘);
document.write(‘</script\>\n‘);
}
function klmy()
{
//创建文本对象
var LabelInfo = new Object();