[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

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

roaa, попробуй поставить peditaccept в 0 и снова запусти макрос. Получишь на выходе ошибку.

[roaa]

Autocad 2008 - русский, peditaccept равен 0... ошибок нет...

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

Тьфу, блин, переклинило Поставь в 1.

[roaa]

Сообщение от Кулик Алексей aka kpblc Тьфу, блин, переклинило Поставь в 1.

И так попробывал, и сяк...ошибок не возникает...команда отрабатывает свое полностью...Дома на 13 каде проверю.

Проверил. Все в норме...работает.

[roaa]

Зацикленное перемещение объектов. Выход по второму клику ПКМ.
^C^C(while (ssget) (vl-cmdf "._move" "_p" "" pause pause))

[Shoorup]

Прошу помощи в реализации макроса динамического блока (ДБ).
Есть файл "dwgRele_03.dwg" с единственным блоком "Rele_N"

Напомню, что имя файла и имя блока должны быть разными, иначе AutoCAD выдаст ошибку: "Блок ... ссылается сам на себя". После вставки в чертеж по кнопке вставляется простой блок с именем "dwgRele_03" из чертежа "dwgRele_03.dwg" содержащий ДБ "Rele_N". Блок "dwgRele_03" нужно расчленить чтобы он "превратился" в ДБ "Rele_N". Других путей я не знаю.

ДБ вставляется в чертежи по кнопке с макросом:

Код:

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

^C^C_-insert;dwgRele_03;\1;;;_.explode;_last;_.-purge;_all;;_n;

Во время вставки в чертеж вставляется два ДБ. Один с именем "dwgRele_03.dwg", другой "Rele_N". После вставики "dwgRele_03.dwg" пуржится макросом и остается только "Rele_N".
Но есть одно "волосатое НО"... При повторном нажатии идет значительная задержка вставки блока (минута) при этом в командной строке пишет: "Повторное определение блока Rele_N пропущено.", AutoCAD виснет на минуту, потом отвисает и вроде как работает как обычно дальше. Экспериментами удалось обнаружить, что проблемы тормозов проявляют себя только если в чертеже нет вхождения блока dwgRele_03.
т.е. если макрос написать так:

Код:

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

^C^C_-insert;dwgRele_03;\1;;;_.explode;_last;

то тормозов не будет. Но хочется же чтобы блока "dwgRele_03" в чертеже небыло.

Поэтому может кто подскажет как реализовать такое:
1. Вставляем блок по старому макросу с удалением блока "dwgRele_03"

Код:

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

^C^C_-insert;dwgRele_03;\1;;;_.explode;_last;_.-purge;_all;;_n;

2. Если в чертеже есть блок "Rele_N" то выполнить макрос

Код:

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

^C^C_-insert;Rele_N;\1;1;0;;;;;;;

если нет, то выполнить макрос:

Код:

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

^C^C_-insert;dwgRele_03;\1;;;_.explode;_last;_.-purge;_all;;_n;

Offtop: Перелопачивал свои блоки... нашел блок с именем "dwgRU" - Выравниватель

[zenon]

Shoorup, когда-то напарывался на файл в котором описание динамики блока было описано непосредственно в самом файле, а не в реакторе блока. После вставки его как блока получался динамический блок. Вот только не могу вспомнить где это видел.

[Shoorup]

Сообщение от zenon описание динамики блока было описано непосредственно в самом файле...

zenon, спасибо за наводку!
Почему-то сразу до этого не додумался. Нужно описывать ДБ не отдельным блоком в чертеже, а заходить в редактор блоков и выбирать там <Текущий чертеж> и там все описывать. Ну а макрос простая вставка блока.

Код:

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

^C^C_-insert;dwgRele_03;\1;1;0;;;;;;;;;;

Только все переделывать накорню... скопировать описание блока в чертеж не получится. Работы на день-два точно...

[Xara]

Люди, а как в макрос записать путь к блоку в DWG-файле?
Мой блок Т1 определен в файле tables_draw_new в папке d:\st_functions\add_st.
Я прописываю в макрос команду

Код:

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

^C^C(defun C:inscommand () (command "_.-INSERT" "d:\st_functions\add_st\tables_draw_new\T1" pause "" "" "") (command "_explode" entlast ""));inscommand

На что товарищ автокад мне говорит

Код:

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

(defun C:inscommand () (command "_.-INSERT" "d:

и не желает выполнять вставку блока.
ps: (двойные слэши "\\" пробовал, не катит)

Что же я не так делаю?

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

Попробуй обратные слеши.

[Xara]

Сообщение от Кулик Алексей aka kpblc Попробуй обратные слеши.

Код:

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

Command: inscommand _.-insert Enter block name or [?] <T11>: 
d://st_functions//add_st//tables_draw_new//T1
Invalid block name.
; error: Function cancelled

Этот вариант тоже не прокатил (с любыми слешами):

Код:

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

^C^C_-insert;d:\st_functions\add_st\tables_draw_new;\T1;;;_.explode;_last

АП: Попробовал вариант ^C^C_-insert;"d:\st_functions\add_st\tables_draw_new.dwg";\T1;;;_.explode;_last
Акад сначала запросил имя блока:

Код:

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

-INSERT Enter block name or [?] <T1>:

Потом вывел окошко выбора блока, я нажал отмену.
Потом он мне построчно просил ввести путь и вставил блок, причем вручную пришлось добивать параметры вставки.
Полный код из ком.строки:

Код:

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

Command: _-insert
Enter block name or [?] <T1>: "d:

Command: st_functions
Unknown command "ST_FUNCTIONS".  Press F1 for help.

Command: add_st
Unknown command "ADD_ST".  Press F1 for help.

Command: tables_draw_new.dwg"
Unknown command "DWG"".  Press F1 for help.

Command:
-INSERT Enter block name or [?] <T1>: T1

Units: Millimeters   Conversion:    1.0000
Specify insertion point or [Basepoint/Scale/Rotate]:

Point or option keyword required.
Specify insertion point or [Basepoint/Scale/Rotate]: Specify scale factor <1>:

Specify rotation angle <0>:

[roaa]

Сообщение от Xara Люди, а как в макрос записать путь к блоку в DWG-файле? Мой блок Т1 определен в файле tables_draw_new в папке d:\st_functions\add_st.

Если не ошибаюсь, ежели определение блока Т1 в чертеже отсутствует, то выдернуть его из файла так не получится.
Почитайте
http://forum.dwg.ru/showthread.php?t=55898

[Inventor_S]

Может кто знает как сделать макрос мультивыноски (_mleader) с выравниванием мтекста по центру ? Что-то пробовал, не получается.

[skkkk]

Inventor_S, макросом - никак. Только лиспом. Offtop: Чтоб не оффтопить тут, ответил в наиболее близкой по смыслу теме

[Cosinus]

Подскажите пожалуйста, как бы сделать, чтобы вызывалась команда filter, но без диалога, с настройками на выбор объектов с цветом 131?

[skkkk]

Если я правильно понял, то для выбора всех объектов цветом 131 я бы использовал _qselect, а не _filter. А если бы хотел без диалогового окна, то повесил бы на кнопку такой макрос:

Код:

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

^C^C(defun mfunc(/ selset) (if (setq selset (ssget '((62 . 131)))) (sssetfirst selset selset)));(mfunc);

[Cosinus]

skkk Благодарю, то что я хотел

[GGarry]

Сообщение от skkkk Если я правильно понял, то для выбора всех объектов цветом 131 я бы использовал _qselect, а не _filter. А если бы хотел без диалогового окна, то повесил бы на кнопку такой макрос: Код: [Выделить все] ^C^C(defun mfunc(/ selset) (if (setq selset (ssget '((62 . 131)))) (sssetfirst selset selset)));(mfunc);

Привет!!!
А можно было бы здесь выделить несколько параметров у примивов?
1. line center 2
2. line continue
3. dim

[skkkk]

Ничего не понял. Хочется намного более чёткой постановки вопроса.
1. Что значит "line center 2"?
2. "Line continue" - рискну предположить, что нужно выбрать все линии с типом линии Continuous.
3. "Dim" - это выбрать все размеры?

[АлексЮстасу]

Сообщение от PSG Еще вопрос - ^C^C(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_find;(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_explode ^C^C(setq a(ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_text- по отдельности они работают, а если их объединить вместе ^C^C(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_find;(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_explode;(setq a(ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_text- то не работают. В чем моя ошибка?

Это из #436, два года назад
Та же проблема. Если после _explode ничего делать не нужно, то макрос работает нормально. А если после него что-то нужно еще сделать, то _explode не выполняется, и далее соответственно.
Правда, это для Автокадов 2006-2008. В 2012 удается победить. Но у людей - участников процесса - есть только 2006-2008.
Моя задача: разметить полилинию блоками в виде поперечных полилиний, разбить эти блоки, чтобы на пересечениях выбранных полилиний расставить точки.
Мой макрос:

Код:

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

^C^C_measure;\_b;"поперечник";_y;40;_SelectSimilar;_l;;_explode\POLYPOINT

"поперечник" - имя блока, ориентируем вдоль указанной полилинии, ставим через 40 единиц.
POLYPOINT - команда расстановки точек на всех пересечениях указанных полилиний к программке из http://forum.dwg.ru/showpost.php?p=1108065&postcount=37
Если убрать это "\POLYPOINT", то в Акадах 2006-2008 _explode выполняется. А полностью - нет.