Programitas de Ingenieria

[icsimavi]

uno de pilotes

[ANEMIS3275]

toy chequeando para ver como se pueden adaptar a las normas de mi pais

[EcObO]

Para los amantes del lisp, aqui les dejo un programita que calcula la cantidad de materiales en una losa tipica de concreto armado de 20 cm de espesor, el comando despues de cargar el lisp es saa :

(DEFUN C:SAA (/ objetos N-objetos N nombre superf lon superficies longitud total-sup longitud-total)
  (setq objetos (ssget '((0 . "LWPOLYLINE"))))
  (SETQ N-objetos (sslength objetos) N 0 total-sup 0 longitud-total 0)
  (REPEAT N-objetos
    (SETQ nombre (ssname objetos N))
    (if (/= nombre nil)
        (progn
             (command "area" "_O" nombre)
             (SETQ superf (getvar "Area"))
             (SETQ lon (getvar "Perimeter"))
             (SETQ total-sup (+ total-sup superf))
             (SETQ longitud-total (+ longitud-total lon))
          );fin de progn
      );fin de if            
    (SETQ N (1+ N))
  )
  (alert (strcat "Superficie total: " (rtos total-sup 2 2) " m²" "\n"
       "Vol Concreto: " (rtos (* total-sup 0.0875) 2 2) " m" "\n"
       "Total de ladrillos: " (rtos (* total-sup 8.33) 2 2) " m" "\n"
       "Long tot 1/4\": " (rtos (* total-sup ) 2 2) " m"  "\n"
    )
  )

)

P.D. El lisp es unos de los lenguajes de programación del autocad, para usar este lisp guardar el código en un block de notas, con el nombre mediciones.lsp , desde el CAD, cargar el archivo con appload, y para usarlos necesitan areas cerradas de una a mas que representarian sus losas, seleccionan las areas, le dan enter y me cuentan que obtiene , espero que les sirva.
Dios Les Bendiga

[spartaco032]

AQUI VA UNO DE DISEÑO DE ZAPATA

[spartaco032]

AQUI VA OTRO DE DISEÑO DE ZAPATA CON VIGA DE CONEXION. ESPERO LES SIRVA.

[spartaco032]

AQUI VA OTRO DE DISEÑO DE ZAPATA CON VIGA DE CONEXION. ESPERO LES SIRVA.

[spartaco032]

AQUI UNO PARA METRAR ESTRIBOS EN VIGAS, ESPERO LES SIRVA COLEGAS.
Cualquier mejora o critica hacerla llegar, puesto que soy nuevo con esto del visual basic