Msgbox Coordenadas

Aqui fica uma pequena utilidade, dispõe as coordenadas de dois pontos clicados no CAD. Assim como as distâncias e inclinações.

Sub inclinacao()

Dim Ponto1, Ponto2 As Variant

On Error Resume Next

Ponto1 = ThisDrawing.Utility.GetPoint(, "Seleccione ponto 1")

If Err Then Exit Sub

txt1X = Ponto1(0): txt1Y = Ponto1(1): txt1Z = Ponto1(2)

Ponto2 = ThisDrawing.Utility.GetPoint(, "Seleccione ponto 2")

If Err Then Exit Sub

txt2X = Ponto2(0): txt2Y = Ponto2(1): txt2Z = Ponto2(2)

dist2d = Sqr((Ponto2(0) - Ponto1(0)) ^ 2 + (Ponto2(1) - Ponto1(1)) ^ 2)

dist3d = Sqr((Ponto2(0) - Ponto1(0)) ^ 2 + (Ponto2(1) - Ponto1(1)) ^ 2 + (Ponto2(2) - Ponto1(2)) ^ 2)

i = (Ponto2(2) - Ponto1(2)) / dist2d

ipercent = i / 100

ipercent = Round(ipercent, 3)

MsgBox ("Coordenadas Ponto 1 X=" & txt1X & " Y=" & txt1Y & " Z=" & txt1Z & vbCrLf & _

        "" & vbCrLf & _

        "Coordenadas Ponto 2 X=" & txt2X & " Y=" & txt2Y & " Z=" & txt2Z & vbCrLf & _

        "" & vbCrLf & _

        "Distância 2D= " & dist2d & "Distância 3D= " & dist3d & vbCrLf & _

        "" & vbCrLf & _

        " Inclinação = " & i & " -> " & ipercent & "%")

End Sub

Msgbox Coordenadas