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

Profan, признаю - был неправ.
Vova, это обязательно - иначе команда не распознается.
Димас, у меня только ADT установлены, поэтому ничего сказать не могу - возможно, начиная с какой-то версии эта команда встраивается.

[Vova]

Ага, значит списывая с бумажки сделал ошибку. Вот это в англ работает, здесь прямая копия ^C^C-LA;U;Z-VPORT;;_CP;\;0,0;1,0;E;P;;M;L;;0,0;-1,0;-LA;LO;Z-VPORT;;
Для русского надо черточки подставить и, получается, вместо сокращенных команд надо дать их полностью. Для команды -LA надо _-LA. Насчет точки (. _-LA). У вас что, часто команdы переопределяются? Тогда почему при других командах точки нет?
Интересно, что спор вокруг макроса (что прямо по теме) а о работе по растру вопросов нет. Разве никто с ними не работает?

[VVA]

Vova, В русском Автокаде локализуется и acad.pgp
Короткое имя команды ПЕРЕНЕСИ (_MOVE;M) - П; -СЛОЙ (_-LAYER; -LA) - -СЛ

[zenon]

Макрос на объединение в полилинию.
1 вариант
(с) VVA

Код:

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

^C^C(defun C:JPL ( / ope ssnab )(setq ope (getvar "PEDITACCEPT"))(setvar "PEDITACCEPT" 1)(setq ssnab (ssget "_I"))(while (not ssnab)(setq ssnab (ssget)))(command "_pedit" "_Multiple" ssnab "" "_Join" 0 "")(setvar "PEDITACCEPT" ope)(setq ssnab nil)(princ));JPL;

2 вариант
(с) Кочетков Андрей

Код:

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

^C^C^P(defun c:polyjoin () (ssget)(vl-cmdf "_pedit" "_m" "_p" "" "_y" "_j" "" "")(princ));polyjoin;

[Profan]

zenon, макрос Кочеткова Андрея не будет работать, если все объекты, которые надо объединить - полилинии.
А чем тебе не понравился мой последний макрос отсюда:
http://dwg.ru/f/showthread.php?t=22024

[VVA]

Так макрос Андрея будет работать и с полилиниями

Код:

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

^C^C(defun c:polyjoin ()(ssget)(command "peditaccept" 1 "_pedit" "_m" "_p" "" "_j" "" "")(princ));polyjoin;

[Pilot]

Добавлю и свой макрос объединения в полилинию.
Ограничение - первой нужно указывать не полилинию.

Код:

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

*^C^C_pedit;\_y;_j;_box;\\;;

[skkkk]

Подскажите пожалуйста, можно ли сделать макрос на кнопку для закрытия Чертежа без сохранения (без вывода диалога Сохранить изменения)?

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

Теоретически последовательность вида

Код:

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

^C^C(vl-load-com)(vla-close (vla-get-activedocument (vlax-get-acad-object)) :vlax-false)

работать должна. Но лично у меня не сработала.

[skkkk]

У меня тоже Комстрока гласит:

Команда: (vl-load-com)(vla-close (vla-get-activedocument (vlax-get-acad-object)) :vlax-false) ; ошибка: Ошибка Automation. Чертеж занят.

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

Оно и было. Честно говоря, не очень понимаю - а нажать Tab и пробел (или Enter) - неужели сильно сложно?

[skkkk]

Действительно, что я, пальцы переломал что ли?...
Просто захотел сделать в правом верхнем углу под кнопкой Закрыть минипанель из двух кнопок с крестиками: зеленая - сохранить и закрыть (макрос, понятное дело, ^C^C_qsave;_close), и красная - закрыть без сохранения....Мне показалось, так удобней будет

[Aндрeй]

Сообщение от skkkk Действительно, что я, пальцы переломал что ли?... Просто захотел сделать в правом верхнем углу под кнопкой Закрыть минипанель из двух кнопок с крестиками: зеленая - сохранить и закрыть (макрос, понятное дело, ^C^C_qsave;_close), и красная - закрыть без сохранения....Мне показалось, так удобней будет

Есть брутфорсный метод закрытия без сохранения - сохранить под другим временным именем и закрыть. Кстати можно реализовать на макро используя filedia 0 и saveas

[dextron3]

как через командную строку нажать: CTRL+TAB ?

[skkkk]

Андрей, хотел попробовать "брутфорсный метод", не работает что-то у меня _saveas при filedia=0 - виснет КАД. Я нашел, другой, тоже брутфорсоватый, работает. Не макро, но тем не менее....http://dwg.ru/f/showthread.php?t=949...8%F6%2A&page=2

[stas_org]

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

пост№7

^C^C_area о \_text \;;%%u$M=$(*,$(fix,$(*,$(getvar,area),0.0001)),0.01)м%%178;

[skkkk]

Во вставляемом тексте при измерении замкнутой фигуры (пробовал на прямоугольнике и круге) появляется значение ноль метров квадратных. Почему?

[stas_org]

регион попробуй

[skkkk]

То же самое.

[stas_org]

и полилиния замкнутая тоже работает