[rass]

Здравствуйте!

Задача такая. Есть файл Excel, где в ячейках хрянятся данные, которые должны быть считаны при открытии фаила Autocad и вставленный в существующий текст-шаблон.

То есть на примере:
в Экселе в ячейках указаны отметки высот: допустим в
в первой ячейке 5.0м
во второй - 10.0м
в третьей - 15.0м

А в Автокадовском фаиле есть текст в контексте которого упоминаются эти отметки, значения которых считываются из экселевского файла.

Аналог такой процедуры есть между Excel и Word, через слияние их фаилов и вставки в текст Поля данных MergeField "имя поля" с соответсвующим именем поля. В Автокаде такого Поля нет, а слияние с Эксель идет только в примитиве Таблица (возможно я ошибаюсь)

[Petrov-Vodkin]

Да я вообще этим делом озаботился, потому что у нас на работе только А4 принтер есть, подшивки использовать не мог для штампов

Прикладываю .dll файл, поколдовал там немного, может под Ваш 2010 и заработает, попробуйте.

Командой _netload указать путь к файлу "SummaryInfo.dll".
Станет доступна новая команда SetCustomProp. При новом запуске автокада процедуру подключения придется повторить.

Про автоматическую загрузку .Net библиотек - читать здесь.

[rass]

Пока длился весь этот диалог, пришел к выводу, что эту задачу прийдется решить старым способом через VBA.

При выполнении процедуры VBA происходит чтение "Имя Поля" и "Значение Поля" из фаила field.xls, который должен быть расположен в тойже папке где и автокадовский фаил. Эти данные записиываются в пользовательские свойства автокадовского файла.

Всем спасибо! что откликнулись, много чего нового узнал )))))
Архив смотрите далее по форуму

[Petrov-Vodkin]

Я бы там это... листы лишние пустые из книги удалил Вы же работу ведете с активным листом.
И ченить программа сказать должна, если вашего файла экселевского нету по адресу, обработка ошибок в общем осталась.

Сообщение от rass придется решить старым способом через VBA

VBA последний гвоздь в крышку гроба вгоняют. Переходите на VB.net, аргументов в пользу этого утверждения на форуме мильен. Подход у него конечно ширше, но оно того стоит.

[Startrek]

Могу только посочувствовать.... а советовать - так ведь не в стране "Советов"....... Шутка.

Сообщение от rass Уважаемый Startrek, никто здесь не мудрит. Во превых я работаю в Акад2007, и у Таблицы не было пока функции From a data link. Только не предлагайте мне переходить на более поздние версии, у меня параллельно установлен Акад 2010, но политика фирмы в которой я работаю и требования заказчика исключает работу в версиях выше 2007. К тому же мне необходимо вставить данные не в таблицу, а в текст. Но все же благодарю за внимание. Абсолютно верно! Особо надо ))))

[rass]

Я бы там это... листы лишние пустые из книги удалил Вы же работу ведете с активным листом. И ченить программа сказать должна, если вашего файла экселевского нету по адресу, обработка ошибок в общем осталась.

Да, согласен код сырой, почти без обработок ошибок, но он написан на скору руку и не для широгого пользования, а для личного пользования. Но мне очень понравилось, что вы в .нет можете создать .dll и подгрузить их к автокаду. у меня уже много накопилось программок в ВБА облегчающие работу в автокад, но все ни как не могу их сделать устанавливаемыми... выидимо надо переходить на .нет

[Petrov-Vodkin]

rass, самое интересное знаете что - вот с этой темы на форуме началось моё освоение .net
Вот если бы вы этот VBA-код накидали полтора месяца назад - хрен бы я стал читать учебники, осваивать чего-то и ни капельки не поумнел бы
Рекурсия получилась прям какая-то.

[trir]

А как ручками правит формулу поля (которая в низу показывается)?

[rass]

А как ручками правит формулу поля (которая в низу показывается)?

Я в качестве альтернативы внутреннего редактора текста и мультитекса Автокад использую текстовый редактор VetCAD++ . И в нем фурмулы Полей отражаются корректно и можно редактировать их самостоятельно.

Я бы там это... листы лишние пустые из книги удалил Вы же работу ведете с активным листом. И ченить программа сказать должна, если вашего файла экселевского нету по адресу, обработка ошибок в общем осталась.

Учел замечания. а также сделал программку более устойчивой, так как ранее она работала только с окрытым фаилом .xls.

[vik74]

Сообщение от Petrov-Vodkin Да я вообще этим делом озаботился, потому что у нас на работе только А4 принтер есть, подшивки использовать не мог для штампов Прикладываю .dll файл, поколдовал там немного, может под Ваш 2010 и заработает, попробуйте. Командой _netload указать путь к файлу "SummaryInfo.dll". Станет доступна новая команда SetCustomProp. При новом запуске автокада процедуру подключения придется повторить. Про автоматическую загрузку .Net библиотек - читать здесь.

А у меня почему-то ошибка вылазит:

[IMG]http://s017.***********/i426/1110/45/bbfd366c566d.jpg[/IMG]

[shmulka]

rass, а можно в виде готового DLL, чтобы подгрузить в ACAD?

[rass]

shmulka, dll не делал, код записан в подгружаемом фаиле VBA при загрузке автокад.

[Sta1917]

Сообщение от rass Учел замечания. а также сделал программку более устойчивой, так как ранее она работала только с окрытым фаилом .xls.

Спасибо, удобная программка. Но с закрытым файлом не работает, убивает поля в *.dwg и открывает две пустые копии экселя, которые только через диспетчер задач закрыть можно и все, не подскажите в чем проблема? AutoCad 2013, Ecxel 2013.

[rass]

Sta1917, попробуйте новый код. Предыдущий очень старый.
При экспорте данных из excel, программа предлагает выбрать файл excel с данными.

[ABA[CAD]]

Помогло, спасибо

[Route]

А как запустить все это дело?
<...> Кросспостинг /kpblc/