Eis um Lisp para determinar a % entre dois pontos picados em CAD:
;Determina percentagem entre 2 pts picados
(defun c:P2 ()
(setq p1 (getpoint "\nPT1 Ponto Inicial"))
(setq p2 (getpoint "\nPT2 Ponto Final"))
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq x2 (car p2))
(setq y2 (cadr p2))
(setq disth (- x2 x1))
(setq distv (- y2 y1))
(setq Perf (/ (* 100 distv) disth))
(print Perf)
(princ)
)
;Determina percentagem entre 2 pts picados
(defun c:P2 ()
(setq p1 (getpoint "\nPT1 Ponto Inicial"))
(setq p2 (getpoint "\nPT2 Ponto Final"))
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq x2 (car p2))
(setq y2 (cadr p2))
(setq disth (- x2 x1))
(setq distv (- y2 y1))
(setq Perf (/ (* 100 distv) disth))
(print Perf)
(princ)
)
Comentários
Enviar um comentário
Obrigado pelo seu contacto.