Blog destinado publicar informações relacionadas ao gerenciamento de projetos.
terça-feira, 16 de outubro de 2012
LISP PARA SOMAR ÁREAS
Segue abaixo o código de uma rotina Lisp desenvolvida por mim que soma áreas de diversos polígonos fechados.
Esta rotina é bastante útil quando se deseja somar áreas de um número muito grandes de elementos.
;;Criado por Rodrigo Augusto Dourado Neves
;;Geo Ambiente - Geologia Ambiental e Poços Ltda
;;11/10/2012
(defun c:areas()
(setq vr (getvar "cmdecho"))
(setvar "cmdecho" 0)
(princ "Selecione os poligonos: ")
(setq obj (ssget))
(princ (strcat "Você selecionou " (rtos (sslength obj) 2 0) " objetos"))
(princ "\n")
(setq areas 0)
(setq i 0)
(while (< i (sslength obj))
(command "area" "o" (ssname obj i))
(setq areas (+ areas (getvar "area")))
(setq i (+ i 1))
(princ (strcat "\n objeto" (rtos i 2 0)))
(repeat (1+ (atoi (getenv "CmdHistLines"))))
)
(princ "\n")
(princ "Área total: ")
(princ areas)
(setvar "cmdecho" vr)
(princ)
(alert "Criado por Geoambiente - Geologia Ambiental")
(princ)
)
Abraço a todos!!!
Assinar:
Postagens (Atom)
É necessário que o Gerente de Projetos tenha conhecimento técnico sobre o projeto que irá gerenciar?
Um assunto muito comum que normalmente leva a discussões acaloradas em diversos ambientes, tanto digital quanto presencial, é sobre a ne...
-
Maturidade em gerenciamento de projetos pode ser definida como a capacidade de uma empresa ou organização gerenciar de forma efetiva e efica...
-
Bom, primeiramente vamos definir o que é planificar. Planificar é transformar um objeto tridimensional em uma projeção plana, disposta em...
-
Segue abaixo o código de uma rotina Lisp desenvolvida por mim que soma áreas de diversos polígonos fechados. Esta rotina é bastante útil qua...