[Positron]

Надо после Offset выделить результат Offset'а макросом,
для дальнейшей обработки, напимер перенос в определённый слой.
Тоисть тот контур што отбивается Offseto'м автоматом кидает в спец слой...

Команда last и previous select'а не может сего зделать.
_change;last;;p;layer;"0";; тоже только 1 кусок но не все (их может быть несколько после Offset)

[Profan]

Надо иметь в виду, что последующий набор объектов затирает предыдущий. На лиспе можно сделать.

[grachev.p]

Я тоже этим вопросом задался недавно. Но ЛИСП для меня пока темный лес.
Как применить выделение к линиям после _offset не додумался. Решил пойти другим путем.

Сначала переводим текущий слой на тот, который нужен, затем для _offset ставим опцию, чтобы подобные элементы выполнялись со свойствами текущего слоя.

Все бы ничего, но я не знаю, как сделать так, чтобы по завершении команды устанавливался слой, который был до начала команды. Уважаемые знатоки ЛИСПА, наведите на мысль, пожалуйста, какие функции за это действо отвечают?

[VVA]

Сообщение от grachev.p Все бы ничего, но я не знаю, как сделать так, чтобы по завершении команды устанавливался слой, который был до начала команды.

Лисп здесь не нужен. Команда _layerp вернет предыдущее состояние слоя

[grachev.p]

_layerp вернет предыдущее состояние слоя

Спасибо, не знал.

Но ведь нужно же наверно (только предположение мое) реакцию на завершение команды установить перед _layerp. Хотя не уверен.

[VVA]

Сообщение от grachev.p Но ведь нужно же наверно (только предположение мое) реакцию на завершение команды установить перед _layerp.

CMDACTIVE тебе в помощь
LISP. Программное завершение команды.

[grachev.p]

Сообщение от VVA CMDACTIVE тебе в помощь LISP. Программное завершение команды.

Спасибо, прочитал, понял. Возник другой вопрос, я не понял принцип функции logand


В общем, _offset работает.

Код:

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

(defun C:KKK (/)
  (command "_layer" "_make" "ПВХ" "_color" "197" "" "_lweight" "1" "" "")
(command "_offset" "_layer" "_current" "30")
(while (/= (logand (getvar "cmdactive") 31) 0) 
  (command pause) 
  )
(command "_layerp")
)

(/= (logand (getvar "cmdactive") 31) - как я понял, тут идет сравнение с "о", (getvar "cmdactive") - в этом месте присваивается значение 1,2,4,8,16,32,64

(logand <число> <число> ...)
Эта функция возвращает результат действия побитового И над списком <чисел>. Эти <числа> должны быть целые и результат - так же целое число.

Как это вообще понимать?

Вот проверил то, что в моем случае.

Код:

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

_$ (logand 1 31)
1
_$ (logand 2 31)
2
_$ (logand 4 31)
4
_$ (logand 8 31)
8
_$ (logand 16 31)
16
_$ (logand 32 31)
0
_$ (logand 64 31)
0

И не понимаю, откуда берется ноль.