[GePard]

Передо мной стоит такая задача (убедить начальство нанять программиста не представляется возможным). Нужно параметры полилинии (координаты, расстояния, площадь, периметр и т.д.) перенести в Word, причём оформить нужно это в виде таблицы (ширина, кол-во строк и столбцов, граница и заливка, шрифт тектста и т.д.). Что можете посоветовать для самостоятельного изучения?

[Кулик Алексей aka kpblc]

А обязательно в Word? Использовать обычные AutoCAD'овские таблицы нельзя?

[GePard]

Да, нужно именно в Word, т.к. после импорта предстоят некоторые редактирования

[-mavlin-]

Редактировать можно нетолько в ворде, но и в автокаде.
Или так не катит?

[Клякса]

Изучай VBA, не промахнешься. VBA поддерживается и Акадом и Вордом (в Оффисе это встроенный язык программирования). VBA прост, как шлагбаум. И по форумам много советов найти можно (в т.ч. и в этом форуме)

[Кулик Алексей aka kpblc]

Только VBA начиная с версии AutoCAD 2010 уже официально Autodesk'ом не поддерживается. Судьба VBA как языка весьма невнятна ИМХО.

[GePard]

Редактировать можно нетолько в ворде, но и в автокаде. Или так не катит?

мне кажется, что легче это сделать в Ворде, просто иногда приходится передавать эти документы в другие организации, где нет Автокада, опять же терять время на пдф. Хотя я могу и что-то путать, т.к. с таблицами в Автокаде не работал (не приходилось) и имеется свойства экспорта их в текстовые редакторы. Тогда над этим можно подумать.

Изучай VBA, не промахнешься. VBA поддерживается и Акадом и Вордом (в Оффисе это встроенный язык программирования). VBA прост, как шлагбаум. И по форумам много советов найти можно (в т.ч. и в этом форуме)

Начал изучать VBA в Ворде. А с Автокадом не понимаю. Нужно будет использовать Вишл Бэйсик? Он поддерживает спецкоманды для работы с Автокадом? Стоит ли изучать сам Бэйсик или можно, к примеру, Делфи? Если вам известно, то дайте, пожалуйста, ссылки на полезную литературу, в т.ч. и для Автокада. А то облазишь инет, найдёшь несколько вариантов, а они бесполезны.

[VVA]

GePard, Ты не указал версию Автокада. Если 2008 и выше, то разберись с таблицами, _dataextraction. Программировать не нужно. Из Excel в Word скопировать таблицу не составит труда.
Пару тем в помощь
ВИДЕО FAQ по AutoCAD особенно вопросы №№2;9
Где можно применить "Извлечение данных"(_.dataextraction)?

[GePard]

Вчера как раз начал изучать таблицы в 2008. Чего-нибудь придумать можно. Спасибо за ссылки, думаю они будут полезны. Проблема в том, что лицензия на работе только на 2002 и 2007, а мне нужно как раз для этих версий что-то придумать.

[Клякса]

Начал изучать VBA в Ворде. А с Автокадом не понимаю. Нужно будет использовать Вишл Бэйсик?

Акад поддерживает VBA (с учетом замечания Кулика Алексея aka kpblc). Но в отличие от оффисных приложений, в Акаде нельзя _записать_ макрос автоматически, все ручками придется делать. Самое приятное то, что код VBA можно скопипастить в компилятор VB. Я так и делаю: сперва пишу макросы под Вордом или Акадом, тестирую на результат, а потом копирую код в Басик и генерирую обычный экзешник, который выполняет то, что надо, и с Вордом и с Акадом. Это сильно упрощает разговор с _тетушками_, у которых от слов "macros", "load application", "запуск процедуры" начинаются мозговые колики. Проще один раз запариться с экзешником, чем объяснять, как запускать приложение в акаде, где и в каких строчках менять нужные параметры и т.д.
Синтаксис VBA и VB почти идентичет (как с Делфи - не знаю), поэтому при переходе от макроса к полноценному приложению проблем особых не должно быть. Надо только подключить библиотеки Акада и Ворда.

