[Holon]

Есть необходимость построения такого меню,
как на картинке, с выпадающими иконками, как это делается?

[VVA]

Судя по тому, что тема в программировании ты хочешь сделать это программно или понять как это делается ручками?

[Makswell]

Как-то так:

Код:

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

(vla-AttachToolbarToFlyout
  (vla-AddToolbarButton
    (vla-Item
      (vla-get-Toolbars
	(vla-Item (vla-get-MenuGroups (vlax-get-acad-object)) "acad")
      )
      "Toolbar"
    )
    0
    "New_Flyout"
    "Подсказка"
    " "
    :vlax-true
  )
  "acad"
  "Toolbar1"
)

Где:
"acad" - имя группы меню
"Toolbar" - имя панели, в которую добавляешь
"New_Flyout" - имя новой кнопки
"Toolbar1" - имя панели, которую добавляешь на кнопку

[Profan]

Скорее всего здесь Группа меню не "acad".

[Makswell]

Сообщение от Profan Скорее всего здесь Группа меню не "acad".

Я написал к примеру. Может быть своя группа меню, а может быть и "acad". Почему бы и нет?

Добавлю:
Приведённые значения "acad", "Toolbar", и "Toolbar1" обязательно уже должны быть в системе. Т.е. уже должна существовать такая группа меню с такими панелями.

[Holon]

По примеру Makswell меню создается програмно, а вот еще вопрос возможно ли тоже самое сделать с *.MNU файлом ?

[VVA]

Holon, Ты хочень программно создать mnu (текстовый) файл с выпадающее меню?
Вот пример. МИП_СВЕДЕНИЯ1 - выпадающее меню. Основные связи выделили цветами

***MENUGROUP=MIP ***TOOLBARS **МИП_СВЕДЕНИЯ ID_МИП_Сведения_0 [_Toolbar("МИП_Сведения", _Floating, _Hide, 267, 503, 1)] ID_Dist_0 [_Button("Расстояние", "RCDATA_16_DIST", "RCDATA_16_DIST")]'_dist ID_Area_0 [_Button("Площадь", "RCDATA_16_AREA", "RCDATA_16_AREA")]^C^C_area ID_Massprop_0 [_Button("Геометрия и масса", "RCDATA_16_MASSPR", "RCDATA_16_MASSPR")]^C^C_massprop ID_List_0 [_Button("Список", "RCDATA_16_LIST", "RCDATA_16_LIST")]^C^C_list ID_Id_0 [_Button("Координаты", "RCDATA_16_ID", "RCDATA_16_ID")]'_id **МИП_СВЕДЕНИЯ1 ID_МИП_Сведения1_0 [_Toolbar("МИП_Сведения1", _Floating, _Hide, 422, 456, 1)] ID_UserFlyout_41 [_Flyout("Пользовательское подменю", RCDATA_16_BLANK, RCDATA_16_BLANK, _OtherIcon, MIP.МИП_СВЕДЕНИЯ)]

[Holon]

Вот я построил тестовый файл загружаю его и в бар меню TB_TEST_02 вообще нет кнопки

Код:

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

***MENUGROUP=TEST_01

***TOOLBARS
**TB_TEST_01
[_Toolbar("TEST Application_01", _Floating, _Show, 400, 200, 0)]
[_Button("Button1","Picture1_16.bmp","Picture1_32.bmp")]^C^C_Line
[_Button("Button4","Picture4_16.bmp","Picture4_32.bmp")]^C^C_Circle

***TOOLBARS
**TB_TEST_02
[_Toolbar("TEST Application2", _Floating, _Hide, 422, 456, 1)]
[_Flyout("Application", Picture_16.bmp, Picture_16.bmp,TEST_01.TB_TEST_01)]

[VVA]

***TOOLBARS **TB_TEST_02

Красное ***TOOLBARS убери

[Holon]

Код:

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

***MENUGROUP=TEST_01

***TOOLBARS
**TB_TEST_01
[_Toolbar("TEST Application_01", _Floating, _Show, 400, 200, 0)]
[_Button("Button1","Picture1_16.bmp","Picture1_32.bmp")]^C^C_Line
[_Button("Button4","Picture4_16.bmp","Picture4_32.bmp")]^C^C_Circle

**TB_TEST_02
[_Toolbar("TEST Application2", _Floating, _Hide, 422, 456, 1)]
[_Flyout("Application", Picture_16.bmp, Picture_16.bmp,TEST_01.TB_TEST_01)]

[VVA]

Нужно так:
1. Файл должен называться так же как MENUGROUP, т.е. test_01.mnu (или mns)
2. Содержимое

***MENUGROUP=TEST_01 ***TOOLBARS **TB_TEST_01 [_Toolbar("TEST Application_01", _Floating, _Show, 400, 200, 0)] [_Button("Button1","Picture1_16.bmp","Picture1_32.bmp")]^C^C_Line [_Button("Button4","Picture4_16.bmp","Picture4_32.bmp")]^C^C_Circle **TB_TEST_02 [_Toolbar("TEST Application2", _Floating, _Hide, 422, 456, 1)] [_Flyout("Application", Picture_16.bmp, Picture_16.bmp, _OtherIcon,TEST_01.TB_TEST_01

3. После последней строки (_OtherIcon,TEST_01.TB_TEST_01) добавь переход на новую строчку

[Holon]

Большее спасибо заработало, хочу заметить, что файл меню должен быть в формате mns, если вышеуказанный код сохранить в mnu то работать небудет!

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

Holon, вообще-то обычно работает (коды не загружал). Независимо от версии.

[CB]

>Holon
Вообще-то файлы с расширением *.mnc, *.mnr,*.mns создаются ACAD'ом, после применения команды _menu, далее в диалоговом окне в Files of type -> menu template (*.MNU) загрузкой соответствующего mnu-файла...

[Holon]

Offtop: Да действительно mnu тоже работает, это была моя ошибка

1. Файл должен называться так же как MENUGROUP, т.е. test_01.mnu (или mns)