激光雷达测量实习报告(实习操作截图+心得体会+实习总结)精品文档10页

三、Imageware构建三维实体表面模型。

图25 图26 图27 图28 图29 图30

第 5 页

四、编程

（一）空间坐标转换，如下图31~33所示：

图31 图32

坐标转换

Private Sub cmdCalc3D_Click() m3 = cdcs Ex = xxz Ey = yxz Ez = zxz dX3 = xpy dY3 = ypy dZ3 = zpy

txtK3.Text = Str(m3) txtEx.Text = Str(Ex) Ex = DoToHu(Ex) txtEy.Text = Str(Ey) Ey = DoToHu(Ey) txtEz.Text = Str(Ez) Ez = DoToHu(Ez)

txtdX3.Text = Str(dX3) txtdY3.Text = Str(dY3) txtDz3.Text = Str(dZ3) X3 = Val(txtX3.Text) Y3 = Val(txtY3.Text) Z3 = Val(txtZ3.Text)

Xx3 = (m3 + 1) * (X3 * Cos(Ey) * Cos(Ez) + Y3 * Cos(Ey) * Sin(Ez) - Z3 * Sin(Ey)) + dX3

Yy3 = (m3 + 1) * (X3 * (-Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + Y3 * (Cos(Ex) * Cos(Ez) + Sin(Ex) * Sin(Ey) * Sin(Ez)) + Z3 * (Sin(Ex) * Cos(Ey))) + dY3

Zz3 = (m3 + 1) * (X3 * (Sin(Ex) * Sin(Ez) + Cos(Ex) * Sin(Ey) * Cos(Ez)) + Y3 * (-Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ey) * Sin(Ez)) + Z3 * (Cos(Ex) * Cos(Ey))) + dZ3

txtXx3.Text = Format(Xx3, \ txtYy3.Text = Format(Yy3, \ txtZz3.Text = Format(Zz3, \End Sub

Private Sub cmdClear3D_Click() txtX3.Text = \ txtY3.Text = \

第 6 页

txtZ3.Text = \ txtXx3.Text = \ txtYy3.Text = \ txtZz3.Text = \End Sub

Private Sub cmdconCalc3D_Click() m3 = cdcs Ex = xxz Ey = yxz Ez = zxz dX3 = xpy dY3 = ypy dZ3 = zpy

txtK3.Text = Str(m3) txtEx.Text = Str(Ex) Ex = DoToHu(Ex) txtEy.Text = Str(Ey) Ey = DoToHu(Ey) txtEz.Text = Str(Ez) Ez = DoToHu(Ez)

txtdX3.Text = Str(dX3) txtdY3.Text = Str(dY3) txtDz3.Text = Str(dZ3) Xx3 = Val(txtXx3.Text) Yy3 = Val(txtYy3.Text) Zz3 = Val(txtZz3.Text)

X3 = ((Xx3 - dX3) * Cos(Ey) * Cos(Ez) + (Yy3 - dY3) * (-Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + (Zz3 - dZ3) * (Sin(Ex) * Sin(Ez) + Cos(Ex) * Sin(Ey) * Cos(Ez))) / (m3 + 1)

Y3 = ((Xx3 - dX3) * Cos(Ey) * Sin(Ez) + (Yy3 - dY3) * (Sin(Ex) * Sin(Ey) * Sin(Ez) + Cos(Ex) * Cos(Ez)) + (Zz3 - dZ3) * (-Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ey) * Sin(Ez))) / (m3 + 1)

Z3 = ((Xx3 - dX3) * (-Sin(Ey)) + (Yy3 - dY3) * Sin(Ex) * Cos(Ey) + (Zz3 - dZ3) * (Cos(Ex) * Cos(Ey))) / (m3 + 1)

txtX3.Text = Format(X3, \ txtY3.Text = Format(Y3, \ txtZ3.Text = Format(Z3, \End Sub

Private Sub cmdExit_Click() End End Sub

Private Sub cmdParaCalu_Click() frmParameterCal3D.Show End Sub

第 7 页

Private Sub Command1_Click() Dim Dateh As String Dim iposh%, i%

Open Text1.Text For Input As #1 Line Input #1, Dateh n = Val(Dateh)

ReDim x1#(n), y1#(n), z1#(n), x2#(n), y2#(n), z2#(n) ReDim jx#(n), jy#(n), jz#(n) For i = 1 To n

Line Input #1, Dateh

iposh = InStr(Dateh, \

x1(i) = Val(Left(Dateh, iposh - 1)) Dateh = Mid(Dateh, iposh + 1) iposh = InStr(Dateh, \

y1(i) = Val(Left(Dateh, iposh - 1)) Dateh = Mid(Dateh, iposh + 1) iposh = InStr(Dateh, \

z1(i) = Val(Left(Dateh, iposh - 1)) Dateh = Mid(Dateh, iposh + 1) iposh = InStr(Dateh, \

x2(i) = Val(Left(Dateh, iposh - 1)) Dateh = Mid(Dateh, iposh + 1) iposh = InStr(Dateh, \

y2(i) = Val(Left(Dateh, iposh - 1)) Dateh = Mid(Dateh, iposh + 1) z2(i) = Val(Dateh) Next i Close #1 End Sub 求解参数

Dim i As Integer m3 = cdcs Ex = xxz Ey = yxz Ez = zxz dX3 = xpy dY3 = ypy dZ3 = zpy For i = 1 To n

jx(i) = (m3 + 1) * (x1(i) * Cos(Ey) * Cos(Ez) + y1(i) * Cos(Ey) * Sin(Ez) - z1(i) * Sin(Ey)) + dX3

jy(i) = (m3 + 1) * (x1(i) * (-Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + y1(i) * (Cos(Ex) * Cos(Ez) + Sin(Ex) * Sin(Ey) * Sin(Ez)) + z1(i) * (Sin(Ex) * Cos(Ey))) + dY3

第 8 页