[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

[gomer]

тоже присваивает почему-то "0". Активный слой совсем-совсем не "0".

Да неужели?

[skkkk]

Сообщение от АлексЮстасу Можно ли в макросе запомнить текущее состояние параметров черчения (цвет, слой, вес, тип линий, ширину, масштаб типа линий), ...

А нельзя ли начертить что бы то ни было и присвоить последнему объекту (доступному по опции _last) нужные свойства, например, командой _CHANGE?

Сообщение от АлексЮстасу ... а также значение параметров черчения (AUTOSNAP), а после выполнения каких-то действий восстановить их?

А вот тут-то и...

Сообщение от Кулик Алексей aka kpblc ... возникнет проблема с обратным восстановлением значений).

Сообщение от АлексЮстасу В чем там засада с восстановлением?

Засада в том, что если пользователь нажмет ESC или произойдет еще какая-нибудь ошибка (нет слоя, не подгружен тип линии, объект не создался и т.д.), то ничего не восстановится. В этом, на мой взгляд, одно из основных ограничений языка макрокоманд. Второе ограничение - макрос нельзя повторить ни по Enter, ни по стрелке вверх.

Сообщение от АлексЮстасу Если нельзя или не стоит командами, то, значит, программно?

Если мы упираемся в необходимость изменения системных переменных, лучше программно, только если AutoCAD не LT.

Сообщение от Кулик Алексей aka kpblc Поищи функцию универсального обработчика ошибок (уж поминали такие вещи миллион раз)

Обработка ошибок решает проблему восстановления переменных.

[АлексЮстасу]

Сообщение от gomer Цитата: тоже присваивает почему-то "0". Активный слой совсем-совсем не "0". Да неужели?

Гм... Кажется, понял почему у меня не получалось - я вставлял Ваше и kpblc выражения в макрос в Tool Palette, а там отдельно определяется и слой, и цвет и пр. Видимо, вмешиваются эти определения из Tool Palette.
Попробовал вставить в отдельную кнопку - работает! Спасибо.
Жаль, что пробовать макрос на кнопке неудобно, дольше, чем в палитре. Вы как макросы проверяете?
Но как же быть, если я планирую использовать эти макросы в палитрах?
И не подскажете, что такое $M?

[gomer]

Сообщение от АлексЮстасу Жаль, что пробовать макрос на кнопке неудобно, дольше, чем в палитре. Вы как макросы проверяете?

ну у меня есть отдельное меню для макросов

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

Сообщение от skkkk Обработка ошибок решает проблему восстановления переменных.

Дополнительно: http://autolisp.ru/2009/09/13/error-catch/

Сообщение от АлексЮстасу в макрос в Tool Palette, а там отдельно определяется и слой, и цвет и пр

В свойствах инструмента установи "Использовать слой" - "Текущий". Возможно, поможет.

Сообщение от АлексЮстасу Но как же быть, если я планирую использовать эти макросы в палитрах?

А надо ли?

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc А надо ли?

А что делать, если нужно определить параметры черчения нескольких сотен объектов? Для ускорения черчения и исключения ошибок назначения параметров. Нужно меню объектов, где для каждого объекта все прописано.
Есть готовые альтернативы Tool Palette?

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

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

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc Я про то, что макросы в палитрах лучше не использовать. Это неэффективно. Я бы делал ставку на лисп-приложения - они и гибче будут, и проще в поддержке (естественно, при соблюдении некоторых условий).

С лиспами в #631-661 уперся в тупик. Нужно, чтобы можно было после черчения полилиний и пр. выполнять команду Autocad Map 3D, а из лиспа она не запускалась. Или я ее не умею правильно готовить.

[Astartes]

Приветствую. Кто сможет помочь.
Хоть это и не макрос, но был выложен в этой теме.
Вот лисп для быстрого выделения мультивыносок по диапазону.
Скажите что нужно поменять, чтобы также по диапазону выделялся мтекст?
Пробовал в коде MULTILEADER заменить на MTEXT или MULTITEXT, но не лисп не работает.

