Чтение данных из файла - Lisp
Формулировка задачи:
Доброго времени суток. У меня такая задача: имеется txt файл со значениями, с него мне нужно из строчки взять число и поставить это число на размерной линии чертежа в автокаде. Вот код:из файла мне нужно выбрать 21-й символ (с него начинается необходимое число) и поставить это число в dimlinear.
(setq ff (open "параметры.txt" "r")) (setq a (read-line ff)) (setq n (atof (substr a 21))) (setq a (read-line ff)) (princ n) (close ff) (setq ff nil) command "dimlinear" "1447, 926" "1447, 947" 20
Решение задачи: «Чтение данных из файла»
textual
Листинг программы
(setq var1 (read-line ff)) [...] (command "_.any-command" var1 var2 var3 "")
Объяснение кода листинга программы
- Создается переменная
var1и в нее записывается результат выполнения функцииread-line, которая считывает строку из файлаff. - [...]
- Выполняется команда
_.any-command, в которую передаются три аргумента:var1,var2,var3.