| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Мои макрокоманды

Мои макрокоманды

Ответ
Поиск в этой теме
Непрочитано 19.05.2008, 15:20 1 |
Мои макрокоманды
zenon
 
Остекляем!!! Алюминим!!!
 
Москва
Регистрация: 21.02.2005
Сообщений: 3,825

Предлагаю в данной теме выкладывать используемые макрокоманды.
Выкладывать прошу с описанием, что данная макрокоманда выполняет и как. Если можно, то и рисунки к кнопкам соотвественно.

Выкладываю 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

__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
Просмотров: 448754
 
Непрочитано 28.03.2015, 22:28
#741
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


насколько часто помогает, настолько часто и раздражает...решил на кнопку мыши повесить ))
неа, не работает
Konstruktiv54 вне форума  
 
Непрочитано 28.03.2015, 22:59
#742
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


На кнопку мыши? А лиспы поддерживаются (т.е. AutoCAD не LT)? Если да, то можно поставить такое:
Код:
[Выделить все]
^C^C^P(defun c:qp1() (setvar "qpmode" (1- (getvar "qpmode"))));qp1;
Или, второй вариант, более интересный:
Код:
[Выделить все]
^C^C^P(defun c:qp1() (setvar "qpmode" (* -1 (getvar "qpmode"))));qp1;
Ну и третий, совсем устойчивый:
Код:
[Выделить все]
^C^C^P(defun c:qp1 () (setvar "qpmode" (if (= (getvar "qpmode") 0) 1 (* -1 (getvar "qpmode")))));qp1;
Если же ACAD LT, можно попытаться так:
Код:
[Выделить все]
^C^Cqpmode;$M=$(*,-1,$(getvar,qpmode));
P.S. Честно говоря, я DIESEL уже капитально подзабыл...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 28.03.2015, 23:10
#743
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Все работает, спасибо )
Ну и вишенкой на торте было бы закрывание открытого окна быстрых свойств, при выключении QPMODE!
Konstruktiv54 вне форума  
 
Непрочитано 29.03.2015, 00:22
#744
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


http://forum.dwg.ru/showthread.php?t=66490
gomer вне форума  
 
Непрочитано 29.03.2015, 07:26
#745
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


что-то я затупил...при выборе другого объекта, или выполнении какой-нибудь команды быстрые свойства сами закрываются
Konstruktiv54 вне форума  
 
Непрочитано 30.03.2015, 06:44
#746
RNB

Проектирование мостов
 
Регистрация: 29.01.2014
Новосибирск
Сообщений: 433


Цитата:
Сообщение от Konstruktiv54 Посмотреть сообщение
как сделать переключатель QPMODE на кнопку (если 0, то при нажатии ставить 1, и наоборот)?
Стесняюсь спросить, зачем? Кнопочка же есть в нижней панели?
RNB вне форума  
 
Непрочитано 30.03.2015, 07:15
#747
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


я не помню когда я последний раз нажимал кнопочки на панельках )) у меня все команды на клавиатуре...ну или на мышке, которая в прочем тоже, с клавиатурой ))
Konstruktiv54 вне форума  
 
Непрочитано 30.03.2015, 07:26
#748
RNB

Проектирование мостов
 
Регистрация: 29.01.2014
Новосибирск
Сообщений: 433


Цитата:
Сообщение от RNB Посмотреть сообщение
Стесняюсь спросить, зачем? Кнопочка же есть в нижней панели?
Да что-то форум не полностью прогрузился и я увидел только начало диалога. У меня у самого всё на мышке, сейчас уже не представляю, как по другому жить)
RNB вне форума  
 
Непрочитано 30.03.2015, 08:33
#749
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Возвращаясь к теме...все таки не очень удобно что быстрые свойства не сразу закрываются при отключении QPMODE, про какие настройки говорил Гомер, я не понял...я установил эту панельку, поигрался, ничего подходящего не нашел.
Konstruktiv54 вне форума  
 
Непрочитано 30.03.2015, 16:34
#750
Cfytrr

Балка на балку, кирпич на кирпич...
 
Регистрация: 09.10.2007
Питер
Сообщений: 4,811
Отправить сообщение для Cfytrr с помощью Skype™


Товарищи, подскажите, можно ли создать такой макрос чтоб при вызове команды _dist переменная DYNMODE принимала значение 2, а после завершения команды снова обнулялась?
__________________
...переменная FILEDIA создана для привлечения пользователей к форумам.
Cfytrr вне форума  
 
Непрочитано 30.03.2015, 16:44
1 | #751
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Offtop: Можно. Создавай
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.03.2015, 17:06
#752
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Алексей, а мой вопрос прокомментируешь?
Konstruktiv54 вне форума  
 
