[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_-insert;"block_name";_s;1;_r;0;\_rotate;_l;;(getvar "lastpoint");_R;(getvar "lastpoint");\\_explode;_l; Если но не масштабировать, то можно обойтись без _align. Добавлено: Последние посты прочитал после написания своего. АлексЮстасу, раз надо _align, лучше приложить файл и показать там какую точку вслед за какой этому "элайну" скармливать, не то можно долго гадать. Или хотя бы объяснить порядок действий при _aline: какие точки уже известны (как базовая точка вставки блока), а какие надо спросить у юзера. Добавлено 2: И еще может захотеться повтор команды по enter или правой кнопке мыши... Ведь может, правда? Надо сразу определиться.

Да, я уж осознал, что лучше сразу поподробнее было бы. На картинке сверху блок с нужным телом внутри, внизу тело вдоль 3D полилинии - то, что хотелось бы делать макросом.
Нужно вставить 3D тело (для простоты - цилиндр) с поворотом в пространстве вдоль известной 3D полилинии. Из панели тело можно вставить блоком с последующим расчленением - это уже мне давно kpblc объяснил.
Да, повтор может захотеться По крайней мере, может захотеться научиться его делать.

[skkkk]

Алекс Юстасу, лучше dwg, потому как неясно на скрине, где базовая точка вставки блока. Как я понимаю, Первая исходная точка для _align у нас - это точка вставки блока, она же его базовая точка, - она спрашивается у пользователя при вставке блока. Вторая исходная точка находится в плоскости цилиндра? Где именно? Ее можно, наверняка, рассчитать математически или геометрически, упразднив один клик. Первая целевая точка и Вторая целевая точка - похоже, что это две любые точки на 3D полилинии, т.е в идеале лучше у пользователя попросить не указать две точки, а выбрать полилинию? И, судя по всему, в опциях _align'a надо ответить Нет на вопрос Масштабировать...? .

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

Тогда лучше лисп, ну или макролисп, - это как больше по душе.

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

ИМХО надо искать тему "Программистам на заметку" - там были варианты программной вставки блока.

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

Сообщение от skkkk Как я понимаю, Первая исходная точка для _align у нас - это точка вставки блока, она же его базовая точка, - она спрашивается у пользователя при вставке блока. Вторая исходная точка находится в плоскости цилиндра? Где именно? Ее можно, наверняка, рассчитать математически или геометрически, упразднив один клик. Первая целевая точка и Вторая целевая точка - похоже, что это две любые точки на 3D полилинии, т.е в идеале лучше у пользователя попросить не указать две точки, а выбрать полилинию? И, судя по всему, в опциях _align'a надо ответить Нет на вопрос Масштабировать...? . Тогда лучше лисп, ну или макролисп, - это как больше по душе.

Больше по душе макросы, если бы я сам смог такие писать, и если эта задача макросами решается.
Действия видятся примерно так:
1. Указываю точку, туда вставляется блок.
2. Указываю точку блока, которую нужно поворачивать.
3. Указываю точку, в которую нужно повернуть.
4. Блок поворачивается относительно точки вставки.
5. Блок разбивается.
Указывать линию, вдоль которой нужно выравнивать блок, не общее решение, т.к. такой линии может не быть.
Повтор команды тоже под вопросом, т.к. большинство команд Автокада работает без него. Хотя, сам по себе повтор - очень экономит время-силы.

Про Ваш макрос можно невеже узнать?
^C^C_-insert;"block_name";_s;1;_r;0;\_rotate;_l;;(getvar "lastpoint");_R;(getvar "lastpoint");\\_explode;_l;
Что такое _s после имени блока, что такое _l после поворота и разбиения?
Про getvar боюсь даже спрашивать

[skkkk]

Ну раз

Сообщение от АлексЮстасу Больше по душе макросы...

и есть мечта

Сообщение от АлексЮстасу ...если бы я сам смог такие писать...

а также

Сообщение от АлексЮстасу ...повтор может захотеться...

то предлагаю остановится на макролиспе.
Тут несколько иной синтаксис, но разобраться несложно.
Определяем нашу новую функцию:

Код:

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

(defun C:InsertAlign ())

и просим ее обращаться в командную строку AutoCADa, своевременно подкармливая необходимыми аргументами (в нашем случае это, например, точки или объект - блок или строка "блок_цилиндр" ):

Код:

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

(defun C:InsertAlign () (command "_-INSERT" "блок_цилиндр" "_S" "1" "_R" "0" pause))

Сообщение от АлексЮстасу Что такое _s...?

это опция _Scale (Масштаб) команды "_-insert". Можно написать и по-русски "М", но тогда макрос не сработает у приятеля с английской версией. Опции англокоманд можно взять на autodesk.com в разделе Command Reference. Чуть-чуть заморочек - и даже китаец сможет использовать этом макросик
"1" - величина масштаба
_R - _rotate - поворот, он пока у нас нулевой ("0")
pause - это как в макросах слэш "\", то есть пауза программы, ожидание ответа пользователя
Так вот. Мы вставили блок. Теперь надо его "отЪэлайнить" . Продолжаем посылать челобитные в командную строку:

Код:

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

...."_ALIGN" "_L" "" (getvar "lastpoint")...

"_L" - это ответ _last (последний объект, над которым производились процедуры) на вопрос AutoCAD Выберите объекты:
"" - пустой ввод, enter, правая кнопка мыши
(getvar "lastpoint") - эта конструкция позволяет получить координаты последней фигурирующей точки, а мы помним, что определили ее в pause при выборе точки вставки блока. Ведь помним, да?
Добавив еще пару запросов точек со своими подсказками да эксплоудик, плюс непосредственный запуск созданной нами команды, получим что-то вроде

Код:

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

^C^C(defun C:InsertAlign () (command "_-INSERT" "блок_цилиндр" "_S" "1" "_R" "0" pause "_ALIGN" "_L" "" (getvar "LASTPOINT") (getvar "LASTPOINT") (getpoint "Указываю точку блока, которую нужно поворачивать:") (getpoint "Указываю точку, в которую нужно повернуть:") "" "_N" "_EXPLODE" "_L"));InsertAlign

Ставим на кнопку, тестируем. Должно повторяться по enter.

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

Сообщение от skkkk то предлагаю остановится на макролиспе. Тут несколько иной синтаксис, но разобраться несложно. ... Ставим на кнопку, тестируем. Должно повторяться по enter.

Спасибо, все срослось!
Удалось осилить и Ваше разбиение объекта, и Ваше запоминание последней точки и последнего элемента. Звездочка в начале - для самоповтора макроса.
И аж два варианта: для вставки 3D модели с ориентацией ее в пространстве вдоль ее оси, и для вставки 3D модели с ориентацией ее в пространстве вдоль произвольно указанной оси.
Макрос для вставки 3D модели с нужным разворотом в пространстве с использованием метода Хмурого - через назначение UCS:

Код:

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

*^C^C_ucs _za \\_-insert "блок_3D_модели" (getvar "lastpoint");;;;_ucs _w _explode;_l;

1. указываем первую точку направления (оси Z ucs),
2. указываем вторую точку направления (оси Z ucs), она же точка вставки,
3. уже развернутый блок сам разбивается,
4. возвращается мировая система координат.
А есть способ вернуть не мировую, а ту систему координат, которая была до запуска макроса?

Но для общего случая нужно все-таки ALIGN, т.к. 3D модели могут быть сделаны уже с каким-то наклоном:

Код:

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

*^C^C_-insert "блок_3D_модели";\;;;_align _l; (getvar "lastpoint") (getvar "lastpoint") \\;;_explode;_l;

1. Указываем точку вставки,
2. указываем точку, за которую нужно повернуть,
3. указываем точку, в которую нужно повернуть,
4. блок сам разбивается.

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

Заблудился в трех соснах, подскажите, плз!
Нужно выбрать блок из списка, а потом вызвать align. Пишу:

Код:

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

^C^C_insert;\_align _l;;

В 2006 работает, а в 2012 не вызывается окно вставки блоков, не появляется список доступных блоков.
Что неправильно?
Добавлено при проверке в 2008: этот макрос сработает в 2008 только после добавления точки с запятой перед _align!
Вставка точек перед командами ничего не меняет.

Если в моем русифицированном 2012 вместо _.insert в макросе написать ВСТАВИТЬ, то окно вставки блоков тоже не вызывается!
Если использовать макролисп

Код:

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

(command "_INSERT" ...

, то окно вставки блоков в 2012 тоже не вызывается.

Если в 2012 в макросе ничего, кроме

Код:

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

^C^C_insert

нет, то окно вставки блоков открывается. Но стоит добавить хоть что угодно, то _insert ждет ввода имени блока из командной строки. Что я не так делаю?

[Astartes]

Приветствую. Можно ли оформить в макрокоманду вот такую цепочку.
Например: в таблице в графе позиция, вставляю поле, поле ссылается на объект мультивыноска.
Вставить поле-категория полей объекты -объект - тип объекта - выбрать объект - содержимое.
Тоже самое для атрибута блока, только там всесто "содержимого", нужно выбрать "значение".
Т.е. после вставки поля, нажал кнопку макроса, выбрал объект-цель.

[skkkk]

Offtop: Astares, а можно поподробнее после "Приветствую"?
Это я к тому, что лучше бы чётче формулировать мысли, точнее сказать, алгоритм действий понимать и правильно объяснить. Можно и своими словами, но последовательно и обстоятельно, примерно так (жирным запросы в командной строке):

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

А во-первых, по-моему, это сделать макрокомандами нельзя. Я бы посоветовал обратиться к поиску по словам, допустим, поле таблица и в какой-либо подходящей теме задать лисповедам уже ОСОЗНАННЫЙ вопрос и получить ПРАВИЛЬНУЮ помощь или узнать причину, по которой таковая невозможна

Добавлено:
Offtop: Только вот "объект-цель" всё же придется выбирать сначала, а уж потом ячейку, в которую вставляется поле, ссылающееся на "объект-цель". Да и целью тут, как я понял из описания задачи, является ячейка, а вовсе не мультивыноска, которая является исходным объектом (в противоположность целевому). В процессе алгоритмизации (осмысления условия задачи) важно не путать понятия, которые почти всегда идут на поводу у логики и здравого смысла. "Почти" - потому что бывают глюки, а обходные пути с логикой бывают в сомнительных отношениях

[Никита Ремизов]

А кто-нибудь может подсказать как макросом листу задать один из форматов вирт. принтера "dwg to pdf.pc3"?

[Astartes]

Пишу в данной теме, так как проблема с макросом который взял отсюда.
^C^C^P_.-purge;_a;;_n;_.-purge;_a;;_n;_.-purge;_r;;_n;_.audit;_y;_.-scalelistedit;_r;_y;_e;_.-purge;_a;;_n;

Вводная: Работал на Акад 2011, русский, 32 бита, вин ХР. Макрос работал, все нормально.
Перешел на Акад 2012, русский, 64 бита вин 7. И макрос стал работать как то странно.
Провел эксперимент. (Лог эксперимента с пометками в приложении)
Открываю чистый чертеж. Делаю Аудит, все в порядке. Вставляю пару блоков с палитры инструментов, удаляю их, делаю Аудит, все в порядке. После этого сразу запускаю макрос, выдается сообщение "Обнаружены ошибки программы, рекомендуется сохранить чертеж и перезапустить программу". После этого делаю Аудит, он находит около 30 ошибок.
Т.е. получается макрос наделал ошибок в чертеже. Вот и не понятно как это так. Откуда ошибки в чертеже взялись, до запуска макроса Аудит ничего не находил.

УПД: В 2011 32 ХР, также после макроса появляются ошибки. Просто не выводится сообщение "Обнаружены ошибки программы, рекомендуется сохранить чертеж и перезапустить программу".
Итак резюме: Если все исправить аудитом, после него будет 0 ошибок. Запускаем макрос, после него аудит, эти ошибки опять появляются, так можно до бесконечности.


КРЫС помоги, я у тебя этот макрос взял. ))

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

