[sergeev_2005]

Можно ли в объектной модели AutoCAD отыскать имена ссылок на файлы DWG с путями?
Надо в конкретном файле определить все имеющиеся ссылки с их адресами.

[hwd]

можно

[sergeev_2005]

hwd, ответ исчерпывающий.
Тогда - второй вопрос в этой же теме: а как практически это сделать (вытащить имена файлов с путями из объектной модели)?

[hwd]

Сообщение от sergeev_2005 Тогда - второй вопрос в этой же теме: а как практически это сделать (вытащить имена файлов с путями из объектной модели)?

Объектная модель, она разной бывает. Уточни.

[Alan]

Сообщение от sergeev_2005 Надо в конкретном файле определить все имеющиеся ссылки с их адресами.

Поиск по "внешняя ссылка путь" на форуме пробовали?

[sergeev_2005]

AutoCAD 2012 и 2013.
Что значит разные объектные модели.
М. б., станет ясно, если пояснить задачу.
Надо выявить все файлы, на которые есть ссылки, и скопировать их в одну отдельную папку.
Фактически то же, что сформировать комплект.
Только надо это сделать не в автокаде, а отдельной внешней программой.

Поиски по форуму пробовал, но не нашел. (может плохо искал, есть что-то созвучное, но не то).

[hwd]

Сообщение от sergeev_2005 AutoCAD 2012 и 2013. Что значит разные объектные модели.

ObjectARX, ActiveX, .Net API.

Сообщение от sergeev_2005 Только надо это сделать не в автокаде, а отдельной внешней программой.

В таком случае тебе не подойдёт ничего из указанного выше, и использовать нужно COM модель, создавая объекты на основе записей реестра (позднее связывание). В этом случае ты не будешь завязан на версию AutoCAD.

[Александр Ривилис]

Сообщение от sergeev_2005 Только надо это сделать не в автокаде, а отдельной внешней программой.

И AutoCAD должен быть установлен.

[sergeev_2005]

Пояснили бы, как это сделать.
Я не программист (уровень начальный).
Самое большее, чего достиг:

uses
..., ActiveX, ComObj;
var
.........
ModelSpace, Acad: OleVariant;
implementation
begin
try
Acad := GetActiveOleObject('AutoCAD.Application');
except
Acad := CreateOleObject('AutoCAD.Application');
end;
Acad.visible := True;
Acad.ActiveDocument.SendCommand('.............');
и т. д.

[hwd]

Теги оформления кода на форуме не просто так присутствуют... Отредактируй сообщение соответствующим образом.

[Александр Ривилис]

Сообщение от sergeev_2005 Я не программист (уровень начальный).

Плохо. Тогда мы будем разговаривать на разных языках. Тем более, что на Delphi я не пишу совсем.
В любом случае через Acad.ActiveDocument.SendCommand у тебя ничего не получится
Задача по плечу только серьезному программисту и вполне возможно, что средств COM (это то, что ты пытаешься использовать) будет недостаточно.

P.S.: Вообще-то если тебя устраивает функциональность команды формкомплект (_ETRANSMIT), то ты можешь запустить через SendCommand её эквивалент в командной строке _.-ETRANSMIT (именно так с подчеркиваниями, минусом и точкой). Ну а с какими опциями запускать - это ты уж подбери сам.

[sergeev_2005]

hwd, ирония уместно среди профессионалов, а я таковым в этом вопросе не являюсь.
Ну, не нашел!!!

Александр Ривилис.
Спасибо. Конечно не SendCommand.
Мне казалось, что-то вроде "Text := ModelSpace.ExternalReference.name;"
Однако получаю сообщение, что метод не поддерживается.

Во всяком случае, спасибо всем.

[hwd]

Сообщение от sergeev_2005 hwd, ирония уместно среди профессионалов, а я таковым в этом вопросе не являюсь. Ну, не нашел!!!

При чём здесь ирония? Над полем, в котором ты набираешь текст, присутствуют кнопки. Не ленись, наведи мышку на них и во всплывающей подсказке получишь информацию какая для чего предназначена. Всё, далее без меня.

[sergeev_2005]

Как раз весь сыр-бор из-за того, что (_ETRANSMIT) не устраивает.
Если подгружаемые файлы не прошли полный аудит (а это не всегда можно сделать из-за прав доступа к папкам), то формирование комплекта через (_ETRANSMIT) часто подвешивает автокад на неопределенно долгое время.

Что касается оформления сообщений, то учту на будущее.

[Александр Ривилис]

Xref (ExternalReference) - это блоки (Block) у которых IsXref равно true. Но для твоей задачи этого совершенно недостаточно если сравнивать с командой _ETRANSMIT:
1) Как будешь обрабатывать вложенные внешние ссылки? Открывать рекурсивно все внешние ссылки в AutoCAD чтобы получить все пути?
2) Кроме внешних ссылок есть еще растры, подложки PDF, DWF, DGN и т.д.
3) Нужно найти и сохранить все используемые шрифты и файлы форм.
4) и т.д. и т.п.

[sergeev_2005]

Да...
Почему-то мне казалось, что считать текст из диспетчера внешних ссылок (там, где "Найден в ...") не такая уж и сложная задача.

[Александр Ривилис]

Сообщение от sergeev_2005 Почему-то мне казалось, что считать текст из диспетчера внешних ссылок (там, где "Найден в ...") не такая уж и сложная задача.

1. Задача, как я догадываюсь, этим не ограничивается.
2. Причина в том, что:

Сообщение от sergeev_2005 Я не программист (уровень начальный).

[sergeev_2005]

Сообщение от Александр Ривилис 1. Задача, как я догадываюсь, этим не ограничивается.

Ограничивается.
Шрифты и т.д. сохранять не надо, растры, как правило, тоже.
Дело в том, что:
1. Сотрудники фирмы часто берут работу на дом.
2. Файлы построены на ссылках с абсолютными путями нам сервер.
3. Ссылок много. Принцип формирования архитектурных планов: один файл - одна секция здания - один этаж.
4. Все файлы надо записать в одну папку.
5. Шрифты, формы и растры каждый раз таскать не надо. Если они и обновляются, то в исключительных случаях.

То есть, хотелось бы формировать комплект с ограниченными возможностями по сравнению с (_ETRANSMIT), но делать это быстро и надёжно.

[hwd]

Сообщение от sergeev_2005 Ограничивается.

Здесь размещён пример исходного кода, с помощью которого из чертежа рекурсивно извлекаются все внешние ссылки.

[sergeev_2005]

Спасибо!

[Александр Ривилис]

Только этот код не на Delphi и такой код использовать из внешнего приложения нельзя.

[hwd]

Сообщение от Александр Ривилис Только этот код не на Delphi и такой код использовать из внешнего приложения нельзя.

Я забыл, что он из внешнего приложения это хочет делать.