Calculadora de Estacas

Estaca Padrão

20m 1000m Custom

Tam (m):

Padding:

Estaca → Metros

Estaca: &blackdown; 📋 Colar Área de Transferência M→E: Resultado Estaca E+M: Resultado Estaca

0,00 m

Metros → Estaca

Metros: &blackdown; 📋 Colar Área de Transferência E→M: Resultado Metros Diferença: Resultado Metros

0 + 0,00 m

Diferença

E1: &blackdown; 📋 Colar Área de Transferência M→E: Resultado Estaca E+M: Resultado Estaca

E2: &blackdown; 📋 Colar Área de Transferência M→E: Resultado Estaca E+M: Resultado Estaca

0,00 m

Estaca + Metros

Estaca: &blackdown; 📋 Colar Área de Transferência M→E: Resultado Estaca

+ Metros: &blackdown; 📋 Colar Área de Transferência E→M: Resultado Metros Diferença: Resultado Metros

0 + 0,00 m

Calculadora de Estacas - Geometria de Estradas

Calculadora de Estacas Padrão

--> Conversões considerando estaca de 20 em 20 metros: Estaca Inicial +m Decimal m

Adicionar m

Decimal Calculada: m

Estaca Calculada: +m

Macro gerarPDF no Excel (VBA)

Macro funciona para apagar as planilhas que não estão selecionadas, gerar um pdf com múltiplas páginas e salvar como excel apenas com as planilhas selecionadas.

A macro preserva a planilha atual sem alterações (salvar como automático)

Ações:

1. Copiar somente valores das planilhas selecionadas
2. Deletar as outras planilhas do arquivo
3. Salvar PDF com múltiplas páginas, na mesma pasta do arquivo (nome com UNDERLINE na frente)
4. Salvar como EXCEL, na mesma pasta do arquivo (nome com UNDERLINE na frente)

Exigências:

• Selecionar as abas das planilhas de interesse antes de executar a macro

Como "instalar" na planilha:

• copiar o conteúdo da caixa abaixo
• Desenvolvedor > Macros > Inserir > Módulo > [Colar Conteúdo]

Sub gerarPDF()

    

'Contar quantidade de planilhas selecionadas

    Dim n As Integer

    n = ActiveWindow.SelectedSheets.Count

    'MsgBox "Número de planilhas selecionadas é " & n 'Verificação qtde de planilhas selecionadas

'Copiar somente valores das planilhas selecionadas

    Dim planSelecionadas() As String

    ReDim planSelecionadas(n) 'redimensionar o array conforme número de linhas desejado

    Dim sh1 As Object

    Dim i As Integer

    i = 0

    For Each sh1 In ActiveWindow.SelectedSheets

        'Salvar nome da planilha na lista planSelecionadas

        planSelecionadas(i) = sh1.Name

        'MsgBox planSelecionadas(i) 'verificação do valor atribuido

        'Copiar valores das planilhas selecionadas

        Sheets(planSelecionadas(i)).Select

        Cells.Select

        Selection.Copy

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

            :=False, Transpose:=False

        i = i + 1 'próximo item da lista

    Next sh1

'Deletar as outras planilhas do arquivo

    Dim sh2 As Object

    Dim deletar As Boolean

    Application.DisplayAlerts = False 'desabilitar alertas do excel que impedem deletar a aba atual

    For Each sh2 In ActiveWorkbook.Sheets

        deletar = True 'inicia com deletar verdadeiro

        'MsgBox sh2.Name 'verificação passagem de planilhas

        'Verificar se a planilha atual está entre as selecionadas

        For i = 0 To (n - 1) 'posição inicial do For é 0

            If sh2.Name = planSelecionadas(i) Then

               deletar = False

            End If

        Next i

        If deletar = True Then

            Sheets(sh2.Name).Select

            ActiveSheet.Delete

        End If

    Next sh2

    

    Application.DisplayAlerts = True 'habilitar alertas do excel que impedem deletar a aba atual

    ActiveWorkbook.Sheets.Select 'selecionar todas as planilhas

'Salvar PDF, na mesma pasta do arquivo

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        ActiveWorkbook.Path & "\_" & Mid(ActiveWorkbook.Name, 1, InStrRev(ActiveWorkbook.Name, ".") - 1) _

        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

        :=False, OpenAfterPublish:=True

'Salvar como EXCEL, na mesma pasta do arquivo

    ActiveWorkbook.SaveAs Filename:= _

        ActiveWorkbook.Path & "\_" & ActiveWorkbook.Name _

        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'Selecionar apenas a primeira célula da primeira planilha do arquivo

    Sheets(1).Select

    Range("A1").Select

    

End Sub

Comandos com Atributos do Autocad

Relação de comandos usuais para atributos do autocad:

• GATTE - Permite alterar vários atributos que possuem a mesma TAG com uma punica entrada
• ATTSYNC - Sincronizar um bloco atributado após alterar algo no BLOCKEDITOR
• BATTMAN - Block Attribute Manager
• Alterar as propriedades de um bloco com atributos e atualiza em todas as instâncias do bloco
• Alterar a ordem dos atributos na lista de edição
• Alterar propriedades de atributo específico
• TAG-PROMPT-DEFAULT
• MODE
• Opções de texto do atributo
• Propriedades
• 
  

Script em vários arquivos Autocad

 

Abrir vários arquivos e executar uma rotina especifica:

