Listagem Obras Arte -> Quadro
Uma pequena programação em VBA, transforma a listagem do ISPOL de "Estruturas" num quadro de Obras de Arte e/ou Túneis. Mais amigável que a listagem em bruto do ISPOL. Listagem ISPOL para Quadro
Mensagens
Tabela parâmetros dinâmicos
Cálculo de parâmetros dinâmicos, com várias normas e tipos de linha... Excel com macros... Em desenvolvimento como sempre... Tabela
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...
Diferenças KV e Raio
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.
Editor de texto
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
Via em Cremalheira
Encontrei um exemplo de via em cremalheira, São Paulo. A foto é retirada do Google Earth. Cremalheira
