[baaba]

Проконсультируйте, как правильно сбрасывать данные в файл? Сам пока не разобрался. Если бы это было математическое выражение, то подошло бы что то вроде:

Код:

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

(write-line (itoa (+ 2 3)) f)

Вот мой примерчик:

Код:

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

(setq w (entget (car (entsel)))) ; получаю список свойств примитива
(setq f (open "c:\\tmp\\acadfile.txt" "w")) ; открываю файл на запись
(write-line w f) ; хочу сбросить данные в файл, но что то не работает, наверное надо как-то преобразовать w
(write-line "barabaka" f) ; а эта конструкция работает
(close f) ; закрываю файл

[Alan]

Смотрим HELP
Writes a string to the screen or to an open file

(write-line string [file-desc])

Arguments

string - A string.

file-desc
A file descriptor for an open file.

[baaba]

Сообщение от Alan Смотрим HELP Writes a string to the screen or to an open file (write-line string [file-desc]) Arguments string - A string. file-desc A file descriptor for an open file.

Мне всё-равно непонятно что мне делать?

[TararykovDG]

вместо
(write-line w f)
напиши
(write-line (vl-princ-to-string w) f)

[baaba]

Сообщение от TararykovDG вместо (write-line w f) напиши (write-line (vl-princ-to-string w) f)

А я не хочу vl-princ-to-string w, я хочу вписать:

Код:

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

(entget (car (entsel)))

или

Код:

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

(princ w)

[Do$]

Ну так и пиши:

Код:

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

(princ w f)

[baaba]

Сообщение от Do$ Ну так и пиши: Код: [Выделить все] (princ w f)

Гм, спасибо!

[Profan]

Проверь переменную w:
(type w)
аргумент для функции (write-line) должен быть строковым.

[baaba]

Сообщение от Profan Проверь переменную w: (type w) аргумент для функции (write-line) должен быть строковым.

Код:

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

Command: (type w)
LIST, то есть список.

Но всё равно работает с princ.
Сделал так:

Код:

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

(defun c:dxf (/ f)
	(setq f (open "c:\\tmp\\acadfile.txt" "w"))
	(princ (entget (car (entsel "\nSelect entity"))) f)
	(close f)
)

Спасибо!