[Arsham]

Добра всем, уважаемые форумчане! 2 дня бьюсь над простой казалось бы задачей и не понимаю как решить. Надо сделать Lisp для следующего задания. При нажатии кнопки программа предлагает вычислить площадь помещения, используя встроенную функцию _MEASUREGEOM- сразу включается режим добавления объектов, а после окончания добавления (щелкаем ПКМ) автоматически включается режим вычитания объектов. После окончания вычитания щелкаем ПКМ м в командной строке видим итоговую площадь. Создал простой lsp, но программа никак не хочет автоматически переходить в режим вычитания, а просто ожидает ввода команды вручную. Я не программист, мои последние программы были в советской школе на Бейсике. Прошу помощи в доработке кода или хотя бы пояснения, почему эта @#%$*@ не работает.

(defun c:AreaAddSub (/)
;; Запуск команды "Измеритьгеом" в режиме добавления площади
(command "_MEASUREGEOM" "_AREA" "_ADD" "_OBJECT")

;; Ожидание выбора объектов (пока команда активна)
(while (= (getvar "CMDACTIVE") 1)
(command pause)
)
(if (command "")

;; Ожидание выбора вычитаемых объектов
(while (= (getvar "CMDACTIVE") 1)
(command pause)
(command "_SUBTRACT" "_OBJECT" )))

;; Тихий выход
(princ)
)