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

Тема: Как вывести в коммандной строке коментарий?

Вот есть код

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
    'как здесь запросить параметр типа "Enter Elevation value: "
    returnObj.Elevation =  'и прочесть значение введенное через коммандную строку
    returnObj.Update = True

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

Re: Как вывести в коммандной строке коментарий?

Хорошо что еще ни кто не успел прочесть это :)
Вот настрочил решение

Public Sub inputVal()
 Dim newElev As Long
 Dim returnObj As AcadEntity
 On Error GoTo EBDSUB
 Do While 2 > 1
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object: "
        LineName = returnObj.ObjectName
        Select Case (LineName)
            'Case "AcDbLine"
            Case "AcDbPolyline"
                newElev = returnObj.Elevation
                newElev = ThisDrawing.Utility.GetInteger("Текущее значение Elevation <" & returnObj.Elevation & "> новое значение: ")
                returnObj.Elevation = newElev
                returnObj.Update
            'Case "AcDbMline"
            'Case "AcDbSpline"
            'Case "AcDbArc"
            Case Else
                Call ThisDrawing.Utility.GetKeyword ("Elevation не доступен")
        End Select
   Loop
EBDSUB:
End Sub

И вопросик как просто вывести в коммандной строке коментарий, а то я использовал строку 

Call ThisDrawing.Utility.GetKeyword ("Elevation не доступен")

  • pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Re: Как вывести в коммандной строке коментарий?

ThisDrawing.Utility.prompt "Elevation не доступен"

  • JS
  • Восстановленный участник
  • На форуме с 8 сентября 2005г.
  • Сообщений: 70
  • Спасибо: 0

Re: Как вывести в коммандной строке коментарий?

?ЁКЛМН? А PrintMessage из моего ответа не подойдёт ли? Такая удобная штукенция.

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

Re: Как вывести в коммандной строке коментарий?

> JS
Как я рад Вас видеть.
А вот для чего в PrintMessage так много строк, если все равно выводится через
ThisDrawing.Utility.prompt
? Может я что то не заметил

  • JS
  • Восстановленный участник
  • На форуме с 8 сентября 2005г.
  • Сообщений: 70
  • Спасибо: 0

Re: Как вывести в коммандной строке коментарий?

Извиняюсь, отвлёкся.
Так много для того, чтобы состояние переменной "CMDECHO" не влияло на отображение твоей строки. Если эта переменная какой либо другой программкой установлена в 0, то этот промпт не отобразится на экране. А принтмэссэдж его отпечатает и вернёт переменную на место. Работает железно. Одна только в ней проблема. Программа обращается к ThisDrawing, а если режим работы многодокументный, то лучше ссылку на документ тоже передавать в параметрах.

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

Re: Как вывести в коммандной строке коментарий?

Теперь все понятно за чем эти строки в PrintMessage, Спасибо.
А вот в моем коде я написал

   Do While 2 > 1
      ...
   Loop

Надеялся, что всегда будет вызваться GetEntity, даже если значение newElev не изменилось через GetInteger. Получается так если я ввел значение через GetInteger, то вызывается GetEntity, а если на GetInteger ответить просто энтером (т.е. оставил текущее значение), то вылетаем из процедуры. И необходимо вызывать ее еще раз. Можно это закрутить, а выйти серез Esc? Или это особенность command line.