15 Novembro 2016 . Aula 8

DURANTE ESTA AULA:

. Continuação do exercício da aula anterior, em AutoCAD

. Apresentação do exercício em 3D Studio Max

1ºEXERCÍCIO

Sublime Text

 (defun c:xad ()

(command "ucs" (getpoint " Indique o ponto de inserção da peça. ") "")

(setq nu 0)

(command "circle" "0,0,0"  (valor 10))

(guardar)

(command "circle" "0,0,15" (valor 8))

(guardar)

(command "circle" "0,0,21" (valor 5))

(guardar)

    (command "circle" "0,0,25" (valor 5))

 (guardar)

    (command "circle" "0,0,40" (valor 10))   

(guardar)

(solido)

(command "ucs" "")

)

(defun solido ()

(command "loft")

    (foreach p lista (command p)) 

    (command "" "")

)

(defun guardar ()

(setq lista (append lista (list (set (read (strcat "entidade" (rtos nu))) (entlast)))))

)

(defun valor (num)

(* num (rnd))

)

(defun rnd (/ modulus multiplier increment random)

  (if (not seed)

    (setq seed (getvar "DATE"))

  )

  (setq modulus    65536

        multiplier 25173

        increment  13849

        seed  (rem (+ (* multiplier seed) increment) modulus)

        random     (/ seed modulus)

  )

1.APPLOAD - xadrez

2.VP - (1,-1,1)

3.VSCURRENT

4.XAD -