Files
kompas3d-mcp/docs/Kompas3D_SDK/guides/externalmenuitem.md
T
mikhail e1337e4016 feat(sdk-docs): MD-база знаний SDK — в репозиторий; генератор и зеркало убраны
docs/Kompas3D_SDK/ становится каноническим источником справки КОМПАС SDK
и включается в репозиторий (2491 файл, ~14 МБ). HTML-зеркало
docs/KOMPAS_SDK_ru-RU/ (~1.4 ГБ, © АСКОН) и генератор
tools/build_kompas3d_sdk.py больше не нужны — регенерация не предполагается.

- .gitignore: MD-база разблокирована; зеркало остаётся проигнорированным
  (safety-net на случай повторной локальной выгрузки).
- CLAUDE.md / SKILL.md: убраны упоминания регенерации и зеркала.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
2026-05-26 20:00:05 +03:00

79 lines
2.4 KiB
Markdown
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
---
title: "ExternalMenuItem - Получить строку меню для создания меню в виде строк"
type: guide
api: [api7]
tags: [guide, api7, externalmenuitem]
sources:
- externalmenuitem.html
---
*Создание прикладных библиотек  > Оформление прикладных библиотек типа ActiveX  > Пример простейшей программы в среде VB, оформленной в виде ActiveX библиотеки КОМПАС  > Функции *
## ExternalMenuItem - Получить строку меню для создания меню в виде строк
Пример...
TAutoString ExternalMenuItem (short number,
short * itemType,
short * command);
Синтаксис Visual Basic:
Public Function ExternalMenuItem (ByVal number As Integer,
itemType As Integer,
command As Integer) As String
Параметры:
number - счетчик строк
itemType - тип строки
(0 - SEPARATOR (разделитель);
1 - MENUITEM (строка с названием пункта меню);
2 - POPUP (начало выпадающего подменю);
3 (или любое другое число) - ENDMENU (конец меню\подменю).
command - номер команды, если itemType = 1,
или -1 во всех остальных случаях
## Пример использования функции ExternalMenuItem
Public Function ExternalMenuItem(ByVal number As Integer, itemType As Integer, command As Integer) As String
itemType = 3 '"ENDMENU"'
ExternalMenuItem = ""
command = -1
Select Case number
Case 1
itemType = 1 'MENUITEM'
ExternalMenuItem = "Создать деталь"
command = 1
Case 2
itemType = 2 'POPUP'
ExternalMenuItem = "Выпадающее меню_1"
command = -1
Case 3
itemType = 1 'MENUITEM'
ExternalMenuItem = "Деталь с фасками"
command = 2
Case 4
itemType = 0 'SEPARATOR'
ExternalMenuItem = ""
command = -1
Case 5
itemType = 1 'MENUITEM'
ExternalMenuItem = "Команда_3"
command = 3
Case 6
itemType = 3 'ENDMENU'
ExternalMenuItem = ""
command = -1
Case 7
itemType = 2 '"POPUP"'
ExternalMenuItem = "Выпадающее меню_2"
command = -1
Case 8
itemType = 1 '"MENUITEM"'
ExternalMenuItem = "Команда_4"
command = 4
Case 9
itemType = 3 '"ENDMENU"'
ExternalMenuItem = ""
command = -1
End Select
End Function