• vec
  • Участник
  • На форуме с 29 декабря 2005г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как пользоваться макросами для создания кнопки?

Подскажите Как пользоваться макросами для создания кнопки?

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Как пользоваться макросами для создания кнопки?

И где ж эти макросы, которыми пользоваться для создания кнопки? Любопытно было б взглянуть...
Знаю только как с помощью VBA-макроса создать кнопку на тулбаре... Оно? ;)
Или вопрос был о том что и как навешать на кнопку?
Впрочем, телепаты уже давно пьянствуют по случаю Новогодних праздников... :)))

  • Forma
  • Восстановленный участник
  • На форуме с 22 июня 2005г.
  • Сообщений: 1,782
  • Спасибо: 0

Re: Как пользоваться макросами для создания кнопки?

> VEC
Н.Полещук "AutoCAD 2004 разработка приложений и адаптация". Хорошо и подробно описано как это делается.

  • vec
  • Участник
  • На форуме с 29 декабря 2005г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как пользоваться макросами для создания кнопки?

Видимо я не точно сформулировал вопрос, извините. VK, Ваша формулировка вопроса более грамотная, поэтому я его повторю - Как с помощью VBA-макроса создать кнопку на тулбаре?

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Как пользоваться макросами для создания кнопки?

Примерно так

Sub addButton()
    Dim currMenuBar As AcadToolbar
    Dim newButton As AcadToolbarItem
    Dim myOpenMacro As String
    ' Панель инструментов (существующая панель "Toolbar1" в группе "ACAD")
    Set currMenuBar = ThisDrawing.Application.MenuGroups.Item("ACAD").Toolbars.Item("Toolbar1")
    ' Макрос, аналог "^C^C_open "
    myOpenMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    ' Создание кнопки (индекс 0 - в самом начале тулбара)
    Set newButton = currMenuBar.AddToolbarButton(0, "NewButton1", "Open", myOpenMacro)
    ' Pисунок на кнопке
    newButton.SetBitmaps "myPicture.bmp", "myPicture.bmp"
End Sub

В хелпе подробнее.
Да, при закрытии АКАДа все новые кнопки слетят.