Vb.net directx, slimdx преобразовать экранные координаты мыши в 3d координаты

@vitebskstar · Регистрация: 12.02.2012

Author24 — интернет-сервис помощи студентам

vb.net directx, slimdx преобразовать экранные координаты мыши в 3d координаты

необходимо передвигать объекты мышью по плоскости XY, при Z=0

может у кого есть готовый пример ?

Добавлено через 16 часов 38 минут
нашёл что то похожее на C, но ни как не могу понять, может кто поможет ?

C++

D3DXVec3Unproject(&p1, &D3DXVECTOR3(g_MouseXPos, g_MouseYPos, 0), &pViewport, &proj, &view, &world);
// на ближней грани отсечения
D3DXVec3Unproject(&p2, &D3DXVECTOR3(g_MouseXPos, g_MouseYPos, 1), &pViewport, &proj, &view, &world);
// на дальней грани отсечения
// далее находим луч ray = p2 - p1
// и ищем точку пересечения луча(ray) и плоскости земли или что там у Вас...

@Antikl · 03.03.2018, 10:06

http://www.gamedev.ru/code/forum/?id=152262
http://savardge.narod.ru/dx/article_dx10.html
http://www.gamedev.ru/code/forum/?id=123011

@vitebskstar · 03.03.2018, 11:07 **[ТС]**

там на с, а мне нужно на vb.net помогите, а то тормознул на этой части программы и дальше не могу ничего делать. спасибо.

@Antikl · 03.03.2018, 22:37

Как при клики мышкой по TabControl1 вывести координаты клика мышки
https://www.youtube.com/watch?v=8R7bZmjQVDI

@vitebskstar · 04.03.2018, 09:54 **[ТС]**

e.Location.X, e.Location.Y - позиция мыши
0, 0, PictureBox1.Width, PictureBox1.Height - размеры экрана

VB.NET

 Vector3.Unproject(New Vector3(e.Location.X, e.Location.Y, 1), 0, 0, PictureBox1.Width, PictureBox1.Height, 0, grafic1.Viewport.MaxZ, grafic1.GetTransform(TransformState.World) * grafic1.GetTransform(TransformState.View) * grafic1.GetTransform(TransformState.Projection), result1)
                Vector3.Unproject(New Vector3(e.Location.X, e.Location.Y, 0), 0, 0, PictureBox1.Width, PictureBox1.Height, 0, grafic1.Viewport.MaxZ, grafic1.GetTransform(TransformState.World) * grafic1.GetTransform(TransformState.View) * grafic1.GetTransform(TransformState.Projection), result2)
 
                Dim direction As Vector3 = result1 - result2
                direction.Normalize()
 
                Dim pickRay As New Ray(result1, direction)
 
                ob(i).Px = (pickRay.Position.X  - StartPoint(i).X)
                ob(i).Py = (pickRay.Position.Y  - StartPoint(i).Y)

вроде как сделал, всё в общем то хорошо, но, объект передвигается быстрее чем мышь, ввёл делитель на 20

VB.NET

1 2	ob(i).Px = (pickRay.Position.X / 20 - StartPoint(i).X) ob(i).Py = (pickRay.Position.Y / 20 - StartPoint(i).Y)

стало лучше, но при Z камеры =12000 объект передвигается немножко медленнее мыши, если уменьшить высоту камеры до Z=3000, - происходит наоборот, объект начинают двигаться немного быстрее мыши.

такое ощущение что не учитывается высота Z камеры над объектом

может кто поможет ?

@vitebskstar · 06.03.2018, 13:20 **[ТС]**

всё, разобрался, теперь всё работает.

@Antikl с++ 1282 / 523 / 225 Регистрация: 15.07.2015 Сообщений: 2,562
	03.03.2018, 10:06	2
	http://www.gamedev.ru/code/forum/?id=152262 http://savardge.narod.ru/dx/article_dx10.html http://www.gamedev.ru/code/forum/?id=123011 0

@vitebskstar 1 / 1 / 0 Регистрация: 12.02.2012 Сообщений: 54
	03.03.2018, 11:07 [ТС]	3
	там на с, а мне нужно на vb.net помогите, а то тормознул на этой части программы и дальше не могу ничего делать. спасибо. 0

@Antikl с++ 1282 / 523 / 225 Регистрация: 15.07.2015 Сообщений: 2,562
	03.03.2018, 22:37	4
	Как при клики мышкой по TabControl1 вывести координаты клика мышки https://www.youtube.com/watch?v=8R7bZmjQVDI 0

@vitebskstar 1 / 1 / 0 Регистрация: 12.02.2012 Сообщений: 54
	06.03.2018, 13:20 [ТС]	6
	всё, разобрался, теперь всё работает. 0