[Кулик Алексей aka kpblc]

Добавлю: может, лучше использовать позднее связывание для варианта стороннего приложения? По крайней мере, в 90% случаев к конкретной версии привязан не будешь...
Конечно, это усложняет написание кода, да и быстродействие падает. Но отсутствие необходимости перекомпилировать приложение на новые версии, мне кажется, окупит подобные трудности.

[Клякса]

Полностью согласен с предыдущим оратором. Только поначалу прощее все-таки подключать библиотеки вручную :-)

[GePard]

Спасибо за помощь. У меня возник вопрос, где можно найти хороший VBA самоучитель для AutoCAD на русском языке или легче выучить английский язык?

[Eximius]

Сообщение от Кулик Алексей aka kpblc Только VBA начиная с версии AutoCAD 2010 уже официально Autodesk'ом не поддерживается. Судьба VBA как языка весьма невнятна ИМХО.

Offtop: А подробней про перспективы vba в autocad и вообще про его (VBA) перспективы можно?

[Кулик Алексей aka kpblc]

К сожалению, я не помню точной ссылки. Но суть такова, что Microsoft практически официально прекратила поддержку VBA для MS Office начиная с версии 2007 и переводит всех пользователей на использование .NET-платформы. Autodesk идет "нога в ногу"...

[Клякса]

Не знаю, как в г. Чебоксары, а в Питере литературы по VB и VBA полно на русском. К слову: VB позволяет и часть кода (названия переменных, процедур и пр. ) писать по-русски.

[GePard]

Не знаю, как в г. Чебоксары, а в Питере литературы по VB и VBA полно на русском. К слову: VB позволяет и часть кода (названия переменных, процедур и пр. ) писать по-русски.

Я просил совета по конкретной книге, которая поможет мне решить конкретный вопрос в доступной форме. Если знаешь такую, посоветуй, пожалуйста.

В одной из английских книг нашёл вот что:

Код:

[Выделить все]

Sub word()
Set mobjword = CreateObject("word.application")
mobjword.Visible = True
Set mobjword = mobjword.Documents.Add
Set mobjtable = mobjword.ActiveDocument.tables.Add(mobjword.ActiveDocument.range, Application.Documents(cbodrawingname.text).Layers.Count + 1, 9)
End Sub

Открывает Ворд, создаёт новый документ, создаёт в нём таблицу 1 на 9. Ворд открывает, документ создаёт, а вот таблицу не вставляет - выскакивает окно. Мудился, мудился - ни до чего не домудился. Хотя если бы это сработало, то не нужно было бы связываться с ВБА Вородом, было бы легче. Помогите, пожалуйста, разобраться.

Ворд - 2003, АвтоКАД - 2008

[VVA]

Вот 2 строчки:

Set mobjword = CreateObject("word.application") Set mobjword = mobjword.Documents.Add

Ты в одну и ту же переменную пытаешься присвоить и объект Word и объект Документ, а потом у Документа пытаешься взять ActiveDocument

Код:

[Выделить все]

Sub word()
Set OW = CreateObject("word.application")
OW.Visible = True
Set WDOC = OW.Documents.Add
Set WTBL = WDOC.tables.Add(WDOC.range, 1, 9)
End Sub

[GePard]

спасибо большое за ответ, помогло

у меня возник такой вопрос:

Код:

[Выделить все]

wt.cell(4, 1).borders.linestyle = wdLineStyleSingle

что здесь неправильно? вт - таблица.

и ещё, как можно менять ширину-высоту одной конкретной ячейки, пробовал - не получается. Или легче просто разбить таблицу, условно говоря, на 50х40, а потом объединять нужные, насколько это целесообразно?

[VVA]

GePard, Включаешь автозапись макроса в Word'e, делаешь то что нужно, изучаешь код.