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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как перенести текст из AutoCAD'a в MS Word?

Как перенести текст из AutoCAD'a в MS Word?

Ответ
Поиск в этой теме
Непрочитано 12.01.2004, 15:49 #1
Как перенести текст из AutoCAD'a в MS Word?
sear_ch
 
проектировщик
 
Огре, Латвия
Регистрация: 29.10.2003
Сообщений: 5

Имеются ведомости спецификаций в формате dwg. Нужно извлечь текст из них и перенести его в MS Word. Именно как текст (с возможностью дельнейшего редактирования в Word'е), а не как картинки.
Заранее благодарю.

P.S. Документов много, поэтому Copy-paste'ом слишком долго мучиться придется... Тогда уж проще, думаю, будет прогнать через FineReader...
Может есть какие-то стандартные методы/способы решения этой проблемы?
Просмотров: 18284
 
Непрочитано 12.01.2004, 16:57
#2
Startrek

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


Если это большие куски MTEXT то два раза кликнуть по техту в АКАД, в диалоговом окне MTEXT
засветить весь техт правои кнопкой COPY и PASTE в WORD. Если простой техт то простенькой програмкой.
Startrek вне форума  
 
Непрочитано 12.01.2004, 19:06
#3
vk

сисадмин
 
Регистрация: 26.08.2003
Самара
Сообщений: 1,022
<phrase 1=


Ага, "простенькая программка", использующая M$ Word, как COM-сервер :wink: Примерчик аналогичной программы есть в Sample к Акад2004.
vk вне форума  
 
Непрочитано 12.01.2004, 20:23 Как перенести текст из AutoCAD'a в MS Word?
#4
GRF

инженер-конструктор
 
Регистрация: 20.10.2003
г. Ростов-на-Дону
Сообщений: 4


А о какой "простенькой программке" идет речь? Что именно она делает? (Т.е. в смысле как у нее с обработкой спецсимволов и т.д.).
GRF вне форума  
 
Непрочитано 12.01.2004, 20:50
#5
Startrek

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)
)
Startrek вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как перенести текст из AutoCAD'a в MS Word?

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

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