[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;

[Ingpro]

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

если загрузить как лисп, это срабатывает

Сообщение от skkkk Не пользуюсь кнопками

Я тоже кнопки не люблю, добавляю макросы на палитру, это быстро и удобно...имхо...

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

на этот макрос нет никакой реакции, в ком. строке:
Команда:
(_>

[name02]

Сообщение от Ingpro на этот макрос нет никакой реакции, в ком. строке: Команда: (_>

Не хватает закрывающей скобки - (ai_draworder "_back")));atback;

[Ingpro]

Сообщение от name02 Не хватает закрывающей скобки - (ai_draworder "_back")));atback;

Код:

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

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

Так работает skkkk и name02, СПАСИБО!

[Ingpro]

Часто пользуюсь "перенести текст размера с выноской", но выбирать из контекстного меню неудобно, поэтому макрос:

Код:

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

 ^C^C_aidimtextmove;1;\;

[RNB]

Сообщение от Ingpro Часто пользуюсь "перенести текст размера с выноской", но выбирать из контекстного меню неудобно, поэтому макрос:

Попробуй после того, как нажмешь на "ручку" размера в кнопку Ctrl потыкать. Удобнее любого макроса

[NemoSUN]

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

Команда понравилась, но вопрос. Все линии AMCONST.... строятся на слое AM_CL. А эта команда строит на текущем.

[Ingpro]

Если в мвыноску с текстом "1" добавить неразрывный пробел (Alt 255), то в свойствах это отображается "1\~".

Код:

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

 *^C^Cмвыноска;\\1;

этот макрос строит выноску с текстом "1"
Если добавить "1\~" в макрос

Код:

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

 *^C^Cмвыноска;\\1\~;

пробел не добавляется, что нужно добавить в код, или как-то по-другому решить?

[AlexCondor]

Сообщение от Ingpro Если в мвыноску с текстом "1" добавить неразрывный пробел

Интересно а какой смысл. Если вы надеетесь что удлинится линия подчеркивания, то зря. Пробел, КМК, просто игнорируется, даже в WORD'е

[Ingpro]

Сообщение от AlexCondor Если вы надеетесь что удлинится линия подчеркивания, то зря. Пробел, КМК, просто игнорируется, даже в WORD'е

Но в Мтексте в Мвыноске это срабатывает, почему в макросе не получается...

[AlexCondor]

Сообщение от Ingpro Но в Мтексте в Мвыноске это срабатывает, почему в макросе не получается...

Что срабатывает, подчеркивание пробелов в конце текста? Вы уверены?

[Ingpro]

Сообщение от AlexCondor Что срабатывает, подчеркивание пробелов в конце текста? Вы уверены?

На изображении из поста #1027 видно: верхняя мвыноска без пробела, две нижние с пробелом. Выносная линия удлиняется на пробел.
Вопрос в том, как это записать в макросе, чтобы работало...

[AlexCondor]

Ни как у меня так же не получается. Да и удлинение странное, больше похоже на разрыв между знаками, чем на пробел. Приложите пож-та dwg.

PS. Еще можно символ неразрывного пробела вставить как unicode - \U+00A0.

[Ingpro]

Сообщение от AlexCondor Еще можно символ неразрывного пробела вставить как unicode - \U+00A0

Так тоже не получается.
dwg приложен

[RNB]

Сообщение от Ingpro Так тоже не получается.

Задачу можно решить иначе.
Через вставку заранее созданного блока с включенной опцией "расчленить" и "повторить вставку" (если требуется вставить несколько подряд).
С новой панелью "Блоки", в которой в том числе есть вкладка "Избранное" это может быть очень даже удобно.
На выходе получите ту же самую выноску с любым текстом, без ограничений макросов по символам (а они, как вы уже поняли, присутствуют)

[AlexCondor]

Сообщение от Ingpro Так тоже не получается. dwg приложен

Файл в AutoCAD смогу посмотреть только завтра. Но посмотрев его на телефоне заметил у вас там 000А, а должно быть 00А0

[Ingpro]

Сообщение от AlexCondor Файл в AutoCAD смогу посмотреть только завтра. Но посмотрев его на телефоне заметил у вас там 000А, а должно быть 00А0

Да, в dwg неправильно написано (исправлено), но макрос такого вида не делает пробел, а в мтексте это сочетание \U+00A0 добавляет пробел

Код:

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

 *^C^Cмвыноска;\\1\U+00A0;

[Ingpro]

Макрос Облако-Объект заменит выбранные объекты облаком (нужный стиль облака Обычный/Каллиграфия, а также
миним. и максим. длину дуги установить заранее):

Код:

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

 *^C^Cоблако;О;\;

или eng-версия

Код:

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

 *^C^C_REVCLOUD;_O;\;

[Ingpro]

Макрос массива прямоугольного arrayrect: столбцов 4х400, строк 4х400

Код:

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

 ^C^C_arrayrect;\;_colums;4;_e;1200;_rows;4;_e;400;;;

Код:

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

 ^C^C_arrayrect;\;_COLums;4;_e;1800;_Rows;4;_e;600;;;

столбцов 4х600, строк 4х600

Если интервал между строками не зависит от количества строк, то у интервала по столбцам есть какая-то странная зависимость...

Код:

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

 ^C^C_arrayrect;\;_COL;6;_e;250;_R;6;_e;50;;;

ст6х50 стр6х50

Код:

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

 ^C^C_arrayrect;\;_COL;6;_e;150;_R;6;_e;50;;;

ст6х30 стр6х50

Код:

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

 ^C^C_arrayrect;\;_COL;3;_e;100;_R;3;_e;50;;;

