[Lesha]

искал - что-то ничего не нашел.
нужно сделать следующее:
когда пользователь нажимает кнопку, переключиться на определенный слой, там начертить полилинию(задаваемую пользователем), и в конце переключиться на исходный слой.

повесил на кнопку функцию:

Код:

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

(defun brs_sch_pw( / oldlayer )
  (setq oldlayer (getvar "CLAYER"))
  (command "_setvar" "clayer" "wires")
  (command "_pline")
  (setvar "CLAYER" oldlayer)
)

надо на команде "_pline" отдать управление акаду до тех пор, пока юзер не закончит рисование полилинии. в моем коде этого не происходит
как это сделать?
заранее благодарен

[Кулик Алексей aka kpblc]

Код:

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

(defun brs_sch_pw( / oldlayer )
  (setq oldlayer (getvar "CLAYER"))
  (command "_setvar" "clayer" "wires")
  (command "_pline")
  (while (/= (logand (getvar "cmdactive") 31) 0)
    (command pause)
    )
  (setvar "CLAYER" oldlayer)
)

Вроде так, если опять не перепутал имя сист.переменной.

[Lesha]

то, что надо! спасибо!
вопрос закрыт)

[Profan]

(command "_setvar" "clayer" "wires")

А разве нельзя так:

Код:

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

(setvar "clayer" "wires")

?

[Кулик Алексей aka kpblc]

Не-а, не закрыт
Что будет, если пользователь "закончит" рисование нажатием Esc? Праально, слой обратно не вернется А если слоя еще нет в файле? А если потом надо будет отменить сделанное? В общем, примерно решение такое получается (если не углубляться):

Код:

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

(defun brs_sch_pw (/ oldlayer *error*)
  (defun *error* (msg)
    (if	oldlayer
      (setvar "clayer" oldlayer)
      ) ;_ end of if
    (command "_.undo" "_e")
    (princ msg)
    (princ)
    ) ;_ end of defun

  (setq oldlayer (getvar "CLAYER"))
  ;;(setvar "clayer" "wires")
  (command "_.layer" "_m" "wires" "")
  (command "_.undo" "_g")
  (command "_.pline")
  (while (/= (logand (getvar "cmdactive") 31) 0)
    (command pause)
    ) ;_ end of while
  (setvar "CLAYER" oldlayer)
  (command "_.undo" "_e")
  (princ)
  ) ;_ end of defun

[Lesha]

...и правда, по Esc-у слой обратно не возвращался...а теперь все в порядке.
а что с undo не так? не вижу разницы в работе...

[Кулик Алексей aka kpblc]

Возьми свой код, нарисуй полилинию, заверши нормально. Потом - отмена до тех пор, пока полилиния не исчезнет. Слой какой? По идее не вернется

[Lesha]

в обоих случаях после нормального завершения по первому undo стирается полилиния и устанавливается слой "wires" по второму undo устанавливается исходный слой ("0")

(command "_.undo" "_g")
поставил перед
(command "_.layer" "_m" "wires" "")
и стало все отлично

спасибо за помощь
я узнал больше чем спрашивал

[Кулик Алексей aka kpblc]

Упс... Нда, что значит сила привычки. Настолько отвык работать через (command), что в них путаюсь
Естественно, что надо было поменять местами, ты все правильно сделал [img]http://img246.**********.us/img246/8399/thumbsup4kk.gif[/img]