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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Помогите обработать кучу MText'a

Помогите обработать кучу MText'a

Ответ
Поиск в этой теме
Непрочитано 31.03.2006, 18:43 #1
Помогите обработать кучу MText'a
Nikolay_N
 
Регистрация: 31.03.2006
Сообщений: 5

Имеется несколько файлов с кучей текста (MText преимущестаенно), который разбросан по файлу, местами скомпонован довольно компактно. Требуется сделать текст единообразным. А "массивы" текста перевести в единый объект MText. Дело в том, что эти "массивы" состоят из строк, выстроенных в столбец. И каждая стока состоит из нескольких объектов MText. И их все надо объединить в один объект. Как можно это сделать побыстрее? И как можно уменьшить интервал между строками в MText'e?
Просмотров: 2477
 
Непрочитано 31.03.2006, 20:16
#2
Startrek

AutoCAD/AutoLISP
 
Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133


Попробуй обьединить програмкой:

(defun c:mmt (/ first delete second delete1 mtx1 mtx2 mtx ed)
(prompt "\nTo merge two MTEXT entities")
(setq first (entget (car(entsel"\nSelect first MTEXT entity: "))))
(if (= first nil)(exit))
(setq delete1(cdr(assoc -1 first)))
(redraw delete1 3)
(setq second (entget (car(entsel"\nSelect second MTEXT entity: "))))
(if (= second nil)(exit))
(setq delete (cdr(assoc -1 second)))
(redraw delete 3)
(setq mtx1 (cdr (assoc 1 first)))
(setq mtx2 (cdr (assoc 1 second)))
(setq mtx (strcat mtx1 "\\P" mtx2))
(command "erase" delete delete1 "")
(setq ed first)
(setq ed
(subst (cons 1 mtx)
(assoc 1 ed)
ed
)
)
(entmake ed)
(princ)
)
__________________
Сквозь тернии к звездам.... и обратно :yes:
Startrek вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Помогите обработать кучу MText'a

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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