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

Если надоело искать 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, один из примитивов там будет текстом, и вот как раз значение этого текста будет именем файла.