Engenharia, programação e artigos técnicos

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

Encontrei um exemplo de via em cremalheira, São Paulo. A foto é retirada do Google Earth. Cremalheira

Kawazu-Nanadaru Loop Bridge in Kawazu Japan. Loop Street View Loop Topo

Levantamento por método clássico. Topcon GTS 3B.

Eis um Lisp para determinar a % entre dois pontos picados em CAD: ;Determina percentagem entre 2 pts picados (defun c:P2 () (setq p1 (getpoint "\nPT1 Ponto Inicial")) (setq p2 (getpoint "\nPT2 Ponto Final")) (setq x1 (car p1)) (setq y1 (cadr p1)) (setq x2 (car p2)) (setq y2 (cadr p2)) (setq disth (- x2 x1)) (setq distv (- y2 y1)) (setq Perf (/ (* 100 distv) disth)) (print Perf) (princ) )