ст3х50 стр3х50

Код:

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

 ^C^C_arrayrect;\;_COL;4;_e;150;_R;4;_e;50;;;

ст4х50 стр4х50

[Ingpro]

Вот ещё макросы для фаски (_chamfer) //вроде не было в теме//
угол 45, расстояние 200

Код:

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

 ^C^C_chamfer;\;angular;;45;;distance;200;;  

по-русски:
^C^Cфаска;\;угол;;45;;расстояние;200;; 
^C^Cфаска;\;угол;;45;;расстояние;100;;

[Ingpro]

Чертим полилинию с глобальной шириной 0, или с любой другой (например 30)

Код:

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

 ^C^C(setvar 'PLINEWID 0);_.pline

Код:

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

 ^C^C(setvar 'PLINEWID 30);_.pline

или просто установить гл. ширину, если надо изменить последнюю

Код:

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

 ^C^C(setvar 'PLINEWID 0);

[Ingpro]

Если надоело искать Defpoints из выпадающего списка слоев то:
макрос (много раз) - слой Defpoints, цвет bylayer, выход по Esc

Код:

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

 *^C^C_change;\;_p;_LAYER;Defpoints;_color;bylayer;;;;

макрос (много раз) - слой Defpoints, цвет 8 (серый), выход по Esc

Код:

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

 *^C^C_change;\;_p;_LAYER;Defpoints;_color;8;;;;

***слой Defpoints должен быть в чертеже***

[Sanmart]

Здравствуйте! Хочу сделать кнопку - аналог QNEW, чтобы создавала файл на основе шаблона (на QNEW - один шаблон, на кнопке - другой). Написал вот это:

Код:

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

^C^C_new;C:/templates/clr.dwt

- не работает. Вернее, команда запускается, но выдаёт стандартное окно выбора шаблона. Подскажите пожалуйста, где косяк?

[name02]

У этой команды нет безоконного режима, поэтому тебе надо сделать переменную FILEDIA = 0 (т.е. не выводить диалоговые окна выбора файлов), а после опять сделать равной 1 (если надо)
Смотри пример тут - https://forums.autodesk.com/t5/autoc...822314#M174279

[Sanmart]

name02, большое спасибо! Всё заработало. Оказывается, был нужен скрипт.

[Astartes]

Добрый день.
Если количество щелчков мышкой во время паузы в макросе (\) каждый раз разное, как быть?
Пример. Лисп с форума Coorn.
Действие лиспа

COORN
Выберите режим [Указать/Точка/Блоки/Полилиния или сплайн] <Указать>:
Укажите точку или Enter завершения >
Укажите точку или Enter завершения >
Укажите точку или Enter завершения >
+++++++ Coordinates list +++++++
3800.0000,33000.0000,7750.0001
3800.0000,34111.6796,7750.0001
+++++++++ End of list +++++++++
Начальный номер точки <Не маркировать> :
Сохранить координаты в [Файл/Excel/Не сохранять] <Файл> : E

Записал вот так:

^C^C_coorn;;\\\\\\\\\\\\\\;;_e;

Если количество кликов соответствует количеству (\) в макросе, то все норм. Макрос отрабатывает нормально. А если символов в макросе написал с запасом, то макрос автоматом не отрабатывает и приходится завершать вручную.
Собственно вопрос. Можно на данном примере как то побороть?
На всякий случай прикреплю лисп.

[Ingpro]

Готовые инструментальные палитры. Импортируй и пользуйся!
Краткая инструкция в архиве.

[Ingpro]

Сообщение от Astartes ^C^C_coorn;;\\\\\\\\\\\\\\;;_e; Если количество кликов соответствует количеству (\) в макросе, то все норм. Макрос отрабатывает нормально. А если символов в макросе написал с запасом, то макрос автоматом не отрабатывает и приходится завершать вручную. Собственно вопрос. Можно на данном примере как то побороть? На всякий случай прикреплю лисп.

Если вы просто хотите вызвать лисп-команду через макрос (инструм. палитра), то достаточно просто в Сценарии записать COORN и вызов сработает так, как если бы вы вызвали его из ком. строки, но лисп должен быть в автозагрузке...

[Ingpro]

Сообщение от Sanmart Здравствуйте! Хочу сделать кнопку - аналог QNEW, чтобы создавала файл на основе шаблона (на QNEW - один шаблон, на кнопке - другой). Написал вот это: Код: [Выделить все] ^C^C_new;C:/templates/clr.dwt - не работает. Вернее, команда запускается, но выдаёт стандартное окно выбора шаблона. Подскажите пожалуйста, где косяк?

Может быть лучше просто открыть свой файл-шаблон:

Код:

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

 ^C^C(startapp "explorer.exe" (findfile "c:/Users/1/AppData/Local/Autodesk/AutoCAD 2020/R23.1/rus/Template/Шаблон.dwt"))

Только укажите свои: username, год AutoCAD и имя шаблона...

[gumel]

Добрый день!
Делаю макрос, который позволяет сохранять выбранные объекты в DXF файл:

Код:

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

 ^C^C+SAVEAS;F;R12;;O

Макрос вполне хорошо работает, за исключением пары моментов:
1. После выбора объектов команда спрашивает количество знаков после запятой "decimal places of accuracy". Как прописать это значение в макросе?
2. Приходится вводить имя файла .

Нет ли такой возможности, чтобы имя файла бралось из примитива (допустим из обычного текста)?

Было бы прекрасно, когда пользователь выбирает объекты для экспорта в DXF, один из примитивов там будет текстом, и вот как раз значение этого текста будет именем файла.