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

Тьфу, дура я дура!

Код:

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

^C^C_.line;_nea;\_nea;\;

[МихМих]

Кулик Алексей aka kpblc
Всё началось вот с этого макроса из книги В.Свет ...измерение угла двух линий за 2 щелчка. Я знаю что есть опечатки тут код уже с исправленными опечатками...... ну не работает ни в какую перепробовал уже ВСЁЁ!!! где ж загвоздка.... autocad2008 rus

Код:

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

^C^C_line;'_cal;P1=nea;\_Appint;@;'_cal;P2=nea;\;_Erase;_Last;;_Cal;Ang(@,P1,P2);;Ang(@,P2,P1);

Так и не понял что означает \_Appint .... вроде INT это кажущееся пересечение а вот APP ... ?

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

int -> пересечение
appint -> кажущееся пересечение

[МихМих]

Если начертить две линии а потом подействовать на первую нарисованную линию вот этим макросом ^C^C_line;'_cal;P1=nea;\_Appint;@; то получим точку пересечения этих линий..... подскажите как сохранить данную точку например на p3 . Нужно чтобы макрос автоматом сохранял координаты данной точки на p3

[Vova]

Уже неоднократно писал, начиная от версии 2006, кажется, калькулятор в некоторых макросах стал сбоить. Я стал исследовать и даже на форуме приложил картинку, как сбоИт. Но сейчас не найти. Попробуй так: начни испытывать макрос с начала, удалив большую его часть, затем добавляй по знаку-два. Где-то под большим зумом выдается крючек в построениях, и он и дает сбой.
В книге есть опечатки, их список есть на Caduser.ru Но бОльшая часть макросов дана в книге в виде скрина с экрана, (специально так делал, чтобы избежать опечаток) а следовательно они однозначно работают. Кроме мест с калькулятором, но не все там дает сбой

[МихМих]

Vova
Да вот к примеру у меня на 2008 автокаде русской версии макрос

Код:

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

^C^C_point;'cal;p1=nea;\_appint;@;

ставит точку на кажущемся пересечении двух линийно стоит добавить в код чтобы эта точка запоминалась например как P3 то код не работает

Код:

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

^C^C_point;'cal;p1=nea;\_appint;@;_cal;p3=@;

[МихМих]

Подскажите пожалуйста например в книге Света есть команда
^C^C_-insert;H3100;\;;\_cal;P1=@;
код рабочий...
так вот тут старнность \_cal при каких обстоятельствах функция _cal работает совместно с \ (ручным вводом) ?
например при команде _copy не прокатывает.....

[Redya]

Хочу чтобы мультивыноска сразу помещалась в свой слой. Но что то никак

Код:

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

^C^C_mleader;\\;\_Change;_Last;_P;_La;Vinoski;;

И что бы Dtext тоже помещался в свой. Не работает

Код:

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

^C^C_dtext;\;;_Change;_Last;_P;_La;Text;;

[TararykovDG]

Redya, попробуй так

Код:

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

^C^C_mleader;\\;\_Change;_Last;;_P;_La;Vinoski;;

^C^C_dtext;\;;_Change;_Last;;_P;_La;Text;;

после _Last нужно еще поставить ; - признак окончания выбора объектов, а то _Last это ты только выбрал последний объект.

[Profan]

Изменение слоя в макросе для текста выполняется только для последней введенной строки.

[Redya]

TararykovDG , насчет текста проканало, спасибо! а вот выноской нет. пишет:

Код:

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

Command: _mleader

Specify leader arrowhead location or [leader Landing first/Content 
first/Options] <Options>:
Specify leader landing location:
Specify landing distance <0.0000>:

Command:
Command: _Change
1 found
Specify change point or [Properties]: _Last

Point or option keyword required.
Specify change point or [Properties]: No changeable object selected

[Profan]

Попробуй такой макрос (проверялся в AutoCAD 2011):

Код:

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

^C^C_mleader;\\\_Change;_Last;;_P;_La;Vinoski;;

[TararykovDG]

Profan, точно конструкция ^C^C_dtext;\;;_Change;_Last;;_P;_La;Text;; канает только для последней строки

а вот ^C^C_mleader;\\\_Change;_Last;;_P;_La;Vinoski;; у меня (ACad 2008) не заработал, а заработал

Код:

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

^C^C_mleader;\\_Change;_Last;;_P;_La;Vinoski;;

[Redya]

Profan, taraykovDG, не работает.

[Profan]

Что именно не работает?

[TararykovDG]

Redya, странно у меня работает. Ну а что ACad пишет в ком. строке


Добавлено. Если так, сразу слой менять, а потом восстанавливать

Код:

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

^C^C(setq lr (getvar 'clayer)) (setvar 'clayer "Vinoski") _mleader; (setvar 'clayer lr)

[Redya]

Простите. У Profan работает (я просто слой забыл тогда создать, и он не мог его найти), а вот у TararykovDG не работает. Спасибо!

[99xt1]

День добрый.
Этот макрос

Сообщение от Krieger Смыкание линий: Код: ^C^C_fillet;_R;0.0;

у меня (AutoCAD 2010 Rus) не работает. В командной строке после ввода значения радиуса 0.0 команда просто прерывается и не предлагает выбрать две линии. Запускаю команду СОПРЯЖЕНИЕ. Все в порядке, а в макросе проблемы.

Сообщение от 99xt1 Этот макрос Код: [Выделить все] ^C^C_fillet;_R;0.0; у меня (AutoCAD 2010 Rus) не работает. В командной строке после ввода значения радиуса 0.0 команда просто прерывается и не предлагает выбрать две линии. Запускаю команду СОПРЯЖЕНИЕ. Все в порядке, а в макросе проблемы.

Может стоит сделать вот так?

Код:

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

^C^C_fillet;_R;0.0;\

Добавлено:
Прошу прощения, написал сообщение не испытав. Не работает. Даже так вот не работает

Код:

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

^C^C_fillet;_R;0.0;\^Z

[Profan]

Или вот так:

Код:

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

^C^C_fillet;_R;0.0;;