[zenon]

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

Выкладываю 4 своих макрокоманды.

Улучшенная команда _Break, разрыв в одной точке с повтором по правой клавише мышки.

^C^C^P(defun c:break2 () (vl-cmdf "_break" pause "f" pause "@")(princ));break2;

ps. Макрокоманда не моя. Рисунок со старой кнопки.


Объект Xline строится горизонтально

^C^C_xline;_h;

Объект Xline строится вертикально

^C^C_xline;_v;

Объект Xline строится по объекту (не работает по примитивам блока и arx объектов сторонних навесок на автокад).

*^C^C_xline;_offset;_Through;_nea;\_none;@;;

Макрокоманда зациклена, выход по Esc.
ps. Макрокоманда не моя.


Объект Xline строится по объекту, с поворотом в указанной точке на 90 градусов (не работает по примитивам блока и arx объектов сторонних навесок на автокад)

^C^C_xline;_offset;_Through;_nea;\_none;@;^C^C_rotate;_last;;\90;

ps. Макрокоманда доработана из предыдущей.

Соотвественно и кнопочки
Button.rar

[off]

Может тебе проще их не отключать а тасовать на задний/передний план? Ну и сделать кнопку для переноса на скрытый слой.

[Агент СмиТ]

Сообщение от off Может тебе проще их не отключать а тасовать на задний/передний план? Ну и сделать кнопку для переноса на скрытый слой.

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

[off]

Для каждого растра свой слой, для каждого слоя свою кнопку, все кнопки на отдельную панель.

[Агент СмиТ]

Как вариант, да. Плюс ещё кнопку для включения всех растров скопом.
Но можно кликнуть ЛКМ в свойствах и колесом крутануть вверх или вниз

[off]

Имена слоев сделать с префиксом типа Растр_1, Растр_2, в Менеджере слоев добавить фильтр по имени Растр* и инвертировать его. Таким образом служебные растровые слои не будут путаться в выпадающем списке. На каждом растре пару-тройку номеров расположить чтобы всегда было понятно какую кнопку нажимать чтобы выключить слой (хотя тут можно и layoff использовать).

Включать все растры скопом можно через диспетчер состояния слоев. Сохранить включенное состояние всех нужных слоев и написать макрос который будет вызывать это состояние (покопаться в параметрах команды -layer).

[Агент СмиТ]

off, вот вы вернулись к тому с чего начали, в немного видоизменённом варианте. Однако идея с включением/отключением слоёв мне не подходит, потому я и задал свой вопрос в теме по обсуждению макросов, но всё равно спасибо

[Vova]

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

[Агент СмиТ]

Согласен с вами, файл над которым сейчас работаю (попутно и возникла идея задать вопрос на форуме) в данный момент содержит 110 слоёв. Однако лучшие результаты работы достигаются там, где идёт выбор способа решения задачи, в каждом конкретном случае оптимальные решения могут отличаться.

[VVA]

Сообщение от Агент СмиТ Кто нибудь может подсказать макрос на кнопку отключения/включения "отображения изображения"?

Сообщение от Агент СмиТ Дело здесь не в _imageframe, т.к. требуется скрыть не рамки растров, а их содержимое.

Могу предложить как вариант не включать/отключать, а выгружать/загружать.
Первый код был опубликован здесь LISP. Растры.Управление выгрузкой/загрузкой/удалением путем указания точки внутри контура
Я архив выкладывал на старом autolisp.ru. Порылся в своих заначках, выкладываю здесь
Вожможные макросы

Код:

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

^C^C^P(if (not DoImage)(load "Doimage"));ptImageUnload;
^C^C^P(if (not DoImage)(load "Doimage"));ptImageReload;
^C^C^P(if (not DoImage)(load "Doimage"));ptImageReloadUnload;
^C^C^P(if (not DoImage)(load "Doimage"));ptImageDetach;

Идея возникла по аналогии с Растер дизайном. Там можно нажав shift и ткнув внутрь растра выделить его. Здесь была сделана попытка управления растрами путем тыкания внутрь контура.
ptImageUnload - выгружает растры, внутрь которых тыкнули
ptImageReload - загружает растры, внутрь которых тыкнули
ptImageReloadUnload - выгружает загруженные и наоборот
ptImageReloadUnload - удаляет растр

[gomer]

Программа перенесена сюда

[off]

gomer, попробовал код. Работает. Включает/выключает. А можно его как-то на одну кнопку повесить?
Тестировал в первом попавшемся файле и вдруг обнаружил что некоторые растры не выключаются - пригляделся поближе - они оказались в блоке.

[art_rrc]

Сообщение от Vova Кто-нибудь понял вопрос? (кроме art_rrc) А так-же ответ на него?

Прилагаю фото-инструкцию..

[Vova]

Вообще-то Slot это как-бы щель, узкий проем (в полу) и подобное. Автокадовская HELP показывает: slots
The spaces to install circuit breakers in an electrical panel (Это потому что мой автокад MEP, поэтому в нем как раз про электричество). Ну или, по-русски, место в эл. щитке для установки автомата. Гнездо подругому. То есть данный термин мало подходит к кнопке на панели инструментов. Думаю, приложенная тобой инструкция является самоделкой и автор сам придумал термин Слот, чего многие форумчане могут и не знать

[art_rrc]