• Abrir arquivo no local especificado
• Desenhar um circulo (R=5m) na origem
• Salvar e fechar arquivo

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing2.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing3.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing4.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing5.dwg" _.circle _non 0,0,0 5 _.qsave _.close

• _ (underscore) Non-localised command prefix:
• This prefix ensures that the English name of a command is used, irrelevant of the language of the version in which it is invoked.
• For example, if we have a Script calling the LINE command, by prefixing the command name with an underscore (i.e. _line) the same Script can be used in, say, a French version of AutoCAD, without needing to replace every occurrence of 'line' with 'ligne'.

Note that this prefix should also be used with command keywords to allow for cases in which the keyword does not use the the same 'key letter' when translated to another language.

• . (period) Non-redefined command prefix:
• This prefix is used to account for commands that have been redefined, ensuring that the original standard command is used and not a redefined version.

-----------------------------------------------------------------------------------

AN INTRODUCTION TO SCRIPT WRITING

_.circle _non 0,0,0 5

• _ (underscore)

Non-localised command prefix: this prefix ensures that the English name of a command is used, irrelevant of the language of the version in which it is invoked. For example, if we have a Script calling the LINE command, by prefixing the command name with an underscore (i.e. _line) the same Script can be used in, say, a French version of AutoCAD, without needing to replace every occurrence of 'line' with 'ligne'.

Note that this prefix should also be used with command keywords to allow for cases in which the keyword does not use the the same 'key letter' when translated to another language.

• . (period)

Non-redefined command prefix: this prefix is used to account for commands that have been redefined, ensuring that the original standard command is used and not a redefined version.

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing2.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing3.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing4.dwg" _.circle _non 0,0,0 5 _.qsave _.close

_.open "C:\Users\usuário1\Desktop\teste scr\Drawing5.dwg" _.circle _non 0,0,0 5 _.qsave _.close

Calculadora de Vazão - Seção Retangular Qualquer

Calculadora de Vazão - Seção Retangular Qualquer

--> Entre com o número de linhas paralelas, largura, altura, declividade do tubo, altura lâmina d'água e coeficiente de manning:

Vazão suportada:
   m³/s    l/s

Velocidade escoamento: m/s

Linhas paralelas:

Largura m

Altura m

Declividade %

Altura da lâmina d'água na seção %

Coeficiente de Manning (ƞ) %

------

Inclinação: m/m

Área seção plena: m²

Área molhada: m²

Perímetro molhado: m

Raio Hidráulico: m

------

DESCRIÇÃO DOS PARÂMETROS:

b = Largura interna da aduela [m]

h = Altura interna da aduela [m]

ƞ = Coeficiente de Manning [pead->0,010; concreto->0,013]

H = Altura percentual da lâmina d'água na seção

Q = Am * 1/ƞ * Rh^⅔ * S^½ [m³/s]

V = 1/ƞ * Rh^⅔ * S^½ [m/s]

A = b * h [m²]

Rh = Am / Pm [m]

Am = b * (h * H/100) [m²]

Pm = b + 2* (h * H/100) [m]

Memoria de Cálculo Área e Perímetro Molhado de uma Seção Tubular

 

Baixe aqui o pdf desta demonstração: 

https://drive.google.com/file/d/1UBMh_bwjj5nlzz3RyALqhcT4MOW6K3u0/view?usp=share_link

-------

Clique nas imagens para uma melhor resolução

Índice de referências Hidrologia

ALLASIA, D. G. ; TASSI, Rutineia ; VILLANUEVA, Adolfo O N ; TUCCI, Carlos ; VIEGAS, João . Manual de fundamentos do sistema computacional IPHS1. Porto Alegre: IPH-UFRGS, 2002. v. 1. 45 p.

CHOW, V.T., MAIDMENT, D.R. y MAYS, L.W. 1994. Hidrologia Aplicada. McGraw Hill. Bogotá.

LINSLEY, R. K. 1976. Rainfall-runoff models. In: Systems approach to water management. New York : Mcgraw-Hill, p.16-53.

LINSLEY, R. K., KOHLER, M.A. y PAULUS, J.L. 1967. Hidrología para ingenieros. New York: Mcgraw-Hill, 350p.

MAIDMENT, D. R. Handbook of hydrology. New York: Mcgraw-Hii, 1993.

SINGH, V. P.; FREVERT, D. K. 2006. Watershed models. Taylor & Francis Group, 653 p.

TASSI, Rutinéia ; ALLASIA, D. G. . Manual de Exemplos do modelo IPHS1. Porto Alegre: Rutinéia Tassi, 2005.

TASSI, R. & COLLISCHONN, W. – Introduzindo Hidrologia. IPH UFRGS, 2008. 274 p. 

TASSI, Rutinéia ; VIEGAS, João ; ALLASIA, D. G. ; DAMÉ, Rita de Casia Fraga ; TUCCI, Carlos . Manual de Usuário do Modelo Hidrológico IPHS1. Porto Alegre: Rutineia Tassi, 2005. 46p.

TUCCI, C.E.M., 1993. Hidrologia, ciencia e aplicação, Ed. Universidade /UFRGS / Associação Brasileira de Recursos Hídricos. Porto Alegre, 943p.

TUCCI, C.E.M., 1998. Modelos Hidrológicos, Ed. Universidade/UFRGS/ Associação Brasileira de Recursos Hídricos. Porto Alegre, 678p.