Возможности скачать и проверить файл нет, поэтому "навскидку": в блоках есть атрибуты, для которых слой в описании блока не "0"

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

Сообщение от Astartes Пишу в данной теме, так как проблема с макросом который взял отсюда. ^C^C^P_.-purge;_a;;_n;_.-purge;_a;;_n;_.-purge;_r;;_n;_.audit;_y;_.-scalelistedit;_r;_y;_e;_.-purge;_a;;_n; Вводная: Работал на Акад 2011, русский, 32 бита, вин ХР. Макрос работал, все нормально. Перешел на Акад 2012, русский, 64 бита вин 7. И макрос стал работать как то странно. Провел эксперимент. (Лог эксперимента с пометками в приложении) Открываю чистый чертеж. Делаю Аудит, все в порядке. Вставляю пару блоков с палитры инструментов, удаляю их, делаю Аудит, все в порядке. После этого сразу запускаю макрос, выдается сообщение "Обнаружены ошибки программы, рекомендуется сохранить чертеж и перезапустить программу". После этого делаю Аудит, он находит около 30 ошибок. Т.е. получается макрос наделал ошибок в чертеже. Вот и не понятно как это так. Откуда ошибки в чертеже взялись, до запуска макроса Аудит ничего не находил. УПД: В 2011 32 ХР, также после макроса появляются ошибки. Просто не выводится сообщение "Обнаружены ошибки программы, рекомендуется сохранить чертеж и перезапустить программу". Итак резюме: Если все исправить аудитом, после него будет 0 ошибок. Запускаем макрос, после него аудит, эти ошибки опять появляются, так можно до бесконечности. КРЫС помоги, я у тебя этот макрос взял. ))

