[Vova]

Как вы решили такую задачу на лиспе: надо вычертить полилинию с различным количеством сегментов. Зaтем, после нажатия Enter, должна последовать следующая команда, например, Move Last. Каков принципиальный подход к такой последовательности действий? На макросе нажатие Enter обрывает цепочку команд

[Эдуард]

Хотя-бы так:

Код:

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

(defun C:plin-mov()
  (command "pline")
  (while
  (=
    (getvar "cmdactive" )
    1
    )
  (command pause)
  )
  (command "move" (entlast) "" pause pause)
  (princ)
  )

[v_alex]

у меня задачка другая... пишу макрос для кнопки... надо проверить нажание Enter или правой кнопки мыши... если клавиша нажата, то прервать команду... если нет то продолжить выполнение...

Код:

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

^C^C(command "_layer" "Set" "_Размер" _$ (command "_dimcontinue" pause repeat (command "_layerP")))

[v_alex]

все решалось гораздо проще... [sm2103] я в Лиспе всего вторые сутки колдую)))
данная команда рисует Continue Dimension в конкретном слое и возвращает предидущий слой... может кому пригодится...

Код:

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

^C^C( repeat (command "_layer" "Set" "_Размер" _$ (command "_dimcontinue" pause (command "_layerP") ) ) )

p.s. глючит однако... выдает "Command: ; error: bad argument type: fixnump: nil" ... буду разбираться... может кто подскажет?