и
Y расчетных точек, символом ¬ обозначены обусловленные форматом вывода незаполненные позиции в строках данных.
Предположим далее, что численные значения координат могут содержать три знака перед десятичной точкой и включать в себя символ отрицательного числа - знак минус. Задача заключается в том, чтобы извлечь значения координат из файла и передать их Автокаду.
Длина строки файла составляет 32 позиции. В соответствии с оговоренным условием значения координат могут занимать 9 позиций. Для перестраховки установим длину читаемых позиций, равной 10 символам (вдруг в файле неожиданно для нас окажется число с четырехзначной целой частью).
С точки зрения составления программы, нам следует выполнить следующие операции: организовать цикл, внутри которого были бы прочитаны значения координат, и присвоить эти значения точкам будущего примитива. В этой связи следует упомянуть о существенном недостатке Автолиспа: в нем отсутствует понятие индексированной переменной, свойственное операторным языкам. Поэтому процесс вычерчивания примитива приходится производить параллельно с извлечением данных, а количество извлекаемых за один прием данных ограничивать (в рассматриваемом примере одной точкой).
Итак, напишем функцию, извлекающую из чертежа координаты точек.
1 (defun pnt ()
2 (setq lin (read-line file1))
3 (setq x1 (atof (substr lin 10 10)))
4 (setq y1 (atof (substr lin 23 10)))
5 (setq pt1 (listx1 y1))
)
Строка 1 устанавливает имя программируемой функции pnt, строка 2 считывает из файла, определенного дескриптором file1, первую строку lin, рассматривая ее как строковую переменную. Далее (строка 3) функция substr считывает информацию, содержащуюся в позициях 10...19 строки lin, функция atof преобразует считанную строковую переменную в числовую, а уже setq приписывает это значение координате x1. Аналогичные действия выполняет строка 4, устанавливая координату y1. Наконец, выделенные координаты приписываются точке pt1 (строка 5).
Если остановиться на вычерчивании за один прием участка полилинии, проходящего через две точки, то соответствующая функция будет выглядеть, например, следующим образом:
(defun otr ()
(command “pline” pt1 “w” “0” “” pt2 “”)
).
Теперь можно написать полностью программу, обрабатывающую файл результатов расчета любой длины.
;;; ==============================================
(defun cdraw ()
;;; ==============================================
;;; подавление вывода текста на экран
