19.11.09

Comandos em script

(defun quadrado ()
(command "line" "0,0" 1,0" "1,1" "0,1" "c")
)

(defun qgeral ()
(setq p1 (get point "\n qual o ponto de inserção? "))
(setq lado (getreal "\n qual a medida do lado? "))
(setq p2 (list (+ (car p1) lado) (car (cdr p1))))
(setq p3 (list (+ (car p1) lado) (+ (car (cdr p1)) lado)))
(setq p4 (list (car p1) (+ (car (cdr p1)) lado)))
(command "line" p1 p2 p3 p4 "c")
)

(defun dtr (a) (* pi (/ a 180.0)))

(defun porta ()
(setq p1 (getpoit "\n qual o ponto de inserção? "))
(setq largura (getreal "\n qual a largura da porta? "))
(setq orientacao (getint "\n qual a direcção da porta? (0,90,180,270) " ))
(setq abertura (getstring "\n abre à direita ou à esquerda? (e, d) "))
(command "line" p1 (setq p2 (polar p1 (dtr orientacao) largura)) "")
(if ( = abertura "d")
(command "arc" "ce" p1 p2 "a" "90")
(command "arc" "ce" p1 p2 "a" "-90"))
)