• SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Тема: Как избавится от "Command: nil"?

После выполнения макроса появляется такоя вот строка Command: nil, конечно же она идет после моих комментариев, о результатах выполнения макроса :(. Как избавиться от этой строки?
И какая комманда может очистить окно вывода Command Line?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как избавится от "Command: nil"?

ThisDrawing.SetVariable "cmdecho" 0; потом то же самое с nomutt.
только восстановить не забудь, а то получишь "слепо-глухо-немую" систему.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как избавится от "Command: nil"?

Public Sub PrintMessage(MessageString As String)
'Dim pEchoVal As Integer
    'pEchoVal = ThisDrawing.GetVariable("CMDECHO")
    ThisDrawing.SetVariable "CMDECHO", 1
    ThisDrawing.SetVariable "nomutt", 0
    ThisDrawing.Utility.Prompt MessageString
    ThisDrawing.SetVariable "CMDECHO", 0
    'ThisDrawing.SetVariable "nomutt", 1
End Sub

Вот такой вот код избавил меня от Command: nil, но зато получилось вот что,
> Проверка выполнена, ошибок не замеченно!nil ;) (это мой коментарий в command line), как от этого избавиться :)?
и как очистить окно command line

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как избавится от "Command: nil"?

У меня код 

Sub PrintMsg(sMessage As String)
Dim arSysVar(1) As Integer
  arSysVar(0) = ThisDrawing.GetVariable("cmdecho")
  arSysVar(1) = ThisDrawing.GetVariable("nomutt")
  ThisDrawing.Utility.Prompt sMessage
  ThisDrawing.SetVariable "cmdecho", arSysVar(0)
  ThisDrawing.SetVariable "nomutt", arSysVar(1)
End Sub

Вызванный как

Command: vbastmt
Expression: printmsg "Проверка"

Выдал 

Проверка
Command :

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как избавится от "Command: nil"?

Public Sub SelEl0()
...
If col = 0 Then
    PrintMessage vbCrLf & "> Проверка выполнена, ошибок не замеченно!"
Else
    PrintMessage "> " & col & " полилиний требующих ввода значения Elevation."
End If
End Sub

а вот результат ;)
Macro name: selel0
> Проверка выполнена, ошибок не замеченно!
Command: nil

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как избавится от "Command: nil"?

> kpblc
поправочка :)

If col = 0 Then
    PrintMsg vbCrLf & "> Проверка выполнена, ошибок не замеченно!"
Else
    PrintMsg "> " & col & " полилиний требующих ввода значения Elevation."
End If

а вот результат ;)
Macro name: selel0
> Проверка выполнена, ошибок не замеченно!
Command: nil

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как избавится от "Command: nil"?

Может, там дальше что-то такое вываливает?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как избавится от "Command: nil"?

Нет это коней процедуры дальше ничего нет ;). Ладно перехожу на свой вариант :)
> Проверка выполнена, ошибок не замеченно!nil