Ouça uma das minhas músicas preferidas: , ou o canto de um passarinho: /spam>>

  ♩ ♪ ♫ Música do Dia  ♩  ♪♫

quarta-feira, 15 de agosto de 2012

Autolisp: Exemplo de uso de (grread)



; Para desenhar linha pressionando qualquer tecla (só movendo o cursor e pressionando a tecla "espaço", por exemplo)
; Inicie o desenho com uma linha (dois pontos) e depois continue desenhando apenas clicando ou pressionando qualquer tecla.
; Pressione "Esc" para abortar
; Digite "desenhar" para iniciar e "cdesenho" para prosseguir depois de ter abortado

(defun c:desenhar()
(setq p1 (getpoint "Ponto inicial..."))
(setq p2 (getpoint "Segundo ponto..."))
(command "line" p1 p2 "")
(while p1
(setq p2 (grread (setq code (grread))))
(setvar "pickbox" 5)
(command "line" "" (nth 1 p2) "" )
(setvar "pickbox" 4)
)
)
(defun c:cdesenho()
(while 1
(setq p2 (grread (setq code (grread))))
(command "line" "" (nth 1 p2) "" )
)
)



Nenhum comentário: