Не могу ввести имя файла из Delphi

Так похоже, что (setq file_full_name (findfile file_name)) возвращает nil, т.е. файл file_name не находится в путях доступа AutoCAD.
Распечатай в lisp значение file_name и full_file_name

Потому, наверное, что getstring надо задавать по типу

(setq file_name (getstring t "File: ") )

Либо вообще использовать (getfiled)

Лисп:

;;;DEBUG
(princ "Лисп <read_data_from_file> запущен\n")
;;;DEBUG
   (setq file_name (getstring "File: ") )
;;;DEBUG
(princ (strcat "Введена строка с именем файла: " file_full_name))
;;;DEBUG
   (setq file_full_name (findfile file_name))
;;;DEBUG
(princ (strcat "file_full_name: " file_full_name))
;;;DEBUG
   (setq file (open file_full_name "R"))     ;открыть файл на чтение

Результат:

Command: FILL_MAIN_BLOCKS
Лисп <read_data_from_file> запущен
File: test.ini
; error: bad argument type: stringp nil

Не срабатывает getstring, до findfile лисп не доходит:(

??????????????

(setq [b]file_name[/b] (getstring "File: ") )
;;;DEBUG
(princ (strcat "Введена строка с именем файла: " [b]file_full_name[/b]))
;;;DEBUG

(setq [b]file_name[/b] (getstring "File: ") )
;;;DEBUG
(princ (strcat "Введена строка с именем файла: " [b]file_name[/b]))
;;;DEBUG

Так, я думаю, проблема для начала в лиспе. Может, попробовать такой вариант:

(vl-load-com)
(defun get-file-name-by-string (/ res)
  (while (or (not (vl-catch-all-error-p
            (vl-catch-all-apply
              '(lambda () (setq res (getstring t "\nИмя файла : ")))
              ) ;_ end of vl-catch-all-apply
            ) ;_ end of vl-catch-all-error-p
          ) ;_ end of not
         (= res "")
         (not (findfile res))
         ) ;_ end of or
    (princ (strcat "\nФайл " res " не найден!"))
    ) ;_ end of while
  res
  ) ;_ end of defun
(defun get-file-name-by-dlg (/ res)
  (while (member (setq res (getfiled "ini-файл" "" "ini" 2)) '(nil ""))
    (princ "\nФайл не выбран!")
    ) ;_ end of while
  res
  ) ;_ end of defun

Ессно, лисп должен быть загружен в AutoCAD...
P.S. Код писал на коленках, так что проверить не помешает

> Elena
Это не Лисп. Это обрывки. Непонятно, кто что делает и причем здесь Delphi.
Напишите функцию, сделайте локальные переменные, наставьте (print ...) с выводом переменных и ошибка сразу найдется. Особенно внимательно с проверкой результата getstring - кто на запрос отвечает, непонятно.
Если рассчитываете, что в момент запроса придет из Delphi ответ, то это неправильно. Если Delphi знает имя файла, то не надо getstring, передавайте имя в аргументе вызываемой функции, а не печатью в командную строку.

> Elena
Как не удалось? Это же просто:
Формируете в Delphi строку наподобие:

Command := '(имя_функции "'+Param+'")';

Здесь Param - строковый аргумент, например имя файла, вычисленное в Delphi.
А потом

SendCommand(Command + #13);

Значит строка сформирована неправильно. Вам надо сформировать не просто строку, а LISP-выражение. Внутри его, естественно, будут пробелы. Autocad может заметить дисбаланс скобок, но пробелы в LISP он не анализирует. Он выполнит это выражение.
Пробел может влиять на запрос функции getstring. Если ее вызвать в виде (getstring T "Введи строку с пробелами"), то пробелы не будут восприниматься как Enter.
Но если надо передать известное имя файла в функцию, то get-функция вообще не нужна. А уж как поступать с полученным аргументом, должна решать функция, его получившая. То есть Вы, когда эту функцию пишете.

> Elena
Лена. Учите VisualLisp! Если функция определяется с C:, то она определяет команду и тогда ее вызывать нужно с C:. Кроме того такие функции не должны иметь параметров.
Вывод: уберите C: везде в имени своей функции и в вызове ее.

Спасибо всем огромное!
Учить, конечно, надо, но некогда... Приходится все осваивать на практике:)