[shprot]

Здравствуйте.
Как создать команду с опциями (контекстным меню команды.)
Допустим есть команда запускающая макрос

^C^C_-vbarun Module1.Test

Sub Test() Dim Point1 As Variant Point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "точка") ActiveDocument.ModelSpace.AddPoint (Point1) End Sub

Нужно что бы после запуска команды и нажатия пр. кнопки имелась возможность выбрать одну из нескольких опций запускающих другой макрос.
Заранее спасибо

[gomer]

справку читай, там все написано

[shprot]

Спасибо за конкретный ответ.

[gomer]

какой вопрос, такой и ответ<--

[shprot]

Опции добавил, но как назначить для них выполнение какой либо процедуры? Видимо через GetInput, но что-то делаю не так

Sub Test() Dim Point1 As Variant Point1 = ThisDrawing.Utility.GetPoint(, "Первая точка или [Параметры/Толщина]:") Dim outStr As Variant outStr = ThisDrawing.Utility.GetInput() If outStr = "Параметры" Then MsgBox outStr Exit Sub ElseIf outStr = "Толщина" Then MsgBox outStr Exit Sub End If ActiveDocument.ModelSpace.AddPoint (Point1) End Sub

[gomer]

Сообщение от shprot что-то делаю не так

почитайте внимательно пример, который я вам дал

[shprot]

Если использовать в место ввода

Код:

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

  returnPnt = ThisDrawing.Utility.GetPoint(, "Введите точку (Keyword1, Keyword2): ")

делает выбор

Код:

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

returnPnt = ThisDrawing.Utility.GetPoint(, "Введите точку [Keyword1/Keyword2]: ")

То

Код:

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

inputString = ThisDrawing.Utility.GetInput

Почему то всегда возвращает "Keyword1" а на "Keyword2" не реагирует, в чем может быть дело?

[Олег (jr.)]

Сообщение от shprot Почему то всегда возвращает "Keyword1" а на "Keyword2" не реагирует, в чем может быть дело?

Смотри в настройках, выделено в примере:

Код:

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

Option Explicit
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
' NOTE:
' Go to Tools--> Options --> General tab --> Error Traping --> check "Break on Unhandled Errors"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'

Sub Example_InitializeUserInput()
    ' Этот пример запрашивает относительно пользовательского ввода точки.
    ' При использовании метода InitializeUserInput, чтобы определить список
    ' ключевого слова, он может также возвратить ключевые слова, введенные
    ' пользователем.
    
    On Error Resume Next
    
    'Определите допустимые ключевые слова
    Dim keywordList As String
    keywordList = "foo bar"
    
    ' Вызовите InitializeUserInput к установке ключевыми словами
    ThisDrawing.Utility.InitializeUserInput 128, keywordList
    
    'Получите пользовательский ввод
    Dim returnPnt As Variant
    returnPnt = ThisDrawing.Utility.GetPoint(, "Введите точку [foo/bar]: ")
    If Err Then
         If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
         'Одно из ключевых слов было введено
             Dim inputString As String
             Err.Clear
             inputString = ThisDrawing.Utility.GetInput
             MsgBox "Вы ввели ключевое слово: " & inputString
         Else
             MsgBox "Ошибочный выбор точка: " & Err.Description
             Err.Clear
         End If
    Else
        'Отображение координаты точки
        MsgBox "WCS точки: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput Пример"
    End If
    
End Sub

[shprot]

Go to Tools--> Options --> General tab --> Error Traping --> check "Break on Unhandled Errors"

Спасибо. Но эта опция была включена и ранее.

[gomer]

shprot, опции должны отличаться заглавными буквами в начале слова, например: [Дятел/Дрозд] не катит, а [Дятел/ДРозд] и [Дятел/Филин] уже норм, твои же Keyword* ничем друг от друга не отличаются с точки зрения автокада, поэтому всегда выбирается первый вариант
и еще, пример Олег (jr.) не работает в русском автокаде

[shprot]

и еще, пример Олег (jr.) не работает в русском автокаде

Спасибо, я это заметил по:

Код:

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

"User input is a keyword"

К стати в Вашем примере эта ошибка имеет название:

Код:

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

"Пользовательский ввод - ключевое слово"

Но по факту там должно быть:

Код:

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

"Пользователь ввел ключевое слово"

По крайней мере так в AutoCAD 2012 возможно в других версиях по другому.

Код:

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

shprot, опции должны отличаться заглавными буквами в начале слова, например: [Дятел/Дрозд] не катит

Оо, спасибо, теперь все гуд!!

[Олег (jr.)]

Сообщение от gomer пример Олег (jr.) не работает в русском автокаде

Никогда не слышал о таком, предпочитаю аглицкий