Код:

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

 (defun c:qsel()
  (vl-load-com)
  ((lambda(range)
     (if (not (vl-catch-all-error-p range))
       (sssetfirst nil (ssget "_X" (list (cons 0 "MULTILEADER") (cons 304 range))))
       )
     )
    (vl-catch-all-apply 'getstring
      (list t "\nВведите диапазон в формате [начало-конец]: ")
      )
    )
  (princ)
  ); end c:qsel

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

Astartes, а "диапазон" - это что? Применительно к MTEXT.

[Astartes]

Кулик Алексей aka kpblc, Тоже что и для мультивыносок.
Диапазон чисел (числовые значения мтекста).
В спецификации номера позиций забиты мтекстом.
Если стандартным методом. то КвикСелект-Мтекст-Содержимое-Оператор (поиск с глобальными символами) - Значение [0-9],[0-9][0-9].
В общем все тоже самое что и для мвыносок, только нужно чтобы выбирался мтекст.

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

Кхм... А как бы учесть вариант принудительного форматирования текста?

[Astartes]

Кулик Алексей aka kpblc, Если это ко мне вопрос то я не знаю.
А как он учтен в вышевыложенном лиспе для мвыноски? Ведь мвыноска это по сути тот же мтекст. Или нет?

[kakt00z]

(list (cons 0 "MTEXT") (cons 1 range))

[Astartes]

kakt00z, Спасибо, заработало.

[АлексЮстасу]

Как сделать обработку в макросе и предварительно выбранного, и выбранного после запуска макроса?
Например, нужно заменить типы линий на непрерывный (не важно на какой):
^C^C_chprop;_lt;Continuous;; - заменит типы линий у предварительно выбранного. Если нет предварительно выбранного, то не сработает.
^C^C_chprop;\;_lt;Continuous;; - заменит типы линий только у одного элемента, выбранного после вызова макроса . Для предварительно выбранного не сработает.
^C^C_chprop;\\;_lt;Continuous;; - заменит типы линий только у двух элементов, выбранных после вызова макроса, или у всех элементов, выбранных рамкой. Для предварительно выбранного не сработает.
Как делается это нормально - чтобы для обработки выбрать все нужное как до, так и после запуска?

[Krieger]

Сообщение от АлексЮстасу Как сделать обработку в макросе и предварительно выбранного, и выбранного после запуска макроса? Например, нужно заменить типы линий на непрерывный (не важно на какой): ^C^C_chprop;_lt;Continuous;; - заменит типы линий у предварительно выбранного. Если нет предварительно выбранного, то не сработает. ^C^C_chprop;\;_lt;Continuous;; - заменит типы линий только у одного элемента, выбранного после вызова макроса . Для предварительно выбранного не сработает. ^C^C_chprop;\\;_lt;Continuous;; - заменит типы линий только у двух элементов, выбранных после вызова макроса, или у всех элементов, выбранных рамкой. Для предварительно выбранного не сработает. Как делается это нормально - чтобы для обработки выбрать все нужное как до, так и после запуска?

Попробуй так, без ^C^C:

Код:

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

(if (setq ss (ssget)) (command "_chprop" ss "" "_lt" "Continuous" "")) (setq ss nil)

[gomer]

Сообщение от Krieger Попробуй так, без ^C^C:

Зачэм?
^C^C((lambda (ss) (if ss (command "_chprop" ss "" "_lt" "Continuous" ""))) (ssget))
усе работает, хотя это идеологически не макрос, стопиццот раз уже повторял

[Krieger]

Сообщение от gomer Зачэм? ^C^C((lambda (ss) (if ss (command "_chprop" ss "" "_lt" "Continuous" ""))) (ssget)) усе работает, хотя это идеологически не макрос, стопиццот раз уже повторял

Ну да, работает. Что то подумалось что выделение должно сняться.

[АлексЮстасу]

Сообщение от Krieger Попробуй так

Сообщение от gomer усе работает

Спасибо!
Вы писали не командами, а на лиспе (?), потому что написать чисто макрос, учитывающий выбор и до, и после, нельзя?