Непрочитано 30.03.2015, 17:12
1 | #753
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Konstruktiv54, ну не люблю я макросы, я лиспы предпочитаю писать и использовать. Это для меня проще, быстрее и устойчивее.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.03.2015, 18:06
#754
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Offtop: я еще не освоил ни лисп, ни макросы...вот только только с VBA разбираюсь ))
а на лиспе можно принудительно закрыть это чертово окошко? )
Konstruktiv54 вне форума  
 
Непрочитано 30.03.2015, 21:07
1 | #755
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


ACAD2014, только что проверил код переключения:
Код:
[Выделить все]
 (vl-load-com)
(defun qpo (/)
  (setvar "qpmode" (* -1 (getvar "qpmode")))
  ) ;_ end of defun
(vlax-add-cmd "qpo" 'qpo "qpo" 1)
Окно быстрых свойств закрывается моментально.
То же, но с подсветкой последнего выбранного элемента:
Код:
[Выделить все]
 (vl-load-com)
(defun qpo (/ ss)
  (setvar "qpmode" (* -1 (getvar "qpmode")))
  (if (setq ss (ssget "_P"))
    (sssetfirst ss ss)
    ) ;_ end of if
  ) ;_ end of defun
(vlax-add-cmd "qpo" 'qpo "qpo" 1)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 09.04.2015, 17:03
#756
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Столкнулся с проблемой, что этот лисп работает только в последнем открытом документе. Альт+табом перекючаешься на другой файл, и выпадает ошибка что-то там command mismatch.
Вернулся к коду из 742, только добавил в него деселект. все заработало так как надо ))
Код:
[Выделить все]
^C^C^P(defun c:qp1 () (setvar "qpmode" (if (= (getvar "qpmode") 0) 1 (* -1 (getvar "qpmode")(setvar "pickfirst" 0)))));qp1;
update
что-то я хрень какую-от написал )) хотя сам макрос и работает!
нашел гдд-то на форуме, что setvar "pickfirst" 0 отменяет селекцию и применил, но с этим "pickfirst" 0 работать вообще не удобно!
подскажите как отменить селекцию элементов по окончании функции.
Ну вроде бы выкрутился вот так...не знаю в чем смысл но работает как надо )
Код:
[Выделить все]
^C^C^P(defun c:qp1 () (setvar "qpmode" (if (= (getvar "qpmode") 0) 1 (* -1 (getvar "qpmode")(setvar "pickfirst" 0)(setvar "pickfirst" 1)))));qp1;

Последний раз редактировалось Konstruktiv54, 09.04.2015 в 20:46.
Konstruktiv54 вне форума  
 
Непрочитано 19.12.2015, 10:49
#757
vik74


 
Регистрация: 25.10.2008
Сообщений: 91


Цитата:
Сообщение от VVA Посмотреть сообщение
Вместо X вписать
0 - 2002 Автокад
6 - 2004,2005,2006 Автокад
7 - 2007, 2008, 2009 Автокад
Вариант для 2004,2005 и 2006 Автокада
А если мне надо загрузить ExplodeProxy2010x64, то как надо написать?
vik74 вне форума  
 
Непрочитано 18.01.2016, 14:16 Zenon
#758
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 810
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Объект Xline строится по по произвольному отрезку/полилинии, с поворотом в указанной точке на произвольный угол (не работает по примитивам блока и arx объектов сторонних навесок на автокад).

В ком строку RUS/ENG
Прямая Угол Б
_XLINE _ANG _REFERENCE

Макросы на кнопку RUS/ENG
^C^CПРЯМАЯ;Угол;Б;/;
^C^C_XLINE;_ANG;_REFERENCE;/;


__________________
tc71
perpetule вне форума  
 
Непрочитано 19.01.2016, 01:57
#759
sathalex


 
Регистрация: 02.07.2014
Сообщений: 55


Добрый день, подскажите, как дополнить данный макрос ^C^C_-insert;(имя блока);\;;;\ чтобы блок вставлялся в исходных координатах.
sathalex вне форума  
 
Непрочитано 19.01.2016, 09:59
#760
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Сначала определи, что такое "исходные координаты".
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Мои макрокоманды

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мои динамические блоки Shoorup Динамические блоки 2713 21.04.2011 23:34
Повторение выполнения макрокоманды по циклу. КАК? Kostinok AutoCAD 12 05.12.2007 15:40
Мои проекты Vova Разное 10 08.10.2007 23:18
Мои палитры инструментов на соседний компьютер Pave1 AutoCAD 4 27.06.2006 09:45