Тема: Вывод сообщения в командную строку
Помогите правильно вывести собщение в командную строку, чтобы не появлялось собщение о вводе неправильных команд:
Public Sub УказатьАктивныйСтильРазмеров()
Dim acadobjРазмерЧертежа As acadObject, vPoint As Variant
On Error Resume Next
ВыделитьРазмер:
ThisDrawing.Utility.GetEntity acadobjРазмерЧертежа, vPoint, "Выдели размер:"
On Error GoTo ОбработкаОшибок
If InStr(1, TypeName(acadobjРазмерЧертежа), "Dim") <> 0 Then
ThisDrawing.ActiveDimStyle = ThisDrawing.DimStyles(acadobjРазмерЧертежа.StyleName)
' MsgBox "Активный стиль размеров: """ & acadobjРазмерЧертежа.StyleName & """", vbInformation, gstrНазваниеПрограммы
ThisDrawing.SendCommand "Активный стиль размеров: """ & acadobjРазмерЧертежа.StyleName & """"
Else
glngОтвет = MsgBox("Ошибка при выделении размера! Продолжать выделять размер?", vbYesNo, "Длины стержней")
If glngОтвет = vbYes Then GoTo ВыделитьРазмер
End If
Exit Sub
ОбработкаОшибок:
glngОтвет = MsgBox("Ошибка при выделении размера! Продолжать выделять размер?", vbYesNo, "Длины стержней")
If glngОтвет = vbYes Then GoTo ВыделитьРазмер
End SubИспользование команды SendCommand приводит к тому, что каждый пробел воспринимается как Enter. А как сделать так, чтобы просто появилась строчка с сообщением. И ещё как очистить командную строку, чтобы перед собщением можно было нарисовать например *** или ;;; $$$ и т.д.
