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

Offtop: И только? Ну я, в общем, так и думал. Это же DIMZINчик! Действительно, ты прав, добавил в #364. Хотя, может, Antonu_Br так и не надо... ведь, по умолчанию DIMZIN имеет значение 8, то есть, судя по всему, у него нулей-то и нет, как и у меня не было... Только вот зачем такой большой код? Anton_Br же просил макрос по аналогии с _aidimprec, а эти диалоги уже и превращают макрос в лисп

[gomer]

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

[skkkk]

Offtop: Дело каждого... А если макрос содержит, например, и команды и опции, но не определен функцией defun, то его не повторить по правой кнопке или Enter'у, что часто неудобно. А я это так, ради интереса тренируюсь, без претензии на награды и почет. Это, к сведению - мой первый серьезный макролисп. Учусь. Практикуюсь. Здорово же, когда от этого еще и польза кому-то есть

[gomer]

Сообщение от skkkk А если макрос содержит, например, и команды и опции, но не определен функцией defun, то его не повторить по правой кнопке или Enter'у, что часто неудобно.

В чем проблема-то? Лиспу подцепить к файлу настройки или вставить в *.mnl или загружать из библиотеки... или на худой конец в портфель отправить, а определять как ^c^cCHDIMRND

Макрос по определению служит для вызова нескольких команд с опциями

[gyani]

Здравствуйте, подскажите

имея точку полученную ^C^C(setq pt1 (getpoint)); как pt1 сместить по х?

[skkkk]

Сместить точку как объект? или получить новую х-координату этой точки? Ничего не ясно из постановки вопроса. Лучше сразу подробней и толково объясни, чего нужно добиться от макроса. А переменная pt1 из твоего примера - это список, содержащий х- и y-координаты точки

[Do$]

Сообщение от skkkk Здравствуйте, подскажите имея точку полученную ^C^C(setq pt1 (getpoint)); как pt1 сместить по х?

Как-то так наверное:

Код:

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

(mapcar '+ pt1 '(<тут вписать смещение по X> <тут вписать смещение по Y> <тут вписать смещение по Z>))
;;Например: (mapcar '+ pt1 '(1.0 0.0 0.0))

[gyani]

спасибо сделал так
^C^C(setq pt1 (getpoint));\(setq pt2 (mapcar '+ pt1 '(6.0 0.0 0.0)));_break;!A;!pt1;_non;!pt2;

Вопрос, можно ли добавить подсказку при вводе mtext? чтобы вместо mtext было что то полезное? как например при рисоавнии линии пишется укажите первую точку.

[Volv]

Привет. Народ, подскажите пож как прописать макрос на поворот копии обьекта с опорным углом. Я порылся в этой темке и нашол макрос на поворот с опорным углом -

Код:

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

(defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_r" (getvar "lastpoint") pause));kr.

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

Сообщение от Volv Привет. Народ, подскажите пож как прописать макрос на поворот копии обьекта с опорным углом. Я порылся в этой темке и нашол макрос на поворот с опорным углом - Код: [Выделить все] (defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_r" (getvar "lastpoint") pause));kr. Пытался сам его ковырять, дабы реализовать поворт копии с опорным углом, но у меня ничего не выходит... Зарание спасибо...

Код:

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

(defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause));kr.

?

[Volv]

Сообщение от AlphaGeo Код: [Выделить все] (defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause));kr. ?

что-то подобное пытался делать, но выдает такого рода сообщение

Код:

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

Command: (defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_c" 
"_r" (getvar "lastpoint") pause))
C:KR
Command:     kr. Unknown command "KR.".  Press F1 for help.

Volv, а ты попробуй сохранить эту строку в файл *.lsp и загрузить в AutoCAD, как приложение. Подробней можно прочитать здесь: Как использовать лисп, опубликованный на форуме. В таком случае можно будет и в автозагрузку этот макрос добавить.

Добавлено:
Можно еще попробовать упрощенный вариант (не тестировал) именно в качестве макроса. а не приложения.

Код:

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

^C^C_rotate;\\_c;_r;@;\

[Volv]

Сообщение от AlphaGeo Volv, а ты попробуй сохранить эту строку в файл *.lsp и загрузить в AutoCAD, как приложение. Подробней можно прочитать здесь: Как использовать лисп, опубликованный на форуме. В таком случае можно будет и в автозагрузку этот макрос добавить. Добавлено: Можно еще попробовать упрощенный вариант (не тестировал) именно в качестве макроса. а не приложения. Код: [Выделить все] ^C^C_rotate;\\_c;_r;@;\

указаный упрощенный макрос не работает..., но спасибо за подсказку. Что касается лиспа то нада сесть разобратся.

[Vova]

*^C^CROTATE;\\;\90
Здесь угол задается путем изменения макроса (который удобнее расположить на палете) и предназначен для множественного использования подряд. Выбор объектов обязательно и только двумя кликами (можно рамкой).

[Do$]

Сообщение от Volv что-то подобное пытался делать, но выдает такого рода сообщение Код: [Выделить все] Command: (defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_c" "_r" (getvar "lastpoint") pause)) C:KR Command: kr. Unknown command "KR.". Press F1 for help.

Тоже когда-то сперва сделал макрос, потом написал такой лисп:

Код:

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

(defun c:rotateplus (/ *adoc* ss bpt opt nopt var_lst rec_var_lst)
  (vl-load-com)
  (vla-StartUndoMark (setq *adoc* (vla-get-ActiveDocument (vlax-get-acad-object))))
  (vl-catch-all-apply
    (function (lambda ()
		(sssetfirst nil (setq ss (ssget)))
		(setq bpt  (getpoint "\nBase point:")
		      opt  (getpoint bpt "\nOrientation point:")
		      nopt (getpoint bpt "\nNew position for orientation point:")
		) ;_ end of setq
	      ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of vl-catch-all-apply
  (setq	rec_var_lst
	 (mapcar (function getvar)
		 (setq var_lst (list "osmode" "cmdecho"))
	 ) ;_ end of mapcar
  ) ;_ end of setq
  (mapcar (function setvar) var_lst (list 0 0))
  (sssetfirst nil nil)
  (vl-cmdf "_.rotate"
	   ss
	   ""
	   bpt
	   "_r"
	   bpt
	   opt
	   nopt
  ) ;_ end of vl-cmdf
  (mapcar (function setvar) var_lst rec_var_lst)
  (vla-EndUndoMark *adoc*)
  (princ)
) ;_ end of defun

[Volv]

Do$, в твоем посте приведено два варианта лиспа на поворот копии с рефрентной ссылкой, первый, написаный AlphaGeo, будет как бы попроще да и его работоспособность я уже проверил (только его нада постоянно подгружать), что касается твоего предложения, то его я не тестил, вот только мне не охота юзать лиспы, хочу юзать команду при помощи макроса....

[Do$]

Сообщение от Volv первый, написаный AlphaGeo, будет как бы попроще

Испорчен я напрочь этим форумом - не могу просто писать, обязательно всякие проверки, подстраховки и прочие излишества применяю

Сообщение от Volv вот только мне не охота юзать лиспы, хочу юзать команду при помощи макроса....

Хозяин - барин

[Volv]

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

[Лиспер]

В.Свет "Язык макрокоманд AutoCAD и написание макросов". По-моему, так. Была в Download.

[Volv]

Всем кто делал подсказки спасибо. Отдельное спасибо AlphaGeo.
В итоге вышло сделать кнопку, которая отвечает за поворот копии елемента с опорным углом

Код:

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

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