| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Извлечение информации из Mtext (текст и координаты) в автоматическом режиме

Извлечение информации из Mtext (текст и координаты) в автоматическом режиме

Ответ
Поиск в этой теме
Непрочитано 30.10.2009, 18:49 #1
Извлечение информации из Mtext (текст и координаты) в автоматическом режиме
Volod'ka
 
Днепропетровск
Регистрация: 17.03.2008
Сообщений: 148

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

P.S. Сам файл выложить не смогу...
Просмотров: 2046
 
Непрочитано 30.10.2009, 21:41
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,123


Цитата:
Сообщение от Volod'ka Посмотреть сообщение
Сам файл выложить не смогу...
А хотя бы часть?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.10.2009, 22:05
#3
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,843


Ну на скорую руку как-то так:
Код:
[Выделить все]
(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")))))))
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Автор темы   Непрочитано 30.10.2009, 22:35
#4
Volod'ka


 
Регистрация: 17.03.2008
Днепропетровск
Сообщений: 148


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
А хотя бы часть?
Боюсь, у меня могут быть большие неприятности , если обнаружится, что я выложил такую конфиденциальную информацию.
Если это принципиально, могу удалить практически все элементы, оставить несколько.
Дима_, это код на lisp -е , если я правильно понял? Что он делает, в двух словах можете написать?
Volod'ka вне форума  
 
Непрочитано 30.10.2009, 22:47
#5
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,843


Выдает список вида текст, координата, цвет на все Mtext'ы.
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 30.10.2009, 22:51
#6
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,123


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

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.10.2009, 23:01
#7
Olga_@@@


 
Регистрация: 14.03.2008
Екатеринбург
Сообщений: 678
<phrase 1= Отправить сообщение для Olga_@@@ с помощью Skype™


Я бы это сделала запросом к свойствам или экспортом в mif, но это уже из репертуара AutoCAD Map
Olga_@@@ вне форума  
 
Автор темы   Непрочитано 30.10.2009, 23:33
#8
Volod'ka


 
Регистрация: 17.03.2008
Днепропетровск
Сообщений: 148


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

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

Последний раз редактировалось Volod'ka, 31.10.2009 в 15:34.
Volod'ka вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Извлечение информации из Mtext (текст и координаты) в автоматическом режиме

Система Техэксперт дает уверенность в правильности и эффективности принимаемых инженерных решений!
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций) Red Nova LISP 650 03.02.2020 01:39
изменить стиль MTEXT Redya AutoCAD 31 20.10.2019 10:44
Требуется помощь,что бы Mleader не опускался Composter Программирование 79 04.12.2018 18:03
Увеличение всех отметок на определенную величину Drweb Программирование 103 22.01.2016 13:52
Требуется помощь с циклом в лиспе Composter LISP 28 13.05.2009 11:14