Макрос на кнопку "Отключение слоя или группы слоев" (Страница 1 из 4)

В "Express Tools" полно средств управления слоями.

> Forma
Дело не в том, что я не представляю себе работу машиностроителей, а в том, что я не представляю себе такую работу в AutoCAD, что даже функциональные клавиши приходится заменять кнопками с макросами. Это недоступно для моего разумения, а пытаясь понять логику ваших задач, я чувствую себя или обманутым или ослом.

Раз уж так хочется:

;|=============================================================================
*    Отключение слоя выбранного объекта. Не проверялось на работоспособность
* с блоками и внешними ссылками
*    имя сохранения: kpblc-layer-off.lsp. Файл должен быть по пути поддержки
* AutoCAD
*    Параметры:
*    Нет
*    Примеры вызова:
kpblc-layer-off
* в lisp:
c:kpblc-layer-off
* в макросах DIESEL:
^C^C(if (not "c:kpblc-layer-off") (load "kpblc-layer-off.lsp"));kpblc-layer-off;
* по-моему, так.
=============================================================================|;
(defun c:kpblc-layer-off (/ selset layer_name)
  (setq selset (entget (car (entsel))))
  (setq layer_name (cdr (assoc 8 selset)))
  (command "_.Layer" "_Off" layer_name "")
  ) ;_ end of defun

Интересно было бы посмотреть на вид экрана када.
Вообще-то в "Готовых программах" был загрузчик лиспов, им пользоваться и потом не надо проверять загрузку lisp-файла

> kpblc
Да, и при вызове программы из Lisp'а нужны скобки:

(c:kpblc-layer-off)

> Владимир Громов
Ну не люблю я однократной загрузки, соответственно и не знаю ее - загрузчик сделал и гружу все лиспы одномоментно, так что тут как повезет.

> Владимир Громов
Не спорю, но не сложились у меня нормальные взаимоотношения с функциями с:* - я обычно работаю через (defun kpblc-*()) - там-то проще будет, и параметры опять же передать можно.
---
По поводу обратного включения: можно, конечно, попытаться записать состояние слоев на момент отключения, потом его прочитать, еще чего-то выдумывать - мне неохота этим заниматься. Контрол слоев не отменен и нормально работает. А если запрашивать имя слоя, то алиас la тоже не исчез опять-таки, и делать кнопку ради одной команды _.-layer я не вижу смысла, если честно.
> Forma : FAQ, там все описано

> kpblc
Программа работает хорошо. Но исчезла "изюминка" работы кнопок на экране. Т.е. когда пользователь не думая, быстро, во время работы, на уровне спиномозговых рефлексов может выключить какие вспомогательные слои. Или тут же их включить. Это происходит часто во время проектирования. Незнаю, насколько я сумел обьяснить. В данном конкретном случае не важно что работает: Diesel, макрос или программа на кнопке. Главное, чтобы было "OFF/ON". И все. Более никаких телодвижений с стороны конструктора.

Блин, знал, что ни одно доброе дело не остается безнаказанным :)

> Screw
Надо разделять видимость объекта (примитива) и видимость слоя. Если надо скрывать объекты, но на основе https://www.caduser.ru/forum/topic22428.html можно и не такое наваять. Так что надо? Это к вопросу, что изначально шел разговор именно о состоянии слоев.

> Sailor
Выключить-то запросто, а как опознавать, какие слои включать? Я такого придумать (точнее, предусмотреть все варианты) не могу. Опять же, фильтры слоев, статусы слоев... Это более гибкое решение, и вдобавок встроенное в кад.

Т.е. какие слои выключил, те и включил. По крайней мере, в моей практике так. И больше, кажется, и не требовалось.

btw, пост > Владимир Громов (2005-09-05 06:32:37) силы тоже не утратил :)

Рабочая заготовка выключения/включения 3-х слоев по выбору
нажатием одной кнопки.

(defun C:LOFFON ( / L123 L1LIST L2LIST L3LIST COLOR1 COLOR2 COLOR3)
(if (not (or L1 L2 L3))
    (progn
    (setq L1 (getstring T "\n Имя 1 слоя: "))
    (setq L2 (getstring T "\n Имя 2 слоя: "))
    (setq L3 (getstring T "\n Имя 3 слоя: "))
    ) ; progn
) ; if
(setq L123 (strcat L1 "," L2 "," L3))
(setq L1LIST (tblsearch "layer" L1))
(setq L2LIST (tblsearch "layer" L2))
(setq L3LIST (tblsearch "layer" L3))
(setq COLOR1 (cdr (assoc 62 L1LIST)))
(setq COLOR2 (cdr (assoc 62 L2LIST)))
(setq COLOR3 (cdr (assoc 62 L3LIST)))
(if (and (minusp COLOR1) (minusp COLOR2) (minusp COLOR3))
    (progn
    (command "_-LAYER" "_ON" L123 "")
    (princ " Слои ") (Princ L123) (princ " включены.")
    ) ; progn
    (progn
         (if (or (= (getvar "CLAYER") L1)
                 (= (getvar "CLAYER") L2)
                 (= (getvar "CLAYER") L3))
             (command "_-LAYER" "_off" L123 "_y" "")
             (command "_-LAYER" "_off" L123 "")
         ) ; if
    (princ " Слои ") (Princ L123) (princ " выключены.")
    ) ; progn
) ; if
(princ)
)

Предполагается, что слои существуют, не заморожены и не заблокированы.
В начале сеанса работы с AutoCAD'ом надо будет ввести имена слоев.
После этого до конца сеанса запроса имен не будет.
Если код будет сохранен в файле loffon.lsp, возможный макрос для
кнопки или пункта меню может быть таким:

^C^C^P(if (not C:LOFFON) (load "loffon")) LOFFON

> Владимир Громов
Решение с запоминанием выключаемых слоев замечательно. Но увы "затирается" негативными явлениями. Такими как действует эта программ только для одного открытого чертежа. А у меня их за день набирается десятки. Установлена даже специальная панель с закладками. Кстати, невероятно удобная. Рекомендую. Но этот вопрос можно решить созданием какого либо ini файла. Но тут всплывает еще один фактор. Точнее два. Первый- это то, что программа выключает слои, включать не умеет. И второе- это то, что работает из командной строки, чем рушит всю концепцию работы с кнопок.
p.s. Кстати Ваша программа корректно выключает замороженные и заблокированные слои. Один из моих вспомогательных слоев (Типа разметочной сетки)заблокирован.

> Sailor
Ох, ёклмн... Говорил же, что не все так просто под луной. Не слушаете, вот и получаете не то, что хотите. еще раз говорю - Express Tools или фильтры слоев или сохранение статуса слоев - вот что требуется! Эти данные хранятся внутри файла, и ни от чего стороннего не зависят. Там все проще получается, настроить только всего один раз понадобится.
Насчет панели... Можно, кстати, переключаться и по Ctrl+Tab, ну да ладно. Теперь насчет ini.
Примерная структура ini, как я ее вижу:
[Имя файла]
<Имя слоя1>=On|Off
<Имя слоя2>=On|Off
<Имя слоя3>=On|Off
Переименовали файл. И все, секция накрылась медным тазом. Восстанавливаем? И как это сделать программно? Где хранить такой ini, разбуший до невероятных размеров? И кто будет отслеживать актуальность? А если файл dwg попал к соседу, он чего-то там наваял (на "закрытых" слоях), и это надо посмотреть? И как включать слои - по выбору? Все слои?
---
ИМХО - вопросов более чем достаточно, чтобы задуматься о возможности вообще написания подобного приложения.