Программирование в AutoCAD

Надо нарисовать средствами autolisp трехмерный объект. Не знаю как создать точку с тремя координатами. Вот фрагмент кода. Не пойму в чем ошибка, работать не хочет:
(setq ce_st (getpoint "\nОпределите положение объекта"))
(setq x (car (ce_st)))
(setq y (cdr (ce_st)))
(setq z 50)
(setq ce_st_h (list x y z))
Т.е. надо, чтобы пользователь ткнул мышью и в этой точке, но не на полу, а на заданой высоте нарисовался диск (как его нарисовать знаю).