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

Сообщение от Jonas Для этого соорудил макрос:

это не макрос. это лиспина, причем весьма корявая! Что мешало написать хотя бы так:

Код:

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

 (defun c:delt ( / *error* es1 es2 )
  (defun *error* (msg) (princ))
  (if (and (setq es1 (car (entsel "\nВыберите тело: ")))
           (setq es2 (car (entsel "\nВыберите тело для вычитания: ")))
    )
    (progn
      (setvar 'cmdecho 0)
      (command "_copy" es2 "" '(0 0) '(0 0))
      (command "_subtract" es1 "" es2 "")
      (command "_solidedit" "_body" "_separate" es1 "" "" )
      (command "_erase" pause )
      (setvar 'cmdecho 1)
    )
  )
  (princ)
)

[Jonas]

Сообщение от gomer это не макрос. это лиспина, причем весьма корявая! Что мешало написать хотя бы так:

Мешало отсутствие знаний.

[skkkk]

В 2008-м автокаде работал макрос

Код:

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

^C^C_qsave;_close

А 2011-й просит сохранить изменения еще раз. При больших размерах это небыстро. Причем в 2011-м если файл открыть и сразу закрыть, диалога "Сохранить изменения?.." не возникает. Если открыть, сохранить и закрыть - появляется, гад. Может, кого-то это тоже напрягло, и он нашел решение, как научить КАД не задавать лишних вопросов?

[seregabs]

Сообщение от Volv Всем кто делал подсказки спасибо. Отдельное спасибо AlphaGeo. В итоге вышло сделать кнопку, которая отвечает за поворот копии елемента с опорным углом Код: [Выделить все] ^C^C(defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause));kr

Отличная кнопка, спасибо! А возможно ли ее зациклить, чтобы, накопировав n-ое кол-во элементов, выходить по Esc ?

[skkkk]

Так что ли?

Код:

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

^C^C(defun c:kr () (while t (setq ss (entsel)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause pause)));kr

[Вовочка]

"*" Звездочку спереди поставь

[seregabs]

Сообщение от skkkk Так что ли? Код: [Выделить все] ^C^C(defun c:kr () (while t (setq ss (entsel)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause pause)));kr

Этот вариант после первого копирования запрашивает выбор объекта для следующего копирования, после чего уже для него надо ввести базовую точку, и угол. Т.е. по сути заменяет после первого копирования нажатие enter (повтор команды вобщем).

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




Добавление звездочки в самом (если я правильно понимаю) начале как исходного так и предложенного чуть выше варианта приводит к прокручиванию запросов в командной строке.

[skkkk]

Тогда так, если нужно вертеть копию одного объекта (минуется один enter - подтверждение набора):

Код:

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

^C^C(defun c:kr () (setq ss (entsel)) (setq pt (getpoint "Базовая точка:")) (while t (command "_rotate" ss "" pt "_c" "_r" (getvar "lastpoint") pause pause)));kr

или так, если копии нескольких объектов (множественный выбор):

Код:

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

^C^C(defun c:kr () (setq ss (ssget)) (setq pt (getpoint "Базовая точка:")) (while t (command "_rotate" ss "" pt "_c" "_r" (getvar "lastpoint") pause pause)));kr

Если опять-таки я правильно понял.

[seregabs]

Сообщение от skkkk или так, если копии нескольких объектов (множественный выбор):

Работает исправно)
Сперва хотел написать, что в идеале бы еще и первую точку опорного угла использовать заданную при первой операции. А потом подумал, что, быть может, так как сейчас даже и лучше...
Спасибо!

[skkkk]

Сообщение от seregabs первую точку опорного угла использовать заданную при первой операции

Можно и так:

Код:

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

^C^C(defun c:kr () (setq ss (ssget)) (setq pt1 (getpoint "Базовая точка:")) (setq pt2 (getpoint "Опорный угол:")) (while t (command "_rotate" ss "" pt1 "_c" "_r" (getvar "lastpoint") pt2 pause)));kr

[seregabs]

Тоже отлично! Спасибо!

[roaa]

Сообщение от skkkk В 2008-м автокаде работал макрос Код: [Выделить все] ^C^C_qsave;_close А 2011-й просит сохранить изменения еще раз. При больших размерах это небыстро. Причем в 2011-м если файл открыть и сразу закрыть, диалога "Сохранить изменения?.." не возникает. Если открыть, сохранить и закрыть - появляется, гад. Может, кого-то это тоже напрягло, и он нашел решение, как научить КАД не задавать лишних вопросов?

^C^C(command "_qsave")(command "_quit" "_Y")
или
^C^C_qsave;_quit;_Y

[skkkk]

Сообщение от roaa ^C^C(command "_qsave")(command "_quit" "_Y") или ^C^C_qsave;_quit;_Y

Думаю, неужели прокатит в 11-м? Закроет из командной строки диалог "Сохранить изменения...?" Не хочется FILEDIA обнулять...
Не прокатило.
Ладно, обнуляю. И тут не прокатывает!!! Диалог выскакивает всё равно.
Видимо новая опция в целях увеличения бдительности безопасности проделанной работы
Но и в 2008-м ^C^C_qsave;_close; никогда не подводили

[roaa]

Сообщение от skkkk Думаю, неужели прокатит в 11-м? Закроет из командной строки диалог "Сохранить изменения...?" Не хочется FILEDIA обнулять...

Для кнопки ^C^C(command "_qsave")(command "_quit" "_Y")пробел
^C^C_qsave;_quit;_Y;
опробывал - работает

[skkkk]

В 2011-м? Странно... У меня не захотел. После выполнения макроса спрашивает опять "Сохранить...?" И при этом, quit закрывает все открытые файлы в текущем окне, а так не надо. Но с close ситуация аналогична.

[roaa]

Сообщение от skkkk Странно... У меня не захотел. После выполнения макроса спрашивает опять "Сохранить...?"

попробуйте так
(command "_qsave")(command "_close" "_n")

[skkkk]

roaa, действительно, сработало! Даже при FILEDIA= 1/ Спасибо. Сам бы не додумался никогда. В прежних версиях такие фокусы не прокатывали...
Правда сделал так:

Код:

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

^C^C(command "_qsave")(command "_close" "_y")

Потому как при "_n" выводит еще один запрос "Действительно хотите ли отказаться...?", правда только в командной строке. Но при "_y", хоть и сохраняет повторно, но второй раз очень быстро, - зато надежнее. Как ни странно, без макроса два сохранения гораздо дольше (почти в два раза)
Добавлено: А первый раз пробовал только без "command" , поэтому и не получилось. Слишком отчаялся, видимо, при неудаче первого варианта

[starr74]

Подскажите, можно ли в AutoCad 2006 без установленного Express сделать такую команду Toggle Frames ^C^C_tframes, скрытие контура маскировки? если возможно то напишите макрос. заранее спасибо

[TararykovDG]

Сообщение от starr74 Подскажите, можно ли в AutoCad 2006 без установленного Express сделать такую команду Toggle Frames ^C^C_tframes, скрытие контура маскировки? если возможно то напишите макрос. заранее спасибо

Если правильно понял вопрос, то попробуй так

Код:

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

^C^C_.wipeout;_f _On; - включить контур маскировки
^C^C_.wipeout;_f _Off; - выключить контур маскировки

[ытя]

Удобнее http://forum.dwg.ru/showpost.php?p=200705&postcount=13