Я делаю проверки-чистки файлов своим макросом: removeallproxy;_y;_audit;_y
И с недавних пор (последний месяц - не больше) после моего макроса в моем Акад 2012, русский, 64 бита вин 7 стало появляться такое же окно об ошибках программы.
Общего в наших макросах "audit;_y". Что за засада?
Радует, что Автокад при этом не падает.

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

Ну как я и предполагал - атрибуты лежат на слоях, отличных от "0". об этой ошибке достаточно давно Андрей Бушман где-то говорил.
Выход: отредактировать блоки так, чтобы атрибуты лежали на слое "0". Или мириться с подобными сообщениями.

[Astartes]

Кулик Алексей aka kpblc, Так, а почему стандартный Аудит ничего плохого не видит в атрибуте на слое "0", а макрос видит. Т.е. выбор либо пользоваться стандартным Аудит или пользоваться макросом, но атрибуты переводить на слой "0"?.
Второе, есть блоки без атрибутов, а таже самая история. Завтра на работу приду, выложу файл.

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

Обрати внимание: ошибки аудит выдает сразу после _.purge. Значит, ошибка в алгоритме работы _.purge. Можно поиграться с порядком очистки: сначала, например, блоки, потом слои, а потом уже все остальное + аудит.

[Do$]

Проведите Audit вручную, с опцией "не исправлять ошибки" и посмотрите по логу командной строки что за ошибки.
У меня было такое в автокаде 2010, при проверке чертежа выскакивала именно такое окно с ошибкой. Посмотрел по логу Audita - не нравилась переменная DIMPOST.
После смены текущего размерного стиля ошибка пропала.

