Lua脚本实现界面-自定义的控制键

在易景地球上实现按钮等效果

lua代码如下：

=========================================================

--创建一个基本大小的框

ctrl = evGUI.Create("Base", evGUIRoot)

ctrl:SetSize(240,64)

evGUIRoot:AddEvent("onFrame",function ( )

--ctrl:AlignBottom()

ctrl:SetPos( ctrl.Bounds.x , evGUIRoot.Bounds.h - ctrl.Bounds.h - 20);

ctrl:AlignCenterH()

end)

function createBtn(href, szx,szy, x,y, tp,onclick)

local btn = evGUI.Create("Button",ctrl)

btn.Background=false

btn:SetImage(href,true)

btn:SetSize(szx,szy)

btn:SetPos(x,y)

btn.Tooltip = tp

btn:AddEvent("onPress",onclick)

return btn;

end

local cam = evControl.CameraControl

left = 10

top = 0

createBtn("D:\\data\\图标\\view-pan-64x64.png",64,64, left,top, '平移', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--判断落在哪个区域

local mp = evGUI.MousePosition()

local cx = mp.x - obj.Bounds.x - 32 - ctrl.Bounds.x

local cy = mp.y- obj.Bounds.y -32 - ctrl.Bounds.y

evprint(cx,cy)

evCamInner:Slip(cx * 1.0 / 32)

evCamInner:Walk(cy * 1.0 / 32)

end

)

left = left+ 64 + 4

createBtn("D:\\data\\图标\\view-zoom-in-32x32.png",32, 32,left, top, '前进', function(obj)

evCamInner:Walk(1)

end

)

createBtn("D:\\data\\图标\\view-zoom-out-32x32.png",32,32, left, top + 32,'后退', function(obj)

evCamInner:Walk(-1)

end

)

left = left+ 32 + 4

createBtn("D:\\data\\图标\\view-heading-left-32x32.png",32,32, left, top, '左转', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--左转

head = head - 10

cam:SetDirection(tilt,head)

end

)

createBtn("D:\\data\\图标\\view-heading-right-32x32.png",32,32, left, top + 32, '右转', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--左转

head = head + 10

cam:SetDirection(tilt,head)

end

)

left = left+ 32 + 4

createBtn("D:\\data\\图标\\view-pitch-up-32x32.png",32,32, left, top, '抬头', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--左转

tilt = tilt + 10

cam:SetDirection(tilt,head)

end

)

createBtn("D:\\data\\图标\\view-pitch-down-32x32.png",32, 32,left, top + 32, '低头', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--左转

tilt = tilt - 10

cam:SetDirection(tilt,head)

end

)

left = left+ 32 + 4

createBtn("D:\\data\\图标\\view-elevation-up-32x32.png",32,32, left, top, '抬升', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--抬升

alt = alt * 1.2

cam:FlyToDirect(lon, lat, alt, 0.5)

end

)

createBtn("D:\\data\\图标\\view-elevation-down-32x32.png",32, 32,left, top + 32,'降低', function(obj)

lon = cam:GetLongitude()

lat = cam:GetLatitude()

alt = cam:GetAltitude()

head = cam:GetHeading()

tilt = cam:GetTilt()

--降低

alt = alt * 0.8

cam:FlyToDirect(lon, lat, alt, 0.5)

end

)

======================================================

实现的效果如下图：



红框显示为按钮的效果