Сообщение от Vova Вообще-то Slot это как-бы щель, узкий проем (в полу) и подобное. Автокадовская HELP показывает: slots The spaces to install circuit breakers in an electrical panel (Это потому что мой автокад MEP, поэтому в нем как раз про электричество). Ну или, по-русски, место в эл. щитке для установки автомата. Гнездо подругому. То есть данный термин мало подходит к кнопке на панели инструментов. Думаю, приложенная тобой инструкция является самоделкой и автор сам придумал термин Слот, чего многие форумчане могут и не знать

Да я эту "инструкцию" за 2 минуты в paint сделал, чтоб пояснить, что имелось ввиду. Для меня слот, это место(ячейка) для расположения чего-либо.
Спасибо. Запомнил. Впредь буду более внимателен к терминам.

И чтоб сообщение не было офтопом, задам давно интересующий меня вопрос:
"Можно ли написать макрос, которых активирует операцию "Отразить" в динамическом блоке". Пример: Выделяешь выноску, жмешь кнопку, она зеркалится. Чтоб не надо было курсор наводить.

[gomer]

off , обновил #610

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

Сообщение от VVA Я архив выкладывал на старом autolisp.ru

Эт где было? И примерно когда?

[VVA]

Сообщение от Кулик Алексей aka kpblc Эт где было? И примерно когда?

Это было в его первой инкарнации, когда его только создал admin. Ссылка вниpзу на caduser'е. датирована 26.09.2006
PS >gomer,
Цикл

Код:

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

(vlax-for layout (vla-get-layouts acDoc) ...

Лишний. Каждый лэйаут есть в коллекции блоков и ты по нему пройдешься (vlax-for blk (vla-get-Blocks acDoc)

Код:

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

(vlax-for blk (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
  (terpri)(princ (vla-get-Name blk))
  )

_$ *Model_Space *Paper_Space *Paper_Space0 _$

Сообщение от off А можно его как-то на одну кнопку повесить?

Одна кнопка

Код:

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

(defun ReverseAllImages ()
;;; Функция поиска изображений, в том числе в блоках
  ( (lambda (acDoc)
      (vlax-for blk (vla-get-Blocks acDoc)
        (vlax-for obj blk
          (if (and (eq "AcDbRasterImage" (vla-get-ObjectName obj))
                   (vlax-write-enabled-p obj)
                   )
            (vla-put-ImageVisibility obj (if (eq (vla-get-ImageVisibility obj) :vlax-true) :vlax-false :vlax-true))
          )
        )
      )
      (vla-Regen acDoc acAllViewports)
    )
    (vla-get-activedocument (vlax-get-acad-object))
  )
  (princ)
)

(defun C:REVIMAGES ()
;;; Функция реверса (скрытия/показа) содержимого изображений
  (ReverseAllImages)
)

[Агент СмиТ]

VVA, спасибо большое, подгрузил менюшку из поста 609 - выгрузка/загрузка растров работает, но только при:

• разблокировании ВСЕХ слоёв, содержащих растры (что не очень удобно);
• в случае указания точки где растры накладываются, происходит выбор и отключение всех растров в этой точке (решается, если заранее выбрать секущей рамкой отдельный растр, то выгружается только этот растр);

Экспорт/импорт описаний возможно очень пригодился бы но, когда я экспортировал файл (*.ims), подгрузить растры в новый файл, а также разместить уже подгруженные не удалось:

Команда: Файл .\пл\Щелковский\1855.tif не найденВыполняется регенерация модели.

Скажите пожалуйста, лисп из поста 619 отключает все растры на всех разблокированных слоях, а можно ли сделать отключение растров по выбору?

art_rrc, воспользовался вашим советом, получилось просто отлично! Спасибо вам!
Если бы только эту кнопку на обычную панель перетащить, было бы вообще здорово.

[VVA]

Сообщение от Агент СмиТ разблокировании ВСЕХ слоёв, содержащих растры (что не очень удобно);

давно писал. Пока ничего не могу сказать нужно смотреть

Сообщение от Агент СмиТ в случае указания точки где растры накладываются, происходит выбор и отключение всех растров в этой точке

так и планировалось. В принципе можно было бы показать диалог с именами растров для выбора. но опять таки см. ответ выше

Сообщение от Агент СмиТ а можно ли сделать отключение растров по выбору?

Можно

Код:

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

 
(defun C:REVIMG (/ ss item)
;;; Команда для реверса (скрытия/показа) содержимого выбранных изображений
  (vl-load-com)
  (defun ReverseImage (obj)
    (if (and (eq "AcDbRasterImage" (vla-get-objectname obj))
             (vlax-write-enabled-p obj)
        ) ;_ end of and
      (vla-put-imagevisibility obj
        (if (eq (vla-get-imagevisibility obj) :vlax-true)
          :vlax-false
          :vlax-true
        ) ;_ end of if
      ) ;_ end of vla-put-ImageVisibility
    ) ;_ end of if
  ) ;_ end of defun
  (if (setq ss (ssget "_:L" '((0 . "IMAGE"))))
    (repeat (setq item (sslength ss)) ;_ end setq
      (ReverseImage
        (vlax-ename->vla-object (ssname ss (setq item (1- item))))
      ) ;_ end of ReverseImage
    ) ;_ end repeat
  ) ;_ end of if
) ;_ end of defun

[gomer]

Слушайте, а как выбрать только изображения, которые не отображаются?