[Sapsan]

Пробовал использовать
(comman "")
но она с ними не работает. С другими коммандами все нормально, например _Line, _Circle работает.
Что хочу? Хочу любым способом вывести информацию базы данных обо всех объектах чертежа в текстовый файл в таком виде как это делают СПИСОК БДСПИСОК

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

Есть фактически всего один вопрос - а dxf не устраивает принципиально? Там все это есть (и даже больше). Надо только уметь его читать

[Sapsan]

Нет не принципиально. Просто я в Lisp еще новичек, и время поджимает. Планирую и дальше осваивать,но попозже.
Чем удобен БДСПИСОК-он выдает все о объектах в понятном виде,а я смотрю что нужно,а что нет (тоесть я негадаю есть те или иные данные,что это радиус или координата). Дальше обработаю в MultiEdit-текстовый редактор с поддержкой программирования, заточенный на работу с текстом.
Конечно можно воспользоваться SSGET или поковырятся в DXF, но тех же dxf несколько форматов 2000, 2004, 2007.

[VVA]

QAFLAGS (Системная переменная)

[Sapsan]

Класс!!! Большое спасибо VVA.
Я чуствовал, не мог поверить что такая солидная компания и непредусмотрела такую малость В программах всегда есть недокументированные дверки.
Вот:
(defun C:all_list_file ()
(command "QAFLAGS" 2)
(command "_logfileon")
(command "_DBList")
(command "_logfileoff")
(command "QAFLAGS" 0)
)
Все элементарное просто.

[Олег (jr.)]

Сообщение от Sapsan Класс!!! Большое спасибо VVA. Я чуствовал, не мог поверить что такая солидная компания и непредусмотрела такую малость В программах всегда есть недокументированные дверки. Вот: (defun C:all_list_file () (command "QAFLAGS" 2) (command "_logfileon") (command "_DBList") (command "_logfileoff") (command "QAFLAGS" 0) ) Все элементарное просто.

Небольшое дополнение

Код:

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

(defun C:ReadDB ()
(command "qaflags" 2)
(setvar "logfilemode" 1)
(command "_.logfileon")
(command "_.dblist")
(command "_.logfileoff")
(setvar "logfilemode" 0)  
(command "qaflags" 0)
(startapp "notepad" (getvar "logfilename"))
)

~'J'~