Auto LISP. Как программно задать координаты для команд типа SELECT

[Stilet]

Друг попросил спросить:

Задача:
1. пользователь в Автокаде определяет границы рамки (правый-верхний и левый-нижний ее углы)
2. Далее я хочу программно выделить все что находится в пределе рамки, используя для этого команду Select

Таким образом прога сейчас выглядит так:

(defun vout ()
           (setq n (getpoint "Начало"))
  	(setq k (getpoint "Кончало"))
  	(command "select" (list n) (list k))
)

Акад ругается так:

Select objects:
Command:
Command: nil

Если кто спец в АвтоЛиспе подскажите как мне программно задать координаты для таких команд как Селект.

P.S. кста мне тоже эта темка интересна, посему буду благодарен конструктивным ответам