|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
31.03.2006, 18:43 | #1 | |
Помогите обработать кучу MText'a
Регистрация: 31.03.2006
Сообщений: 5
|
||
Просмотров: 2477
|
|
||||
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: |
|||