проблема с написанием программы на AutoLISP Опции

[Voyager]

Добрый день!

Не знал куда это написать, поэтому прошу извинения если написал не туда.

Проблема в следующем: мне нужно написать программу для AutoCAD на языке LISP. По непонятной причине AutoCAD после загрузки программы (Tools - Load application) упорно не видит мой код, выдается сообщение "Unknown command "CIR".

Текст программы приведен ниже:

(defun c:cir ( / cen x0 y0 x1 y1 x2 y2 a0 a1 a2 R)
(setq R (getdist "\n Введите параметр R:" ) )
(setq cen (getpoint "\n Укажите центр"))
(setq x0 (nth 0 cen))
(setq y0 (- (nth 1 cen) R))
(setq a0 (list x0 y0))
(setq n 5)
(setq ang (/ pi 6)
(setq ang (* 180 ang))
(setq ang (/ ang pi))
(setq x1 (+ x0 (* R (cos ang))))
(setq y1 (+ y0 (* R (sin ang))))
(setq a1 (list x1 y1))
(setq x2 (+ x1 (* R (cos ang))))
(setq y2 (+ y1 (* R (sin ang))))
(setq a2 (list x2 y2))
(command "_line" a0 "210,0" "210,297" "_C")


)

Подскажите, пожалуйста, как с этим бороться.

[f0GgY]

ну на сколько я вижу ему не нравится команда CIR
круг я так понимаю?

пробуйте circle