Distância acumulada exibida na linha de comando

Continuando com as Rotinas Lisps (Como usar as Rotinas Lisp?)
Mais um exemplo:

;; Você vai clicando nos “endpoints” de um conjunto de retas alinhadas e a distância acumulada vai sendo exibida na linha de comando.

(defun c:SomarLinhas ()

(setq k 0 soma 0)

(setq p1 (getpoint “P “))

(while p1

(if (/= k 0) (setq p1 p2))

(setq p2 (getpoint “P2 “))

(command “dist” p1 p2)

(if (= k 0) (command “pline” p1 p2 “”) (command “pline” p1 p2 “”))

(setq k 1)

(setq distancia (getvar “distance”))

(if p2 (setq soma (+ soma distancia)))

(prompt (rtos soma 2 1))

(print)

(if (> soma 2400) (alert (rtos soma 2 1)))

)

(setq p2 nil)

)

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em Arquitetura, AutoCAD, Autolisp, Desenho, Engenharia Civil. Bookmark o link permanente.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s