;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