[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

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

Сообщение от gomer Вот такого например Код: [Выделить все] (defun c:test () (setvar "CMDECHO" 1) (command "_pline" pause) (while (= 1 (getvar "CMDACTIVE")) (command pause) ) (vla-put-Closed (vlax-ename->vla-object (entlast)) :vlax-true) (command "_cmddia" "0") (command "_.adeattachdata" "Apron" "_a" "_n" "_l") (command "_cmddia" "1") )

И из тех, и из этого лиспа:

Команда: _cmddia Новое значение CMDDIA <1>: 0 Команда: _.adeattachdata Не удалось вызвать команду из ADS или AutoLISP. Внутренняя ошибка. Команда: Apron Неизвестная команда "APRON". Для вызова справки нажмите F1. Команда: _a Неизвестная команда "A". Для вызова справки нажмите F1. Команда: _n Неизвестная команда "N". Для вызова справки нажмите F1. Команда: _l Неизвестная команда "L". Для вызова справки нажмите F1. Команда: _cmddia Новое значение CMDDIA <0>: 1 Команда: nil

[Stroit'el]

Offtop: (По мотивам обнуления координаты z)
Написал для AUTOCAD LT 2009 Работает также и в AUTOCAD LT 2011
Корректно работает только для однострочных текстов
--------------------------------------------------------------------------------------------------------------------------------------------
Кнопки на палитру находятся здесь http://dwg.ru/dnl/12625
Подробный разбор макроса смотрите здесь http://forum.dwg.ru/showpost.php?p=1...&postcount=672

Offtop: Добавил комментарий по просьбе АлексЮстасу

Выравнивание однострочных текстов по X
Указать точку выравнивания, выбрать только текстовые объекты (можно рамкой)

Код:

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

^C^Cuserr1;0;_id;\userr1;'cal;rxof(@);\;;_select;$M=$(if,$(getvar,cmdactive),\,)_move;_pr;;1e99,0,0;;;_pr;;-1e99,0,0;;;_pr;;'cal;xof([$m=$(getvar,userr1),0,0]);;

Выравнивание однострочных текстов по Y
Указать точку выравнивания, выбрать только текстовые объекты (можно рамкой)

Код:

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

^C^Cuserr1;0;_id;\userr1;'cal;ryof(@);\;;_select;$M=$(if,$(getvar,cmdactive),\,)_move;_pr;;0,1e99,0;;;_pr;;0,-1e99,0;;;_pr;;'cal;yof([0,$m=$(getvar,userr1),0]);;

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

Stroit'el - круто!
Я не столько про действия макросов (действуют), сколько про неведомые мне возможности, в них использованные. Одни циклы меня серьезно впечатляют.
Правда, мне в этих макросах мало что понятно. Можно их прокомментировать? Что в них что?
Например, что такое "userr1", что такое "_id"? И т.д.

[skkkk]

Переменные ORTHOMODE и POLARMODE - не оно? Хоть напрямую прописывать имя переменной в макрос, хоть функцией setvar. Если нужно менять режимы во время выполнения команды, то название переменной в макросе предваряется апострофом. Надеюсь, правильно понял вопрос.
Добавлено:
Пока писал ответ, вопрос уже исчез, получилось, будто я невпопад вообще что-то написал... Вопрос был в том, можно ли из макросов управлять режимами ОРТО и Отслеживания.

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

Сообщение от skkkk ORTHOMODE и POLARMODE

Пардон, я уже до этих переменных добрался - сразу не заметил их. И потому изменил свой вопрос.
Но про эти переменные и их применение тоже спасибо - ключевые моменты я не знал.

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

Offtop: Тем более удалить, что номер его - ужас, ужас, ужас
Все-таки не POLARMODE, а AUTOSNAP (+РЕЖИМРИС) == 8 отвечает за включение/отключение полярного отслеживания?
Еще открытие для меня - этот плюс перед +РЕЖИМРИС! бывает и с плюсом?

[skkkk]

Сообщение от АлексЮстасу Все-таки не POLARMODE, а AUTOSNAP

Все верно, ошибся я малёк... Буду впредь повнимательнее.

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

Сообщение от skkkk Все верно

А POLARMODE==1 мне нужна для включения полярного отслеживания "от последнего сегмента".
Только вот привязки куда-то ичезли, хотя в настройках они включены!
По умолчанию AUTOSNAP у меня был 39. Когда вместо своей AUTOSNAP==8 ставлю AUTOSNAP в 39, то привязки восстанавливаются. Т.е. как и установить и полярное отслеживание, и чтобы работали привязки одновременно?

[skkkk]

Сообщение от АлексЮстасу как и установить и полярное отслеживание, и чтобы работали привязки одновременно?

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

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

Сообщение от skkkk привязки и полярное отслеживание у меня работают независимо друг от друга

Да, похоже, дело в том, что значения AUTOSNAP не просто выставляются, а плюсуются. Если установил просто 8, то будет без привязок. А если взять текущее значение (у меня было 39) и прибавить 8 (т.е. будет 47), то одновременно будет и полярное, и привязка.

[skkkk]

Сообщение от АлексЮстасу Только вот привязки куда-то ичезли, хотя в настройках они включены!

О каких привязках идет речь? OSNAP или AUTOSNAP? Видимо второе, а я подумал о первом...

Сообщение от АлексЮстасу Да, похоже, дело в том, что значения AUTOSNAP не просто выставляются, а плюсуются.

Все верно. Из справки:

Параметр хранится в виде битового кода, использующего сумму следующих значений.

[Stroit'el]

Сообщение от АлексЮстасу Stroit'el...Можно их прокомментировать? Что в них что? Например, что такое "userr1", что такое "_id"? И т.д.

Сам макрос смотрите http://forum.dwg.ru/showpost.php?p=1...&postcount=662

Задача заключается в том, чтобы запомнить точку выравнивания, и затем по этой точке выровнять однострочные тексты, для этого используем переменную userr1. Идея выравнивания навеяна интересной макрокомандой обнуления координаты z.
------------------------------------------------------------------------------------------------------------------------------------------------------------------
userr1; - пользовательская переменная, ; - здесь, - подтверждение в ответ на запрос команды

0; ввод числа 0 - обнуление userr1, ; - здесь, - заканчивает работу команды

_id; ввод команды id - получение координаты точки с чертежа, ; - здесь, - подтверждение ввода (аналог нажатия ENTER).

\userr1; - после указания точки на чертеже присваиваем новое значение переменной userr1, которое получим с помощью координатного фильтра калькулятора командной строки, \ - ввод. Далее, userr1 - вызов команды присвоения значения переменной, ; - переход к получению значения (аналог нажатия ENTER).

'cal;rxof(@);\;; - 'cal - прозрачный вызов калькулятора командной строки, rxof - фильтр по координате х, @ - координаты последней точки, которые хранятся в памяти программы AUTOCAD, точка эта была указана вначале работы макроса (использовалась команда _id).
_select;$M=$(if,$(getvar,cmdactive),\,) - выбор текстов в любом порядке, с учетом активности команды select (используется переменная cmdactive в выражении Дизель). Посмотрите примечание по этому поводу.

_move;_pr;;1e99,0,0;;;_pr;;-1e99,0,0;;;_pr;; - перемещаем тексты по координате x в бесконечность (1e99) и затем возвращаем обратно (-1e99) по координате х в точку 0, здесь: _pr - предыдущий набор выбора. Команда перемещения снова вызывается по ";" (соответствует нажатию ENTER). Разделитель для ввода значений координат - запятая.

'cal;xof([$m=$(getvar,userr1),0,0]);; - перемещение текстов из точки 0 в точку, которая была указана (точка выравнивания), обратите внимание на квадратные скобки для ввода координат

------------------------------------------------------------------------------------------------------------------------------------------------------------------
PS.
$m=$(getvar,userr1) - выражение на языке ДИЗЕЛЬ (в autocade LT есть очень удобный язык программирования ДИЗЕЛЬ и великолепный язык макрокоманд, спасибо разработчикам за то, что это у нас есть...) http://exchange.autodesk.com/autocad...30d6b-7b3c.htm

\ - ввод в ответ на запрос команды, использование которого очень интересно тем, что, например, позволяет ввести какую-либо другую команду и затем указать объекты, таким образом возможно осуществлять комбинацию различных команд

_ нижнее подчеркивание позволяет использовать англоязычные команды в локализованных версиях AUTOCAD (не используется для переменных).

Есть замечательная книга Владимира Света "Язык макрокоманд и создание кнопок" http://dwg.ru/dnl/3480.

*Примечание
Ограничение использования данного макроса для всех объектов, кроме текстов, заключается в том, что макрос "плющит" такие объекты, например, отрезки становятся нулевой длины, поэтому рекомендуется использовать данный макрос только для текстов.


Второй макрос работает аналогично.

Спасибо за проявленный Вами интерес.
Спасибо дорогому ФОРУМУ dwg.ru.

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

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

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

В макросе - нет (ну или использовать USER*-переменные. А там наверняка возникнет проблема с обратным восстановлением значений).

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

Сообщение от Кулик Алексей aka kpblc наверняка возникнет проблема с обратным восстановлением значений

В чем там засада с восстановлением?
Если нельзя или не стоит командами, то, значит, программно?

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

Переменных USER* не так уж и много - 5 целых, 5 строковых и 5 действительных. При этом некоторые хранятся в чертеже, некоторые - нет.
Теперь смотри:
слой (clayer) - строковое значение, хранить в USERS#
цвет (cecolor) - опять строковое. Опять USERS#
вес (celweight) - целое, с возможностью отрицательных. USERI#
тип (celtype) - строка, USERS#
масштаб типа линии (celtscale или ltscale) - двойной точности, USERR#
Пока системных переменных немного, все хорошо, можно запомнить, где что лежит и как называется. А теперь добавь сюда, например, osmode (целое), autosnap (целое), - и очень быстро ты упрешься в то, что переменные USER* кончились

----- добавлено через ~3 мин. -----
Придется (по идее) либо писать лиспы, либо еще каким-то образом извращаться (и я даже догадываюсь каким )

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

Сообщение от Кулик Алексей aka kpblc либо еще каким-то образом извращаться (и я даже догадываюсь каким )

Каким бы? Забить? Положить?

Если для совсем-совсем-совсем тупых - как, например, переменной USERS1 присвоить значение clayer в макросе?
Пишу, допустим: ^C^CUSERS1;CLAYER; - присваивает не значение CLAYER, а строку "CLAYER".
Или (собезьянничал): ^C^C(setvar "USERS1" CLAYER) - ругается: ошибка: Настройка переменной AutoCAD отвергнута: "USERS1" nil.
Или (тоже собезьянничал): ^C^C(setq USERS1 (getvar "CLAYER")) - не ругается, но и не присваивает ничего.
Или (еще собезьянничал): ^C^C$USERS1=$(getvar,CLAYER) - тоже не ругается, и ничего не присваивает.

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

Пишу без када, поэтому критика не принимается
^C^Cusers1;$(getvar,clayer);
^C^C(setvar "users1" (getvar "clayer"));
P.S. Поищи функцию универсального обработчика ошибок (уж поминали такие вещи миллион раз)

[gomer]

АлексЮстасу, ^C^CUSERS1;$M=$(getvar,CLAYER);

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

Сообщение от Кулик Алексей aka kpblc Пишу без када, поэтому критика не принимается ^C^Cusers1;$(getvar,clayer); ^C^C(setvar "users1" (getvar "clayer"));

Абсолютно без критики: первая не дает ничего, а вторая присваивает почему-то "0".

Сообщение от gomer ^C^CUSERS1;$M=$(getvar,CLAYER);

тоже присваивает почему-то "0".
Активный слой совсем-совсем не "0".