[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

[skkkk]

Так?

Код:

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

^C^C_measure;\_b;поперечник;_y;40;_xplode;_p;;;;_selectsimilar;_p;;POLYPOINT;

Только одного не пойму: почему не расставить блоки-точки таким же образом (_measure), а потом взорвать. Или еще лучше: сразу включить в описание блока "поперечник" объект - точку?

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

Сообщение от skkkk Так? Код: [Выделить все] ^C^C_measure;\_b;поперечник;_y;40;_xplode;_p;;;;_selectsimilar;_p;;POLYPOINT; Только одного не пойму: почему не расставить блоки-точки таким же образом (_measure), а потом взорвать. Или еще лучше: сразу включить в описание блока "поперечник" объект - точку?

Уря! Получилось! В небольшой модификации (без selectsimilar)^

Код:

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

^C^C_measure;\_b;поперечник;_y;40;_xplode;_p;;;;POLYPOINT;

Точки нужно вставить на пересечениях не только размеченной линии, но и других указанных линий. Которые в общем случае находятся на неодинаковых расстояниях от размеченной линии. И их не одинаковое количество, разная длина и т.п.
И эти "другие" линии пользователю нужно выбрать вручную.
Красная - размечаемая (_measure) линия.

Никогда б не догадался, что после "_p" нужно вставить аж четыре ";"!

[pan]

Глядя на приведенный пример, imho напрашивается применить массив по траектории (_arraypath)

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

Сообщение от pan Глядя на приведенный пример, imho напрашивается применить массив по траектории (_arraypath)

В общем случае линии выглядят примерно как на картинке здесь.
Т.е. места пересечений непредсказуемы массивами или т.п.

[Conan_w]

Одновременное выключение слоёв (кроме активного).

Код:

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

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

... и включение.

Код:

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

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

[skkkk]

Почему оба макроса одинаковы?
А чем не нравятся команды _layiso и _layon?

[ProPeller]

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

Код:

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

*^C^C_line ;\;_ucs _ob _l;_pedit _l _y _j _all;;;_draworder _l;;;_insert имя_блока_назад @;;;0,0;_draworder _l;;;_insert имя_блока_центр 0,0;;;;_draworder _l;;;_insert имя_блока_вперед 0,0;;;;_ucs;;

В моем случае например это разного рода столбы с направленными от них стрелками

Просто тыкаете в точки а автокад вам все сам рисует.

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

Сообщение от ProPeller Вставка блоков по вершинам полилинии. Вдруг кому пригодится. Код: [Выделить все] *^C^C_line ;\;_ucs _ob _l;_pedit _l _y _j _all;;;_draworder _l;;;_insert имя_блока_назад @;;;0,0;_draworder _l;;;_insert имя_блока_центр 0,0;;;;_draworder _l;;;_insert имя_блока_вперед 0,0;;;;_ucs;; В моем случае например это разного рода столбы с направленными от них стрелками Просто тыкаете в точки а автокад вам все сам рисует.

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

[ProPeller]

Сообщение от АлексЮстасу Прописал свои блоки - сработало, когда имена блоков взял в ковычки Наверное, для моих имен со скобками так требуется. На последней поворотной точке draworder не сработал - столб под линией. На самой последней точке столб не нарисовался. И при повторном вызове упорно начинает с последней точки уже нарисованной ЛЭП или любого другого последнего элемента. А так - здорово

Все верно, есть мелкие недостатки. К сожалению на уровне макросов я не имею представления как от них избавиться. Для себя привычку выработал, перед тем как новую линию начинаю рисовать, сперва рисую отрезок с конечной точкой в начале планируемой линии и тут же его удаляю, после чего вызываю макрос и понеслась =))
Насчет последнего столба, привык добавлять одну лишнюю точку и удалять лишний сегмент, и два ненужных блока. В общем эти мелкие действия с лихвой компенсируются вырученным временем на отрисовку этих элементов по отдельности

[dedadeda]

ПОМОГИТЕ разобраться...

Стоит задача - организовать автонумерацию в autocad 2013 LT. как я понимаю в нем LISPa НЕТ!
1. было найдено решение в виде макроса автонумерации
*^c^c_text;_m;\;;$M=$(getvar,USERI1);_setvar;USERI1;$(+,1,$(getvar,USERI1))
но тут невозможно ввести суфикс и префикс для нумерации.

2. Также было найдено в сети решение для нумерации для autocad LT
// Symphony Interactive Inc.
//
// Auto text enumerator tool for AutoCAD LT
//
// Create a new tool or menu item and copy/paste the following diesel code to it:
//
// Please feel free to contribute/improve this code!
//
// Clone this mercurial repository: http://si_hg@hg.symphonyinteractive....-lt-enumerator

*^C^C$M=$(if,$(=,$(getvar,USERI2),1),setvar;USERI2;0;-attedit;;;;;\;v;r;$(getenv,Prefix)$(getvar,USERI1)$(getenv,Suffix);N;setvar;USERI2;1;setvar;USERI1;$(+,1,$(getvar,USERI1)),setenv;Prefix;\setenv;Suffix;\setvar;USERI1;\setvar;USERI2;1)

Помогите разобраться, как это работает? и работает ли вообще? и можно ли адаптировать второй макрос для нумерации текстовой переменной с суффиксом и префиксом ...БЕЗ LISPA....

[Bestoloch]

часто нужно проставить размер кратно какому-то числу (следующего вида 11х200=2200, так вот следующий макрос можно для этого использовать). Для этого нужно предварительно ввести modemacro, затем шаг, вызвать макрос, выбрать два объекта и размер проставится в таком виде.

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

Макрос:

