[hseldon]

помогите нарисовать точку по координатам, заданным переменными

[nik_mb]

(close f) нет у тебя. Прежде чем открывать файл его надо закрыть, либо читать дальше, но потом все равно закрыть.

[Кулик Алексей aka kpblc]

Сколько я с файлами ни работал, а открываться по нескольку раз мне их удавалось. Правда, потом с закрытием были проблемы

[nik_mb]

Сообщение от Кулик Алексей aka kpblc Сколько я с файлами ни работал, а открываться по нескольку раз мне их удавалось. Правда, потом с закрытием были проблемы

Наверно я погорячился, сообщение: error: bad argument type: FILE nil говорит о том, что просто файл не был найден при открытии. Но закрывать открытые файлы все равно надо. А начальные строчки должны выглядить так

Код:

[Выделить все]

 
(defun c:read_file ()
  (setq file_sput (findfile "933 км.txt"))
  (setq f (open file_sput "r"))
  (setq a1 (read-line f))
  (close f)

и так далее.
Да и файл "933 км.txt" должен быть не абы где, а том где автокад может его найти.

[hseldon]

нашел правильное решение

Код:

[Выделить все]

(defun c:rf ()
       (findfile "sss.txt")
  (setq f (open "sss.txt" "r"))

  (setq a1 (read-line f))
    
  (setq n1 (vl-string-position 44 a1))
  (setq no (substr a1 1 n1))
  (setq a1 (vl-string-left-trim no a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq n1 (vl-string-position 44 a1))
  (setq x1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim x1 a1))
  (setq a1 (vl-string-left-trim "," a1))
  (setq x1 (atof x1))

  (setq n1 (vl-string-position 44 a1))
  (setq y1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim y1 a1))
  (setq a1 (vl-string-left-trim "," a1))
  (setq y1 (atof y1))

  (setq h1 (atof (vl-string-right-trim "," a1)))
  
  (setq v (list x1 y1))

  (command "_point" v "")

  (close f)  
)

последний вопрос, запись (command "_point" v "") корректна? Я имею в виду кавычки после v

[nik_mb]

Сообщение от hseldon последний вопрос, запись (command "_point" v "") корректна? Я имею в виду кавычки после v

Кавычки не нужны, они повторят предыдущую команду. Вообще-то это можно легко проверить самому. Выделить в редакторе и запустить. Или вставить в командную строку.
ЗЫ В теме "Создание графика в AutoCAD на основе txt" можно почерпнуть много полезного для этой примитивной програмки.