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

Сообщение от 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);