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 & _ "Co...
