• turta
  • Восстановленный участник
  • На форуме с 25 июня 2004г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Как создать новое меню в среде AutoCAD?

Как создать новое меню в среде Акада?
Если можно небольшую инструкцию, пожалуйста.

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как создать новое меню в среде AutoCAD?

Cтруктура меню хорошо описана в HELPе

  • Serj
  • Восстановленный участник
  • На форуме с 15 декабря 2004г.
  • Сообщений: 41
  • Спасибо: 0

Re: Как создать новое меню в среде AutoCAD?

Меню вообще легче создать "ручками" (в смысле файл mnu). А средствами VBA его можно подгрузить если нужно.

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

Re: Как создать новое меню в среде AutoCAD?

Кнопочное меню - примерно так:

Dim MyMenu As IAcadPopupMenu
Public Sub AddMyMenu(ByVal MyMenuName As String)
  Set MyMenu = ThisDrawing.Application.MenuGroups(0).Toolbars.Add(MyMenuName)
End Sub
Public Sub DeleteMyMenu(ByVal MyMenuName As String)
  On Error Resume Next
  ThisDrawing.Application.MenuGroups(0).Toolbars.Item(MyMenuName).Delete
  On Error GoTo 0
  Set MyMenu = Nothing
End Sub

Здесь новое меню создаётся в "нулевой" группе меню (.MenuGroups(0).), обычно это меню имеет имя "ACAD", но можно задать и другую группу по номеру или по имени (если, конечно, она загружена), и даже создать свою собственную группу (конечно, заранее).