Aula 25 ( 11.12.2013 )

Esta foi aula antes da entrega dos trabalhos daí ter sido direccionada para o esclarecimento de dúvidas a nível da execução do pormenor (tanto no ModelSpace como no PaperSpace) e na criação da macro.
Esclarecimeto de duvidas sobre o pormenor, 

Realizaçao da Macro : Escadas 

(defun c:esc1 ()
  (setq degraus (getint "\nQuantos degraus? "))
  (setq inicio (getpoint "\nPonto inicial da escada? "))
  (setq profundidade (getreal "\nProfundidade do degrau (m)? "))
  (setq espessura (getreal "\nEspessura do degrau (m)? "))
  (setq cobertor (getreal "\nCobertor do degrau (m)? "))
  (setq espelho (getreal "\nEspelho do degrau (m)? "))

  (setq Pintermedio (polar inicio 0 profundidade))
  (setq P2 (polar pintermedio (/ pi 2) espessura))

  (command "rectang" inicio P2)

  (repeat (1- degraus)

    (command "copy" "last" "" (list cobertor espelho) "")

  )
)