Макрос на кнопке для изменения свойств обьекта (Страница 2 из 3)

> kpblc
Нет сил у меня на эту книгу. Не понимаю я автора. Я человек системный.

> kpblc
Честно говоря, нехорошо этот макрос работает. Слой-то создается, но все затыкается на изменении свойств. Надо бы вот так, IMHO, записать часть макроса, касающегося _change:

_Change;\;_Prop;_Layer;06-DIM;;

> Forma

^C^C_-Layer;_Make;06-DIM;_ON;06-DIM;_Color;3;;_Ltype;Continuous;;_LWeight;0.25;;_Plot;_Plot;;_Thaw;06-DIM;_Unlock;06-DIM;;_Change;\;_Properties;_Layer;06-DIM;;

Называется - найди 2 отличия.
Оффтоп:
Честно говоря, Forma, у тебя ситуация весьма сильно напоминает старую притчу: стоит мужик и пилит дерево тупой пилой. К нему подходит другой и спрашивает:
- Ты чего делаешь?
- Дерево пилю.
- Так тупая пила-то, заточи!
- Нет времени...
Не проще ли полдня потерять, потом за 5 минут долететь?

> Владимир Громов
Вот уже теплее.
1. Кнопка переключает на слой "06-DIM";
2. Если его нет, то слой этот создается:
   Это хорошо!
3. Остался третий, последний пункт.
   Мне нужно "Не заселектируйте обьект", а , вне зависимости ни от чего, я  селектирую обьекты. Затем кликаю по кнопке и эти обьекты приобретают свойства "06-DIM" (Или уходят в этот слой. Не в терминологии дело)

> kpblc
Я бы рад сделать, да не понимаю этих нюансов.

> kpblc
Насчет "тупой пилы" согласен. Что делать? Такой наш российский менталитет. И я такой. Признаю.

> Forma
Да я-то не собирался писать макрос для данной задачи, хотелось просто разобраться с макросом kpblc, прошу прощения.

> Forma
Не надо обощать - у меня, надеюсь, все-таки не такой.
Если медленно, то окно свойств сделает то же самое. А _.qselect вообще позволяет сразу весь чертеж прошерстить - это так, для справки.
Схема работы (меня достало, если честно, рассказывать элементарные вещи, но, похоже, без этого не обойтись): просто, тупо и наглядно.
Создается шаблон, в котором есть все свои "родные" слои. Через _.insert вставляется блоком пришедший чертеж, для него делается _.explode. Выбор объектов - любым методом, потом через список слоев, или через _.change, или через панель Properties заменить на выбранных объектах все что угодно.
Более продвинутый способ - использовать CAD-стандарты. Его рассказывать в очередной раз не буду, недавно приводил цитаты по этому делу - поиск рулез!

Закончится тоже неплохо. Значится так, делаем лисп-файл (записать как kpblc-changeprop.lsp по путям поддержки ACADa):

;|=============================================================================
*    Функция изменения свойства наборов объектов.
*    Параметры:
*    layer-name    - имя слоя. Слой должен существовать.
*    Примеры вызова:
(kpblc-changeprop "0")        - перенос на слой "0"
(kpblc-changeprop "01-Arrows")    - перенос на слой "01-Arrows"
=============================================================================|;
(defun kpblc-changeprop    (layer-name / selset cur_ent)
  (vl-load-com)
  (if (not *kpblc-activedoc*)
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (setq selset (ssget))
  (vla-endundomark *kpblc-activedoc*)
  (vla-startundomark *kpblc-activedoc*)
  (while (and selset
          (> (sslength selset) 0)
          ) ;_ end of and
    (setq cur_ent (ssname selset 0))
    (ssdel cur_ent selset)
    (entmod (subst (cons 8 layer-name)
           (assoc 8 (entget cur_ent))
           (entget cur_ent)
           ) ;_ end of subst
        ) ;_ end of entmod
    (entupd cur_ent)
    ) ;_ end of while
  (vla-endundomark *kpblc-activedoc*)
  ) ;_ end of defun

И макрос становится нечто типа такого:

^C^C_-Layer;_Make;06-DIM;_ON;06-DIM;_Color;3;;_Ltype;Continuous;;_LWeight;0.25;;_Plot;_Plot;;_Thaw;06-DIM;_Unlock;06-DIM;;(if (not *kpblc-activedoc*) (load "kpblc-changeprop.lsp"));(kpblc-changeprop "06-DIM");

На случай, если уже были мои лиспы подгружены, то код макроса станет

^C^C_-Layer;_Make;06-DIM;_ON;06-DIM;_Color;3;;_Ltype;Continuous;;_LWeight;0.25;;_Plot;_Plot;;_Thaw;06-DIM;_Unlock;06-DIM;;(if (not (kpblc-changeprop)) (load "kpblc-changeprop.lsp"));(kpblc-changeprop "06-DIM");

Для гарантированной загрузки макрос будет

^C^C_-Layer;_Make;06-DIM;_ON;06-DIM;_Color;3;;_Ltype;Continuous;;_LWeight;0.25;;_Plot;_Plot;;_Thaw;06-DIM;_Unlock;06-DIM;;(load "kpblc-changeprop.lsp");(kpblc-changeprop "06-DIM");

Выбирай по вкусу и цвету. Есть вариант более продвинутый, но я его уже приводил и повторяться не буду. Если и это не нравится, то платите финансы, сделаю менюшку (достало заниматься такой работой впустую, если честно)

> Владимир Громов
Опять только частично. На кнопке должно быть три функции:
1. Кнопка переключает на слой "06-DIMENSION";
2. Если его нет, то слой этот создается; (_Color;3;_Ltype;Continuous;_LWeight;0.05;; и т.д. что там нужно)
3. Заселектированные обьекты кликая по этой кнопке, приобретают свойства слоя "06-DIMENSION";
Все это должно работать независимо друг от друга. Три функции на одной кнопке.
Если это, в принципе, не возможно сделать в AutoCAD, закрываем тему.

> Владимир Громов
Мне не лень. Я не знаю синтаксиса.