| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
12.01.2004, 15:49 | #1 | |
Как перенести текст из AutoCAD'a в MS Word?
проектировщик
Огре, Латвия
Регистрация: 29.10.2003
Сообщений: 5
|
||
Просмотров: 18284
|
|
||||
AutoCAD/AutoLISP Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133
|
Это на скорую руку, без фокусов, как говорится работает и ладно
Работает с SINGLE LINE TEXT, MTEXT - тут надо модифицировать, но времени нету пишу подпольно на работе, если меня засекут, то по головке не погладят (defun c:exptxt(/ l ll opf) (while (setq l (assoc 1 (entget (car (entsel "\nSelect Text String: "))))) (setq ll (cdr l)) (setq opf (open "c:\\test2.doc" "a"));;;change c:\\test2.doc to any name you like (write-line ll opf) (close opf) ) (close opf) (princ) ) |
|||