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

Это было где-то на форуме, но пусть будет и в этой теме...
Размер наклонной линии (удобно для простановки размеров раскосов ферм)

Код:

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

 ^C^C_UCS;_OBJ;\_DIMLINEAR;;@;\_UCS;_P;

Линия под углом

Код:

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

 ^C^C_Ortho;_On;_snapang;\_LINE;\_'snapbase 0,0;\_'snapang 0;

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

Код:

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

^C^C(vl-cmdf "_.erase" (ssget "_X" '((0 . "DIMENSION"))) "");

Вроде так

[Ingpro]

Сообщение от Кулик Алексей aka kpblc ^C^C(vl-cmdf "_.erase" (ssget "_X" '((0 . "DIMENSION"))) "");

Алексей, спасибо, это идеально срабатывает! В одно нажатие на палитре!
В этой теме было 2 макроса (удаление размеров с выбором), но не совсем то, что нужно:

Код:

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

 ^C^C(vl-cmdf "_.erase" (ssget (quote ((0 . "DIMENSION")))) "");

Код:

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

 ^C^C(sssetfirst nil (ssget '((0 . "DIMENSION"))));

А можно этот макрос

Код:

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

 ^C^C(vl-cmdf "_.erase" (ssget "_X" '((0 . "DIMENSION"))) "");

изобразить на лисп
Получилось так:

Код:

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

 (defun C:DimDel ()
(vl-cmdf "_.erase" (ssget "_X" '((0 . "DIMENSION"))) "")
(princ)
)

Даже можно "два в одном флаконе":

Код:

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

 ;; Удаляет все размеры без выбора
(defun C:DimDel ()
(vl-cmdf "_.erase" (ssget "_X" '((0 . "DIMENSION"))) "")
(princ)
)

;; Удаляет только размеры в выбранной области
(defun C:SelDimDel ()
(vl-cmdf "_.erase" (ssget (quote ((0 . "DIMENSION")))) "")
(princ)
)

Работает!

[Ingpro]

Команда: СОП
СОПРЯЖЕНИЕ
Выберите первый объект или [оТменить/полИлиния/раДиус/оБрезка/Несколько]:

Код:

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

 ^C^Cсопряжение \; \H; \Д;0;

Макрос должен выполнить Несколько сопряжений раДиусом = 0,
но сопряжения создаются только для двух пар линий...
1. Как изменить макрос, чтобы сопряжения выполнялись для нескольких (больше двух) пар линий?
2. Если до запуска этого макроса выполнить сопряжение радиусом 20 (например), то макрос делает сопряжение этим же радиусом 20, а не 0.
Как это можно подправить?
Спасибо...

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

Так вроде эта команда работает только на пары элементов...

Код:

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

^C^C_.fillet;_radius;0.0;_m;

И тыркай хоть до посинения

[Ingpro]

Сообщение от Кулик Алексей aka kpblc ^C^C_.fillet;_radius;0.0;_m;

Чё-то не хочет:
Неизвестная команда "M".
А вот так получилось:

Код:

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

 ^C^C_.fillet;_radius;0.0;_multiple;_.fillet;

[engngr]

Была штука, которая зацикливает команду в макросе.
multiple в макросах не работает же?

[Ingpro]

Сообщение от engngr multiple в макросах не работает же?

В этом работает...

Код:

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

 ^C^C_.fillet;_radius;0.0;_multiple;_.fillet;

----- добавлено через ~3 мин. -----

Сообщение от engngr Была штука, которая зацикливает команду в макросе

* что-ли?

[Ingpro]

Пытаюсь загнать в макрос построение круга по двум точкам (2Т), с указанием расстояния (оно же диаметр) до второй точки.
Не получается указать расстояние до второй точки . ACad просит ввести расстояние (Вторая конечная точка диаметра круга)...

Код:

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

 ^C^CОрто;вкл;круг;2Т;Д;800;

Если ENG, вообще doesn't understand

Код:

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

 ^C^C_Ortho;_On;_CIRCLE;2Р;D;800;

[zenon]

Сообщение от Ingpro Не получается указать расстояние до второй точки

и не получится, откуда ACAD знает куда надо откладывать указанное расстояние.
PS кроме расстояния нужно еще и направление!

[Ingpro]

Сообщение от zenon PS кроме расстояния нужно еще и направление!

А можно указать направление "вниз"?

[engngr]

Сообщение от Ingpro А можно указать направление "вниз"?

Через угол, может.
<270;800

Или опять мини-лисп.

[Ingpro]

Сообщение от engngr Через угол, может. <270;800

Код:

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

 ^C^CОрто;вкл;круг;2Т;Д;<270;800;

Неа, не хочет...
¿Или угол не в том месте?

[engngr]

^C^C_.circle _2p \@0,-400

[Ingpro]

Сообщение от engngr ^C^C_.circle _2p \@0,-400

Здорово! Спасибо, engngr! Если бы ещё зациклить процесс, было бы супер...
engngr, поясните, пожалуйста, это: \@0, что означает
если -400 заменить на 400, круг строится вверх.
А если надо влево или вправо, нужно изменить \@0,???
Зациклить можно добавив *:

Сообщение от engngr *^C^C_.circle _2p \@0,-400

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

В.Свет, "Язык макрокоманд". Есть в Download

[Ingpro]

Сообщение от Ingpro @0,-400

@ "Данный символ вставляется, если нужно ввести относительные координаты точки. Координаты вводят в последовательности X,Y,Z через запятую, например @10,20 — это смещение на 10 по оси X и на 20 по оси Y относительно предыдущей указанной точки (если Z=0, его не указывают). Тогда как абсолютные координаты, например: 10,20 отсчитываются от нуля системы координат".
Но как это работает в макросе ^C^C_.circle _2p \@0,-400 не могу понять...
Что нужно поставить вместо 0 в \@0,-400, чтобы круг построился влево?

[engngr]

Сообщение от Ingpro @ "Данный символ вставляется, если нужно ввести относительные координаты точки. Координаты вводят в последовательности X,Y,Z через запятую, например @10,20 — это смещение на 10 по оси X и на 20 по оси Y относительно предыдущей указанной точки (если Z=0, его не указывают). Тогда как абсолютные координаты, например: 10,20 отсчитываются от нуля системы координат". Но как это работает в макросе ^C^C_.circle _2p \@0,-400 не могу понять... Что нужно поставить вместо 0 в \@0,-400, чтобы круг построился влево?

@-400,0
Это относительные (от последней точки) координаты x,y.

[Ingpro]

Сообщение от engngr @-400,0 Это относительные (от последней точки) координаты x,y.

engngr, спасибо большое, теперь понятно!

Код:

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

 *^C^C_.circle _2p \@-400,0

круг влево,

Код:

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

 *^C^C_.circle _2p \@400,0

круг вправо

[Ingpro]

Не получается сделать макрос для МТекста, с готовым текстом.
С Текстом получилось

Код:

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

 ^C^C_text \50 0 %%UСлово;

***text высота 50 угол 0 Слово
Есть макрос с готовым текстом в три строки (откуда не помню)

Код:

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

 ^C^C_text \50 0 1 строка;;;2 строка;;;3 строка;

В итоге три строки
1 строка
2 строка
3 строка

Код:

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

 ^C^CК;\;@;\МТРЕД;П

***копирует мтекст и открывает редактор текста копии (текст выделен)
аналогично ENG

Код:

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

 ^C^C_Copy;\;@;\_MTEDIT;_Last

Код:

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

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

***Мвыноска с текстом "1"

Код:

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

 ^C^C МТЕКСТ;\\1; 

просто выполняет команду МТЕКСТ со всеми запросами, "1" не пишет автоматом
не получается сделать макрос для МТекста, с готовым текстом

Код:

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

 ^C^CМТЕКСТ;\В 50 Ш 100;\\Слово;

***открывает редактор текста, "Слово" не пишет автоматом
аналогично ENG

Код:

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

 ^C^C_MText;\_h 50 _w 100;\\Слово;

что нужно добавить в макрос МТекст, чтобы получить готовый текст, кто знает, спасибо...