;macro da base do objecto minions
;Li Teng
;Design 3A



(defun c:olho ()


(setq p1 (getpoint "qual o ponto a usar? "))
(command "ucs" p1 "")
(command "sphere" (list 0 0 1.5) 3)
(command "circle" (list 0 0 0) 3)
(setq circulo1 (entlast))
(command "extrude" (entlast)"" 3 )
(setq circulo1 (entlast))
(command "ucs" "x" 90)
(command "circle" (list 0 -5 -1) 5)
(setq circulo2 (entlast))
(command "extrude" (entlast)"" 2 )
(setq circulo1 (entlast))

(command "ucs" "")
)






Download ficheiro lisp











Página inicial