[Volod'ka]

Добрый день!
Есть файл с большим количеством объектов типа Mtext. Необходимо составить список вида:
текст - координаты (x,y,z) - цвет.
Все это нужно сделать в автоматическом режиме - с помощью внешней программы через COM или с помощью макроса на Lisp.
Можно ли это осуществить?
Прошу в ответах учесть, что я сам мало разбираюсь в Autocad и Lisp (программирование знаю, COM-технологию тоже). Поэтому то, что касается автокада, желательно объяснить поподробнее.
Если эта тема уже обсуждалась, прошу дать ссылку - я ничего не нашел.

P.S. Сам файл выложить не смогу...

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

Сообщение от Volod'ka Сам файл выложить не смогу...

А хотя бы часть?

[Дима_]

Ну на скорую руку как-то так:

Код:

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

(vl-load-com)

(mapcar '(lambda (ent)
(mapcar '(lambda (cod)
(cdr (assoc cod (entget ent)))) 
'(1 10 62)))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a" (list (cons 0 "mtext")))))))

[Volod'ka]

Сообщение от Кулик Алексей aka kpblc А хотя бы часть?

Боюсь, у меня могут быть большие неприятности , если обнаружится, что я выложил такую конфиденциальную информацию.
Если это принципиально, могу удалить практически все элементы, оставить несколько.
Дима_, это код на lisp -е , если я правильно понял? Что он делает, в двух словах можете написать?

[Дима_]

Выдает список вида текст, координата, цвет на все Mtext'ы.

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

Дима_, только текст у тебя может оказаться не весь

[Olga_@@@]

Я бы это сделала запросом к свойствам или экспортом в mif, но это уже из репертуара AutoCAD Map

[Volod'ka]

Дополнение - текст - это одно слово, состоящее из 7-8 цифр в одну строку.
Возможно, это существенно.
Дима_, спасибо за код, сегодня попробую, отпишусь, что получилось.

Дополнение:
b]Дима_[/b], код действительно работает. Я его запустил в командной строке, и он туда же выдал кучу нужнйо информауции. А можно сделать так, чтобы информация ушла сразу во внешний файл (например, txt), и желательно, разбитой на строки (один mtext - одна строка)?
Заранее огромное спасибо.