Somos Seres Digitais? - Miguel Nicolelis - Parte 3/3

Somos Seres Digitais? - Miguel Nicolelis - Parte 2/3

Somos Seres Digitais? - Miguel Nicolelis - Parte 1/3

AUTOLISP PARA COLOCAR O RUMO EM ALINHAMENTOS

Pessoal, há algum tempo eu postei uma rotina que colocava o rumo dos alinhamentos.
Para isso bastava clicar no ponto inicial da linha, e no ponto final.

Agora este Lisp foi melhorado, e para colocar os rumos nos alinhamentos, basta selecionar todas as linhas de uma vez que o programa faz o resto.

Observação: Funciona apenas com linhas (não serve para polilinhas).
Caso o sentido dos alinhamentos tenha que ser invertido, basta editar a polilinha antes (PE - Reverse) e depois explodir para transformar em linhas.

Segue rotina abaixo:

;;RODRIGO AUGUSTO DOURADO NEVES
;;SÃO JOSÉ DO RIO PRETO - SP
;;MAIO DE 2006
;;radneves@gmail.com



(defun c:qrumo ()
  (setvar "cmdecho" 0)
  (setvar "angdir" 0)
  (setq escala (getreal "Entre o fator de escala: "))
  (setq ttext (getdist "Entre com o tamanho do texto: "))
  (setq linhas (ssget))
  (setq nument (sslength linhas))
  (setq cont 0)

  (while (<= cont nument)

    (setq current1 (cdr (assoc 10 (entget (ssname linhas cont)))))
    (setq current2 (cdr (assoc 11 (entget (ssname linhas cont)))))
    (setq ds (* (distance current1 current2) escala))
    (setq an (angle current1 current2))
    (setq gr (/ (* an 360) (* 2 pi)))

    (if (< gr 90)
      (list (princ ds) (princ " ") (setq angulo (princ (- 90 gr))) (princ " ") (setq rumo (princ "NE")) (setq tang gr) )

      (if (and (< gr 180) (>= gr 90))
      (list (princ ds) (princ " ") (setq angulo (princ (- gr 90))) (princ " ") (setq rumo (princ "NW"))(setq tang (+ 180 gr)) )

(if (and (< gr 270) (>= gr 180))
      (list (princ ds) (princ " ") (setq angulo (princ (- 270 gr))) (princ " ") (setq rumo (princ "SW")) (setq tang (+ gr 180) ))

 (if (and (< gr 360) (>= gr 270))
      (list (princ ds) (princ " ") (setq angulo (princ (- gr 270))) (princ " ") (setq rumo (princ "SE")) (setq tang gr ))
 
  )
  )
  )
  )
   

    (setq ang1 (fix angulo))
    (setq fra_ang1 (- angulo ang1))
    (setq minuto1 (fix (* fra_ang1 60)))
    (setq fra_min (- (* fra_ang1 60) (fix minuto1)))
    (setq segundo1 (* 60 fra_min))
    (setq segundo2 (fix segundo1))
    (setq texto (strcat (rtos ds 2 2) "m - " (rtos ang1 2 0) "º " (rtos minuto1 2 0) "' " (rtos segundo2 2 0) "''" rumo ))
    (command "text" "j" "c" (list (/ (+ (car current1) (car current2)) 2) (/ (+ (cadr current1) (cadr current2)) 2) 0) ttext tang texto)
    (setq current1 current2)
    (setq cont (+ cont 1))
    )

   (setvar "cmdecho" 1)


  )

AutoCAD trava quanto utiliza o Ortho via teclado

Após atualizar o Windows, percebi que o AutoCAD passou a travar toda vez que o recurso Ortho era acionado via teclado.
Para solucionar este problema, modifique a variável TEMPOVERRIDES para 0 que o problema será resolvido.

3º Happy Hour do Potencial Branch do PMI - São José do Rio Preto

Indicadores de desempenho

Indicadores de desempenho são informações coletadas, seguindo um determinado critério, que mostram de forma clara o desempenho de um determinado projeto, programa, portfólio ou até mesmo da empresa como um todo. Uma vez que os indicadores de desempenho, ou KPI’s (Key Performance Indicator) como são usualmente chamados, geram subsídios a base para o gerenciamento de um negócio, a alta direção precisa ser capaz de acessar estas informações em tempo real para que decisões sejam tomadas no momento correto.

Estes indicadores irão dizer como o projeto está em relação ao custo previsto, em relação ao prazo, em relação a qualidade, em relação a satisfação do cliente, e também irão dizer se os objetivos estabelecidos no planejamento estratégico estão sendo cumpridos.

Como um dos objetivos deste trabalho é a definição de KPI’s para uma futura gestão de portfólio, se fez necessário à sua conceituação para um melhor entendimento do seu resultado (PRADO & ARCHIBALD, 2011).