Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → DCL → Помогите найти инфу по работе с файлами
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
помогите найти инфу по работе с файлами
в нете немогу найти ,межет конечно плохо искал
мне надо штоб в файл записовалась вся инфа по деталям
высота,ширина,глубина
а потом уже выводить ее на принтер
или подскажите знающие люди как ето сделать средствами autocad'a
По каким деталям, где они находятся, что из себя представляют?
На этом форуме куча инфы по записи в файл.
детали начерчены автолипсом в автокаде
Если детали строились программно, значит все данные есть. В чём проблема то? Как организоать запись в текстовый файл?
да у меня нет никакой инфы по записи в файл
(setq lst '("Пример" "записи" "в" "файл" "."))
(setq file_put (findfile "test.txt")) ; путь к файлу
(setq file_names (open "test.txt" "a")) ; открыли файл для добавления если его нет он создаётся (w - для записи r - для чтения)
(while (setq el_lst (car lst))
(princ el_lst file_names)
(princ "\n" file_names)
(setq lst (cdr lst))
)
(close file_names)Вот небольшой примерчик.
Небольшой коммент:
2 строка кода актуальна если файл уже создан и находится в путях доступа AutoCAD, забыл её заремить.
3 строка в совокупности со 2 выглядит так:
(setq file_names (open file_put "a"))
Можно без цикла обойтись
(mapcar '(lambda (x) (princ (strcat x "\n") file_names)) lst)
спасибо за помощ
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → DCL → Помогите найти инфу по работе с файлами
Форум работает на PunBB, при поддержке Informer Technologies, Inc
