Engenharia BIM Programação Topografia

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

Hoje trago um exemplo que ilustra as diferenças entre curvas verticais parabólicas e circulares. Na imagem, apliquei a dois traineis, de 0% e de 100% (que exagero!), uma curva vertical de parâmetro ou raio igual a 4300. Obviamente o seu desenho é diferente, como se pode observar na captura de imagem da rasante, sem sobreelevação em yy. Além disto não esqueçer que em traçado de estradas ou caminhos-de-ferro, o que normalmente aparece como L=xxx metros, não é o desenvolvimento do arco, ou corda, ou alguma coisa da parábola, mas sim a diferença de Pk entre as tangentes. Importante. Se fizerem as contas por exemplo para uma curva circular com a fórmula equivalente a P=2.PI.R obtêm um resultado para circular 3377,1 metros, enquanto aqui mostro que entre PKs são 3040,5 metros. Em cima, parabólica, em baixo circular.

O programa TotalEdit, permite a edição de ficheiros de texto, seleccionando por bloco, por exemplo na figura, está seleccionada toda a coluna a azul. Muito bom para fazer algumas trafulhices. Total Edit