[Astartes]

Do$, Вот сделал по вашему. Какаято проблема со слоями. Наверное это и есть о чем Алексей говорил. Атрибуты не на "0".

Команда: _AUDIT
Исправить все обнаруженные ошибки? [Да/Нет] <Н>:



Проверка заголовка


Проверка таблиц


Проверка объектов, проход 1

Проход 1: проверено объектов: 300
Проверка объектов, проход 2

Проход 2: проверено объектов: 200 AcDb2dVertex(2A2) Неверный слой
eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2A3) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2A4) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2A5) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2AF) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B0) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B1) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B4) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B5) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B6) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2B7) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2C3) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2C4) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2C5) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2C6) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D0) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D1) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D2) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D5) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D6) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D7) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDb2dVertex(2D8) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbBlockReference(30F)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbBlockReference(30F) не восстановлен.
AcDbAttribute(310) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(310) не восстановлен.
AcDbAttribute(311) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(311) не восстановлен.
AcDbAttribute(312) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(312) не восстановлен.
AcDbAttribute(313) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(313) не восстановлен.
AcDbAttribute(318) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(318) не восстановлен.
AcDbSequenceEnd(31D)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbSequenceEnd(31D) не восстановлен.
AcDbBlockReference(31E)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbBlockReference(31E) не восстановлен.
Проход 2: проверено объектов: 300 AcDbAttribute(33D) Неверный слой
eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(33D) не восстановлен.
AcDbAttribute(33E) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(33E) не восстановлен.
AcDbAttribute(33F) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(33F) не восстановлен.
AcDbSequenceEnd(340)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbSequenceEnd(340) не восстановлен.
AcDbBlockReference(341)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbBlockReference(341) не восстановлен.
AcDbAttribute(342) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(342) не восстановлен.
AcDbSequenceEnd(343)
Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbSequenceEnd(343) не восстановлен.
AcDbAttribute(34B) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(34B) не восстановлен.
AcDbAttribute(34C) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(34C) не восстановлен.
AcDbAttribute(34D) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(34D) не восстановлен.
AcDbAttribute(34E) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(34E) не восстановлен.
AcDbAttribute(353) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(353) не восстановлен.
AcDbAttribute(378) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(378) не восстановлен.
AcDbAttribute(379) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(379) не восстановлен.
AcDbAttribute(37A) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(37A) не восстановлен.
AcDbAttribute(37D) Неверный слой eWasErased $AUDIT-BAD-LAYER
AcDbAttribute(37D) не восстановлен.

Проверка блоков


Проверено блоков: 1

Всего найдено ошибок: 46, исправлено: 0

[Astartes]

Приветствую. Вот http://forum.dwg.ru/showpost.php?p=397211&postcount=227 взял хороший лиспик. Удлинить/укоротить линию в две стороны одновременно. Вот только работает лисп в системе координат World. Можно ли сделать так чтобы лисп работал в любой системе координат?

[hans-zemmer]

Помогите. Нужна макрокоманда, которая построит фигуру по контурам (по аналогии штриховки), и сделает ее offset влево/вправо/вверх - 15мм, вниз - 12мм.
Спасибо.