^C^C_line;'cal;p1=nea;\\'cal;p2=per;\\;_erase;_last;;_dist;'cal;p1;\'cal;p2;\_dimaligned;'cal;p1;\'cal;p2;\текст;$m=$(rtos,$(/,$(*,$(getvar,distance),$(getvar,dimlfac)),$(getvar,modemacro)),2,0)х$m=$(getvar,modemacro)=<>;

[off]

Вводная часть. Чертежи для для печати сформированы в пространстве листа. Ширина чертежа 297, т.е. при печати на 610 бумаге помещается парочка одинаковых чертежей. Левый нижний угол чертежа в пространстве листа лежит в координатах 0,0. Чтобы дублировать полностью все что относится к оформлению (там помимо видового экрана, штампика и оформительских надписей используюся wipeout-ы) сделал простенький макрос, который выбирает все что имеется в пространстве листа и копирует от точки с координатами 0,0 к точке с координатами 0,297.
^C^C_ai_selall _copy 0,0 0,297

[Агент СмиТ]

Кто нибудь может подсказать макрос на кнопку отключения/включения "отображения изображения"?

[art_rrc]

Сообщение от Агент СмиТ Кто нибудь может подсказать макрос на кнопку отключения/включения "отображения изображения"?

Макрос не подскажу, но могу предложить альтернативный вариант. Можно добавить команду на панель быстрого доступа и перенести ее на 1й слот. Активировать последовательным нажатием alt,1.

[Vova]

Сообщение от Агент СмиТ Кто нибудь может подсказать макрос на кнопку отключения/включения "отображения изображения"?

Кто-нибудь понял вопрос? (кроме art_rrc)
А так-же ответ на него?

Сообщение от art_rrc Макрос не подскажу, но могу предложить альтернативный вариант. Можно добавить команду на панель быстрого доступа и перенести ее на 1й слот. Активировать последовательным нажатием alt,1.

[off]

Сообщение от Vova Кто-нибудь понял вопрос?

Предположу что автор выключает растр выставляя значение "Show image" в "No", а хочет чтобы была кнопочка которая бы при нажатии на нее делала это не заставляя открывать окно свойств. Думаю что макросом тут не отделаться, т.к. это свойство каждого рисунка в отдельности и нужно делать программу которая бы шерстила файл на предмет наличия в нем растровых картинок и меняла бы им свойства (в идеале в виде переключателя on/off).

Для себя данную задачу решил следующим образом - растр помещаю на специальный слой и двумя макросами его включаю/выключаю.
^C^C_-layer _on;АРХИВ_РАСТР;;
^C^C_-layer _of;АРХИВ_РАСТР;;

Таким же образом поступил и с внешней ссылкой
^C^C_-XREF;_R;Объект
^C^C_-XREF;_U;Объект
где Объект - имя ссылки.
Оба решения оправдывают себя только в том случае если вн.ссылка или набор растров в чертеже одна(ин).

[Агент СмиТ]

Vova

Сообщение от Vova Кто-нибудь понял вопрос? (кроме art_rrc) А так-же ответ на него?

Прошу прощения за недостаточно очевидную формулировку вопроса, off меня поправил

Сообщение от off Предположу что автор выключает растр выставляя значение "Show image" в "No"

ответ art_rrc я тоже не понял, т.к. не представляю где в автокаде находится "1й слот" и что это такое
off

Сообщение от off Думаю что макросом тут не отделаться, т.к. это свойство каждого рисунка в отдельности и нужно делать программу которая бы шерстила файл на предмет наличия в нем растровых картинок и меняла бы им свойства (в идеале в виде переключателя on/off).

Вся соль в том, что бы не плодить количество слоёв (в файле итак присутствуют пару десятков растров по слоям). Я помещаю несколько растров на один слой для однократной работы с ними (например оцифровки отдельных элементов) и поочерёдно каждый растр включаю и отключаю. Далее эти растры переношу в скрытый слой, либо вообще удаляю, посему нет необходимости "шерстить" весь файл и отключать все растры в нём.
Если реализовать выборочное отключение/включение растров ("Show image" в "No"/"Yes"), мне кажется было бы удобно для работы с "временной подложкой".

[VVA]

Сообщение от Агент СмиТ Кто нибудь может подсказать макрос на кнопку отключения/включения "отображения изображения"?

Сообщение от Vova Кто-нибудь понял вопрос?

Предположу что речь идет о рамке изображения (команда _imageframe)
Мой вариант (подсмотрено у Raster Design)
Макрос

Код:

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

^C^C^P(imageframe);^P

Код

Код:

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

(defun imageframe ( / FLAG DICT )
  ;;;Включает / отключает контур растра
  (if (setq DICT (dictsearch (namedobjdict) "ACAD_IMAGE_VARS"))
    (progn
      (and
        (setq FLAG (assoc 70 DICT))
        (entmod (subst (cons 70 (boole 6 (cdr FLAG) 1))
                       FLAG
                       DICT
                       )
                )
        (command "_.regen")
        )
      )
    (progn
      (command "_imageframe" 0)
      (while (> (getvar "CMDACTIVE") 0) (command))
      )
    )
 (princ)
)

[off]

Так у imageframe 3 значения 0,1,2. Можно же с помощью Diesel выражений сделать переключатель по значениям. Взяв за образец $M=$(if,$(eq,$(getvar,UCSFOLLOW),0),UCSFOLLOW 1,UCSFOLLOW 0). Или там какие-то подводные камни?

[Агент СмиТ]

VVA

Сообщение от VVA Предположу что речь идет о рамке изображения (команда _imageframe)

Дело здесь не в _imageframe, т.к. требуется скрыть не рамки растров, а их содержимое. Попробую пояснить с помощью принтскрина. Включены растры "основной подложки" и "временной подложки",показ верхнего и нижнего "временных растров" отключен, среднего включен (в свойствах "Показ изображения">"Да"). Далее см. пост 597.