[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

[Vladimir_Sergeevich]

^C^C^P(defun c:atback () (vl-cmdf "_ai_draworder" "_back") (princ));atback;
конструкция проверена не единожды. ругается именно vl-cmdf (пробовал и с command) на "_ai_draworder... ругается не только в тексте макроса, но и из ком строки.

[Profan]

А если так попробовать:

Код:

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

^C^C^P(defun c:atback () (ai_draworder "_back") (princ));atback;

[Vladimir_Sergeevich]

как ни странно работает... неужели ai_draworder - лисповская функция?..

[Profan]

Конечно. Все команды с префиксом ai - лисповские.
Существует специальный файл ai_utils.lsp.

[migel123]

Друзья, други, товарищи, коллеги, добрые люди, жители форума и все все все кто слышит меня даже из других галактек!!!!
Перейду сразу к делу! В автокаде, в режиме орто линия не ведется параллельно точки привязки, а непосредственно привязывается к этой точке если щелкать по этой точке. Я чертил в архикаде, там иначе, в компасе тоже так, как мне надо, (хотя компас мне не нравится). может надо прописать макрос или изменить настройки. Я прочитал переписку данной темы, нашел много мне нужного, но это последний вопрос который не дает мне покоя. Привожу схему:

http://files.mail.ru/PT1AWE?t=1
Не ясно почему в режиме орто линия как то может пойти под любым углом, если щелкать в нужную точку привязки. Програмный вариант типа попасть в точку привязки и немного отойти от нее меня не устраивает, это тормозит темп работы.
Заранее извиняюсь если задал глупый вопрос и заранее благодарю за проявленное понимание и помощь.

[maratovich]

Есть такая засада в каде, тоже сначала (после компаса) не понимал, потом привык. Привязки срабатывают и ставят конец отрезка к ближайшей точке.

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

Сообщение от maratovich Привязки срабатывают и ставят конец отрезка к ближайшей точке.

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

[forMA]

При построении такой "строго" ортогональной прямой выключать привязки нафиг вручную или макросом.

[Cfytrr]

Сообщение от Кулик Алексей aka kpblc Лично у меня привязка "ближайшая" срабатывает тогда и только тогда, когда мне это надо

Не поделитесь настройками?

[skkkk]

Offtop:

Сообщение от migel123 Друзья, други, товарищи, коллеги, добрые люди, жители форума и все все все кто слышит меня даже из других галактек!!!! Перейду сразу к делу!

Хорошо что сразу к делу.... А то предчувствуется пятый том "Войны и мира"

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

Сообщение от Cfytrr Не поделитесь настройками?

Это какими? osmode (лично мои предпочтения!) = 503; ну и плюс временное включение нужных привязок через Ctrl+Правый клик

[Astartes]

Граждане, подскажете. Можно ли сделать макрокомаду типа. Быстрый выбор - мультивыноска - содержимое - поиск по глобальным значениям - [ввести нужное значение]?

[Do$]

Быстрый выбор не повесить на макрос, т.к. эта команда только через диалоговое окно работает. Можно с помощью лиспа выкрутиться, если не автокад не LT.

[Astartes]

Автокад полный 2011, но лиспа не знаю. ((

[skkkk]

Знаю только, как без диалогового окна выбрать все мультивыноски (тут, на форуме научили когда-то)

Код:

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

^C^C(defun mfunc(/ selset) (if (setq selset (ssget '((0 . "MULTILEADER")))) (sssetfirst selset selset)));(mfunc);

Как дальше поступить с этим набором - не знаю. И не совсем ясно, что значит "по глобальным значениям"? А после поиска что делать с этой выноской? Выделить? Зумировать? Править?

[Astartes]

skkkk, Я мультивыносками проставляю позиции. Иногда требуется выделять диапазон, допустим с 31 позиции до 79. Это делается так. Быстрый выбор-мультивыноска-содержимое-поиск по глобальным символам - [3-7][0-9]. То что делать дальше с выделенными мультивыносками это моя печаль. ))) Смысл в том что нужно выделять несколько диапазонов плюс постоянно ошибаюсь в значениях, приходится каждый раз проделывать всю цепочку выбора заново.

[skkkk]

Снова не понял про глобальные символы

Сообщение от Astartes [3-7][0-9]

Лучше бы файл с примером приложить во избежание бесполезных действий - так обычно быстрее дело идет

[TararykovDG]

Сообщение от Astartes skkkk, Я мультивыносками проставляю позиции. Иногда требуется выделять диапазон, допустим с 31 позиции до 79. Это делается так. Быстрый выбор-мультивыноска-содержимое-поиск по глобальным символам - [3-7][0-9]. То что делать дальше с выделенными мультивыносками это моя печаль. ))) Смысл в том что нужно выделять несколько диапазонов плюс постоянно ошибаюсь в значениях, приходится каждый раз проделывать всю цепочку выбора заново.

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

Код:

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

 
(defun c:qsel()
  (vl-load-com)
  ((lambda(range)
     (if (not (vl-catch-all-error-p range))
       (sssetfirst nil (ssget "_X" (list (cons 0 "MULTILEADER") (cons 304 range))))
       )
     )
    (vl-catch-all-apply 'getstring
      (list t "\nВведите диапазон в формате [начало-конец]: ")
      )
    )
  (princ)
  ); end c:qsel

P.S. В ответ на запрос "Введите диапазон в формате [начало-конец]:" можно будет ввести, наример:
[1-10]
или
[2-6],[12-45]
и т.д.

[Astartes]

TararykovDG, Спасибо то что нужно.

skkkk, "Поиск по глобальным символам" это оператор в окне быстрого выбора, там же где, =, <, >, <>

[Jonas]

При моделировании часто нужно выполнить вычитание при условии сохранения вычитаемого тела.
Для этого соорудил макрос:

Код:

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

 (defun c:delt (/ es1 es2 p1)
  (setq es1(entsel "Выберите тело: ")
        es2(entsel "Выберите тело для вычитания: ")
         p1(getpoint "Укажите любую точку:"))
  (command "_copy" (car es2) "" p1 p1)
    (command "_subtract" (car es1) "" (car es2) "")
  (command "_solidedit" "_body" "_separate" (car es1) "" "" )
  (command "_erase" pause )
  (princ)
  (princ)
)

Порядок работы:
- указываем тело для вычитания,
- указываем вычитаемое тело,
- указываем любую точку,
на случай если вычитаемое тело полое (труба), выполняется разделение и включается команда удаление,
- указываем удаляемые (не нужные) части.