[staer]

Взял пример программы из книги "visual basic 2010 на примерах" но т.к. в примере указан 2000 автокад, а у меня стоит 2011 и 2012, то у меня работать не хочет. Добавил ссылку Autocad 2012 Type library убралось несколько ошибок, но пишет что AutoCad не объявлен. То есть мне нужно задать AutoCad как переменную. Если кто знает, пожалуйста подскажите как это сделать...

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

staer, для начала: приложение внешнее или работает внутри AutoCAD'a?

[staer]

Ну вообще внешняя. То есть моя цель сделать программу, которая будет автоматически оформлять весь проект, т.к. они все однотипные меняются только рамки, адреса, и прочие мелочи: с вордовскими файлами я поступил так: написал макрос где я использую автозамену по словам, а затем сохраняю и перевожу в пдф. Затем все это вставил в VB2010 и оттуда он открывает все разделы проекта, производит в них автозамену и переводит в пдф. То есть я просто забиваю то что я хочу поменять.
По такому же принципу я хочу сделать и с автокадовскими файлами, но столкнулся с двумя проблемами, макросы в автокаде записываются не в басике, а как я понял на лиспе. А вторая то что я не могу подключить даже написанную программу к автокаду...

[Boxa]

2 staer
Если вы в автокаде наберете команду "_.vbaide" Вы очень сильно обрадуетесь. Удачи.

[staer]

Спасибо Воха, как вызывать редактор вба из автокада - я в курсе, но в любом случае макросы записываются на лиспе, насколько я знаю...

[gomer]

Сообщение от staer но в любом случае макросы записываются на лиспе, насколько я знаю...

НЕТ

[staer]

Сообщение от gomer НЕТ

А в чем же тогда? И как я могу увидеть код макроса в бейсике?

[Boxa]

Сообщение от staer И как я могу увидеть код макроса в бейсике?

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

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

Сообщение от Boxa в автокаде такого нет

Не совсем правда. Рекордер макросов существует, по-моему, начиная с 2009 версии. Я его, правда, не пробовал.

[Boxa]

Если имеется в виду это:

AutoCAD 2009 Action Recorder

http://www.youtube.com/watch?v=oq_I7UqxGJI(тут видео для 2012

Autocad 2012 Action Macros

http://www.youtube.com/watch?v=3qRZLSLY_ds )
То это очень похоже на *.scr с визуальным редактором.
ЗЫ. У меня 2008, в нем такой штуки нет, так что сужу по ролику.

[staer]

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

[gomer]

Сообщение от staer Пробовал сохранять как .scr макрос, но в бейсике его открыть нельзя... А можно ли как то из бейсика запустить этот макрос, то есть написать код что бы он его открывал и запускал?

смесь бульдога с носорогом

Сообщение от Boxa тут видео для 2012

команды рисования лучше заменять вставкой блоков...

staer, пишите сценарии на vb и не надо лезьть в автокад... но если уж совсем лень кнопавки нажимать, то это три действия: родить автокад (createobject), запустить сценарий (sendcommand), убить автокад... все... большая красная готова... если объекты типовые то и сценарии типовые будут... а писать текстовые файлы это вообще задачка для студентов

зы. посмотрел что вы там пытались на программировать... в примере который вы использовали

Dim AcadApp As AutoCAD.AcadApplication = New _ AutoCAD.AcadApplication ' Также можно создать объект AcadApp таким образом: ' Dim AcadApp As AutoCAD.AcadApplication ' AcadApp = CreateObject("AutoCAD.Application")

попробуйте 2й способ... это о чем я писал выше...

Код:

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

' Dim AcadApp As AutoCAD.AcadApplication = New  _
          '                               AutoCAD.AcadApplication

        ' Также можно создать объект AcadApp таким образом:
         Dim AcadApp As Object
         AcadApp = CreateObject("AutoCAD.Application")

[staer]

Gomer, спасибо большое, одна ошибка убралась, но осталась еще одна: "AutoCad" - не объявлен. Пытаюсь в обозреватели объектов найти AutoCad, но там нету...

Сообщение от gomer а писать текстовые файлы это вообще задачка для студентов

Да я в принципе и есть студент, и только начал изучать бейсик но видимо придется изучать еще и лиру... или лучще С++?
Да, и для того что бы написать програмку автозамены в автокаде, мне нужно знать как это выглядет в автокаде на языке бейсика... а как это узнать пока не знаю...

[gomer]

Сообщение от staer одна ошибка убралась, но осталась еще одна: "AutoCad" - не объявлен

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

[staer]

когда копируешь программный код из ВБ 2010 в ВБА в ворде получаются знаки вопроса. И как я понимаю ВБА немного отличается от ВБ2010 командами. Так же слышал что ВБА для работы только в пределах одного файла...