[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

[Ingpro]

Я пытаюсь выполнить выравнивание вверх влево для выбранных Мтекстов, но AutoCAD всё-равно просит:
"Задайте параметр выравнивания".
Почему-то не выполняется _TL или ВЛ...

Код:

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

 ^C^C ВЫРТЕКСТ ВЛ;

Код:

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

 ^C^C_justifytext;_TL;

Как это можно исправить?

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

Может, выбор не надо сбрасывать? Ну или восстанавливать

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Может, выбор не надо сбрасывать? Ну или восстанавливать

_TL никак не воспринимает или пишет неизвестная команда...
В этих макросах выполняется выравнивание:
Текст в мтекст, выравнивание по центру _MC

Код:

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

 ^C^C_Select;_Single;\_Txt2mtxt;_Previous;;_justifytext;_Last;;_MC

Текст в мтекст, вырвнивание верх лево _TL

Код:

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

 ^C^C_Select;_Single;\_Txt2mtxt;_Previous;;_justifytext;_Last;;_TL

Почему не получается просто назначить выравнивание для МТекста?

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

Все ж почитай, что означает ^C в макросах. И заодно посмотри на варианты, которые предлагает команда _.select

[engngr]

Ingpro, на одних макросах далеко не уедешь.

[Ingpro]

Сообщение от engngr Ingpro, на одних макросах далеко не уедешь.

Можно и лисп-команду повесить на палитру:

Код:

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

 (defun c:Just_TL (/ ss)
 (if
   (setq ss (ssget ":L" '((0 . "*TEXT,ATTDEF"))))
    (vl-cmdf "_justifytext" ss "" "_tl")
     ) ;_ if
 (princ)
) ;_ defun

Но интересно, как можно это записать макросом...

[name02]

Простой лисп-код можно записать в макрос кнопки:

[Ingpro]

Сообщение от name02 Простой лисп-код можно записать в макрос кнопки:

Спасибо. Это работает:

Код:

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

 ^C^C(if (setq ss (ssget ":L" '((0 . "*TEXT,ATTDEF")))) (vl-cmdf "_justifytext" ss "" "_tl"));_ if (princ)

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

Ingpro, потрать пару дней на "Язык макрокоманд", честное слово - намного проще будет. Заодно узнаешь, что макросы надо записывать в одну строку и что там каждый символ важен.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc каждый символ важен

А вот так получилось простым макросом выровнять МТЕКСТЫ вверх влево!

Код:

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

 *^C^C_justifytext;\;_TL;

выход Esc,
или убрать *, и выбирать только один Мтекст

Можно исправить для своих предпочтений, заменив _TL (Top Left) на:

_MC Middle Center середина по центру
_ML Middle Left середина влево
_TC Top Center вверх по центру
_BL Bottom Left вниз влево

[Ingpro]

Я хочу перенести все размеры без выбора на задний план

Код:

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

 ^C^C^P(defun c:atback () (ai_draworder "_back") (ssget "_X" '((0 . "DIMENSION"))) "")) (princ));atback;

переносит размеры на задний план, но просит сделать выбор, хотя не должен вроде ssget "_X"?
Как-нибудь это можно исправить?
А вот два макроса

Код:

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

 ^C^C-tcase;\;Upper;;

- текст, мтекст - в ВЕРХНИЙ регистр

Код:

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

 ^C^C-tcase;\;Lower;;

- текст, мтекст - в нижний регистр
если выбрать один объект, изм. регистра происходит сразу,
если рамкой - несколько текстов, то в ком. строке предлагается выбор:
Select case [Sentence/Lower/Upper/Title/toGgle] <Lower>:
интересно, это можно исправить, т.к. UPPER (или Lower) заявлен в команде?

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

В первом - после ssget добавь еще пустую строку. По остальным - я не помню такой команды в каде. Может быть, будет иметь смысл убирать ^C^C впереди и снимать выбор. Ессно, pickfirst должен быть 1.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc В первом - после ssget добавь еще пустую строку.

А как добавить?

pickfirst у меня 1

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

А, сорян, ступил: с макросами уже сто лет не работал.
Вообще говоря, я б под эту задачу вообще некомандными методами работал бы - удобнее и предсказуемее.

[Ingpro]

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

А как? AutoCAD никак не узнаёт atback (_atback, _.atback)?

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

Навскидку : https://autolisp.ru/2011/12/16/draworder/

[skkkk]

Сообщение от Ingpro Я хочу перенести все размеры без выбора на задний план

По идее, вот так должно сработать, но Автокада под рукой нет, к сожалению, проверить не могу:

Код:

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

 ^C^C^P(defun c:atback () (ai_draworder "_back") (sssetfirst nil (ssget "_X" '((0 . "DIMENSION")))) "")) (princ));atback;

[Ingpro]

Сообщение от skkkk 1 ^C^C^P(defun c:atback () (ai_draworder "_back") (sssetfirst nil (ssget "_X" '((0 . "DIMENSION")))) "")) (princ));atback;

skkkk, спасибо. Но работает немного странно.
Выбрать объекты-выбираю один размер-ПКМ-выделяются все размеры-enter-esc-размеры ушли на задний план...
Хотелось бы не выбирать размеры... и enter-esc не нажимать...

[Ingpro]

Сообщение от skkkk По идее, вот так должно сработать

убираю две скобки и добавляю ;; в конце

Код:

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

 ^C^C^P(defun c:atback () (ai_draworder "_back") (sssetfirst nil (ssget "_X" '((0 . "DIMENSION")))) "") (princ);atback;;;

сразу выделяются все размеры, но всё-равно только после -esc- размеры ушли на задний план...
ещё немного бы допилить...

[skkkk]

Ingpro, а если сначала выбрать, а потом кидать на задний план?

Код:

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

 (defun c:atback () (sssetfirst nil (ssget "_X" '((0 . "DIMENSION"))))(ai_draworder "_back") (princ))

Не пользуюсь кнопками, лень проверять что там в конце и надо ли точку с запятой ставить или пробела хватит. И вот буква P в выражении (^C^C^P) - не помню, что делает)

Ну и для порядку желательно проверить, вдруг функция загружена, чтоб повторно не грузить:

Код:

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

 ^C^C^P(if (null C:atback) (defun c:atback () (sssetfirst nil (ssget "_X" '((0 . "DIMENSION"))))(ai_draworder "_back"));atback;