[voivodo4kin]

Есть надстройка на Autocad со своим пользовательским меню. В меню есть команда «Открыть», которая запускает макрокоманду ^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open). Эта макрокоманда взята из файла с расширением *.MNU. Я хочу дописать кое-что на VBA и мне нужно, чтоб при нажатии кнопки на моей форме выполнялась эта самая макрокоманда ^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open). По сути, нужна имитация запуска команды пользовательского меню из формы VBA.
Помогите, пожалуйста. Я новичок в программировании, а время поджимает. Не могу закончить проект без этой мелочи. Спасибо всем кто откликнется.

[gomer]

Можно даже, чтоб еще и за пивом сбегало...
$M=$(if,$(eq,$(getvar,users5),1),^C^C_.open) никогда ничего вам не откроет...
по сути выполниться может только (km_prow1)
Из vba это можно так сделать
ThisDrawing.SendCommand "(km_prow1)" & vbCr

[voivodo4kin]

Большое спасибо за совет.
Поблема в том, что за km_prow1 закрeплено 3 команды:
***POP1
[Проект]
[Откpыть]^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open)
[Сохранить]^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_qsave)
[Сохpанить как]^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_saveas)

Наверное именно поэтому ThisDrawing.SendCommand "km_prow1" & vbCr не работает.
Можно заменить простой командой ThisDrawing.SendCommand "open" & vbCr .
Просто я до конца не понимаю для чего нужна операция $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open, и что произойдет без нее.

[gomer]

Сообщение от gomer $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open) никогда ничего вам не откроет...

Кажется я погарячился с выводами...
Чтобы после (km_prow1) выполнялось открытие или сохранение нужно в командной строке ввести users5 (системная переменная) и потом ввести 1!

Сообщение от voivodo4kin Наверное именно поэтому ThisDrawing.SendCommand "km_prow1" & vbCr не работает.

Тут я опять ошибся... (Вот ведь насоветовал...) ThisDrawing.SendCommand "(km_prow1)" должно работать...
Ну а дальше...

Код:

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

If ThisDrawing.GetVariable("Users5") = "1" Then
 ThisDrawing.SendCommand "_.OPEN"  & vbCr
End If

Кажется так...

[voivodo4kin]

Огромное спасибо!
Все заработало. Правда пришлось дописать, чтоб форма пряталась.

Итог:

Вот макрокоманда:
^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open)

Вот аналог VBA:
If ThisDrawing.GetVariable("Users5") = "1" Then
Me.Hide
ThisDrawing.SendCommand "_.open " & vbCr
Me.Show
End If

Забыл сказать, что работает без
ThisDrawing.SendCommand "km_prow1" & vbCr

Мне, как полному чайнику, это кажется очень странным

[gomer]

если km_prow1 не загружен то и выполняться не может... ничего странного...

[voivodo4kin]

Теперь мне все ясно. Но как загрузить km_prow1.
На команду «ThisDrawing.SendCommand "km_prow1" & vbCr» получаем ответ: «Unknown command "KM_PROW1". Press F1 for help.»
А команда «ThisDrawing.SendCommand "_qsave" & vbCr» выполняется только после того, как я старой командой «^C^C(km_prow1) $M=$(if,$(eq,$(getvar,users5),1),^C^C_.open)» загружу km_prow1.

Значит остался открытым вопрос о том, как средсвами vba загрузить km_prow1

[gomer]

Сообщение от voivodo4kin как загрузить km_prow1

ThisDrawing.SendCommand "(load " & chr (34) "km_prow1.lsp" chr (34) & ")" & vbCr