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!!!

É 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...