[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

[Log_in]

Вот буквально неделю назад (к своему стыду) начал читать книжку В. Свет "Язык макрокоманд..." и хочу выразить автору огромную благодарность (думаю выражение благодарности не будет оффтопом).

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

^C^C_audit;_y;_-purge;_blocks;;_n;_qsave;

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

Я бы дополнил так:

Код:

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

^C^C_.audit;_y;_.-purge;_a;;_n;_.-purge;_r;;_n;_qsave

Работать будет в AutoCAD от 2005 и выше.

[Vova]

^P^C^C(startapp "explorer.exe" (strcat "/n,/e," (getvar "dwgprefix")))(princ)
Вызывает Проводник, открытый на текущей директории (макрос не мой)

[Makswell]

Вот макросы, которыми я очень часто пользуюсь:

Блокировать ВЭ

^C^C_.-vports;_lock;_on;

Разблокировать ВЭ

^C^C_.-vports;_lock;_off;

Площадь объекта

^C^C_.area;_Object

Обновить атрибуты с запросом указания блока.

^C^C(defun C:M-Command () (vl-cmdf "_.ATTSYNC" "_S" Pause "_Y"));M-Command;

Включить все слои

^C^C_.-layer;_on;*;;

Ручки внутри блоков вкл/выкл

^C^C'GRIPBLOCK;$M=$(xor,$(getvar,GRIPBLOCK),1);

Вместо текста рамка вкл/выкл

^C^C'QTEXTMODE;$M=$(xor,$(getvar,QTEXTMODE),1);_.regen;

Вообще-то раньше у меня было очень много макросов и даже очень навороченых, но со временем они все меняются на лисп. Лиспом всё-таки удобней.

[zenon]

Makswell, а можно дополнить макрос
Площадь объекта

^C^C_.area;_Object

чтоб еще и значение текстом вставлял???

[Makswell]

zenon, макросом ИМХО не сделать. Можно лиспом.

[Makswell]

Ещё макрос (для программистов). Тоже частенько пользуюсь.

Посмотреть DXF-свойства примитива

^C^C(defun C:M-Command () (princ (entget (car (entsel)))) (textscr) (princ));M-Command;

[Profan]

Вот такой аляповатый макрос:

Код:

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

 
^C^C^P_.area;_Object;\^C(setq txt (getvar "AREA"))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ)

Или здесь посмотреть:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19561RU

[zenon]

Profan,

[Log_in]

Сообщение от Кулик Алексей aka kpblc Я бы дополнил так: Код: [Выделить все] ^C^C_.audit;_y;_.-purge;_a;;_n;_.-purge;_r;;_n;_qsave Работать будет в AutoCAD от 2005 и выше.

Я специально чищу только блоки

Код:

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

_.-purge;_b

, потому что в ходе проектирования их скапливается до немеряно, а например размерные стили еще не использовались, но будут нужны.) Ну а когда чертеж готов - тотальная зачистка

[Залётный]

Сообщение от Makswell Вот макросы, которыми я очень часто пользуюсь: Блокировать ВЭ Цитата: ^C^C_.-vports;_lock;_on; Разблокировать ВЭ Цитата: ^C^C_.-vports;_lock;_off; Вообще-то раньше у меня было очень много макросов и даже очень навороченых, но со временем они все меняются на лисп. Лиспом всё-таки удобней.

Мне кажется удобнее, когда меняется состояние вьюпорта в зависимости от предыдущего. Много лет пользуюсь этим от Jones, Steve:
VPtoggle

[Makswell]

Ну вот, я же писал:

Вообще-то раньше у меня было очень много макросов и даже очень навороченых, но со временем они все меняются на лисп. Лиспом всё-таки удобней.

Залётный, ты также меня повторил:

Мне кажется удобнее, когда меняется состояние вьюпорта в зависимости от предыдущего...

Но тема то про макросы...

[zenon]

Сообщение от Makswell Но тема то про макросы...

Точно!!!
Посему давайте не уходить от темы, а выкладывать макросы

[Димас]

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

Код:

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

^C^C_select;\-bhatch;p;"Rhyolit";0.5;0;s;p;;;-bhatch;p;"Solid";1;0;s;p;;;

восстановление контура штриховки

Код:

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

^C^C-hatchedit;\b;p;y;

рисуем контур штриховки, после он сам заливается, контур может иметь "внутренние" контуры - поэтому ентер жать несколько раз)

Код:

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

^C^C-HATCH;p;SOLID;W;Y;

[zenon]

А что, больше никто не использует макросы в работе?

[Makswell]

ИМХО сейчас макросов меньше, потому что сейчас до них дольше добраться в CUI. Раньше нажал ПКМ на кнопке, и сразу можно править макрос. Проще было экспериментировать. Поменял что-то - посмотрел результат, опять поменял что-то и т.д...
А сейчас... Проще набрать _VLIDE и начать программировать на лиспе, а на кнопку посадить уже сделанную тобой готовую прогу.

[VVA]

Чато приходят чужие чертежи с кучей прокси объектов. Благодаря Александру Ривилису с этой бедой можно бороться.
Макрос расчленяет, удаляет прокси объекты, делает аудит рисунка и восстанавливает предыдущее состояние слоев.

Код:

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

^C^CEXPLODEALLPROXY;REMOVEALLPROXY;_AUDIT;_Y;_LAYERP;_LAYERP;

Подразумевается, что нужный explodeproxy.arx загружен.
Сам arx и подробное описание здесь:
ObjectARX. Расчленение и удаление proxy-объектов

[zenon]

VVA,
А если прописать сюда и загрузку explodeproxy.arx???

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

zenon, это проще всего делать лиспом.