Текст заголовка сообщения полностью: Автокад. Вот Накрапал кусочек кода, чтобы получить координаты и записать в файл. Может кому-то пригодиться.

;****** KOORD.LSP *******************************************************
; Определение координат точки и запись их в файл.
; Разработал Чеховский Андрей Май 2008.
;
(defun C:KOORD (/ pt1 pt2 koord fname f)
(setvar "cmdecho" 0)
(setq pt1 T)
;Требуем ввести имя файла
(setq fname (getstring "\n Укажите имя файла, для сохранения координат: "))

(if (/= (findfile fname) nil)
(progn
(princ "Файл с таким именем уже существует!")
(princ "\nОткрываем его для редактирования!")
;открываем его в режиме редактирования
(setq f (open fname "a")); открываем файл для до записи
)
;если не равно!
(progn
(princ "Создан новый файл!")
(setq f (open fname "w")); открываем новый файл для записи
)
);end if

(while pt1
(setq pt1 (getpoint "\n Укажите точку (ENTER — конец): "))
(if pt1
(progn
(setq koord (strcat "N" "X" (rtos (* (nth 0 pt1) 1000) 2 0) "Y" (rtos (* (nth 1 pt1) 1000) 2 0)))
(write-line koord f)
)
;если Ввод
(close f); закрываем файл
)

)


(princ)

)