(defun c:pal ()
(command "ucs" (getpoint "Indique o ponto de inserção da coluna. ") "")
(setq nu 0)
(command "circle" (list 0 0 0) 0.15)
(guardar)
(command "circle" (list (alea 0 0.15) 0 1) (setq vera (alea 0.15 1)))
(guardar)
(command "circle" (list 0 0 (alea 3 4)) 0.15)
(guardar)
(solido)
(command "ucs" "")
(setq lista nil)
)
(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 alea ( min max / )
(+ min (valor (- max min)))
)
(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)
  )
)