|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
18.06.2020, 11:20 | #1 | |
Вставка текста в автокад
Регистрация: 16.01.2019
Сообщений: 19
|
||
Просмотров: 3114
|
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588
|
Я так понимаю Ваши наработки увидеть не удастся, однако попробую помочь по фотографии, как я понял:
Очевидно, Вам нужно:получит список файлов, открыть/прочитать файлы и добавить подписи(предполагаю, что это текст, название элементов или еще что то). В справке все это есть... Получить список файлов, что то типа: Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFolder = FSO.getfolder(SourceFolderName) пример тут как открыть документ: раздел справки "Open Method (ActiveX)" , сам метод: ThisDrawing.Application.Documents.Open "C:\AutoCAD\Sample\city map.dwg" добавить текст/подпись: раздел справки "AddText Method (ActiveX)", сам метод : Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height) Я собственно хочу сказать, что Ваша задача решаема и решаема на основе примеров из справки. |
|||
|
||||
Регистрация: 16.01.2019
Сообщений: 19
|
Цитата:
Цитата:
Пока что придумал руками вставлять подписи из файла автокад с названиями. Только муторное дело это. Вот я и спросил как это можно на VBA упростить |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,039
|
и что?) Вот реально, вам лень написать подробно условия (например, откуда данные для подписи в каждом файле, координаты вставки и т.д., приложить пример) - при этом ожидаете какой-то помощи...
----- добавлено через ~2 мин. ----- как задаваться будет соответствие файла и ячейки экселя? |
|||
|
||||
Регистрация: 16.01.2019
Сообщений: 19
|
Тупо по порядку. Т.е первый файл из папки соответствует названию в первой ячейки excel.
Если говорить про условия: есть папка с файлами dwg, они уже обработаны как надо. Нужно вставить подпись в пространство модели из excel (первый файл из папки соответствует названию в первой ячейки excel). Координаты вставки будут всегда одинаковыми (условно пусть будут цифры 100;100). |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,039
|
Цитата:
1. Выбирается папка с файлами - код можно взять отсюда, например. 2. Запоминается путь в переменной. 3. Получаем список имен файлов в выбранной папке, выделяем по первому разделителю с конца собственное имя файлов и заносим в столбец на лист. Можно отсортировать при необходимости. 4. Во втором столбце пишем нужный текст. 5. Из экселя через COM открываем по очереди каждый файл *.dwg, собирая полное имя файла из переменной п.2 и ячейки с именем файла. Не забываем проверять через GetAcadState() - готов ли Акад принимать команды, чтобы не зависло выполнение. Вставляем через COM текст из второго столбца и закрываем файл с сохранением. |
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588
|
Цитата:
Если реально хотите помощи, то публикуйте пример исходного dwg файла и того, что хотите получить, пример excel файла, из которого берете данные и собственно код, который уже написали. Без этого какое то гадание с постоянно меняющимся вводными. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как настроить автовыделение текста в редакторе многострочного текста | RAD24 | LISP | 2 | 10.02.2020 18:36 |
СПДС 12 некорректная вставка текста из pdf документов | Konst085 | ПО от CSoft | 5 | 26.04.2019 11:48 |
Макрос переноса текста из Word в AutoCAD - помогите усовершенствовать. | MrBrown | Программирование | 5 | 18.05.2015 12:28 |
Вставка таблицы из Экселя в автокад с созданием новых листов в автокаде | Che1992 | AutoCAD | 4 | 18.03.2015 12:02 |
LISP. Выравнивание текста по двум точкам. | Krieger | Готовые программы | 10 | 24.12.2011 16:02 |