• Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Автозапуск макроса

У меня 2007 Кад. Не знаю как добавить еще один пункт в меню фаил из када для того, чтобы он(пункт) загружал мой макрос. Проблему я решил с помощью ненужного для меня пункта(Фаил - открыть подшивку) и написал напротив  _-vbarun Sample. Но такое решение конечно устраивать не может.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Автозапуск макроса

acad.dvb

  • Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Re: Автозапуск макроса

А подробнее, если можно? Что дописать в acad.dvb?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Автозапуск макроса

Sub ACADStartup()
'    Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!CreateVBAToolBar")
'    Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!VBAIDE_Customization")
    [b]Call AcadApplication.RunMacro("MyProject.dvb!MyModule.MyAction")[/b]
End Sub

И прописать пути поддержки к этому файлу (acad.dvb).

  • На форуме с 31 мая 2011г.
  • Сообщений: 18
  • Спасибо: 0

Re: Автозапуск макроса

ACADStartup() не происходит автозапуска после загрузки, может Sub другой или еще что то прописать?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Автозапуск макроса

Игорь пишет:

не происходит автозапуска после загрузки

Нужно проверить:
- а загружается ли файл acad.dvb фактически?
- а правильное ли указано имя Макроса("MyProject.dvb!MyModule.MyAction")?
- не закавычена ли строчка вызова макроса?
- какова версия Автокада и поддерживает ли он VBA вообще?
- нет ли ошибки времени исполнения при вызове макроса?

 Err = 0
    Call AcadApplication.RunMacro("MyProject.dvb!MyModule.MyAction")

    MsgBox Err.Description

- что-либо еще не в порядке ...

Говоря другими словами, для конкретного ответа информации в выложенном вопросе недостаточно.