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

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

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

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

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

Выкладываю 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:
Просмотров: 448524
 
Непрочитано 11.11.2018, 15:46
#901
Alex_Shaton


 
Регистрация: 09.09.2017
Гомель
Сообщений: 19


Кулик Алексей aka kpblc, вопрос в переключении текстового стиля. Ввожу (setvar"TEXSTYLE""493_P131"), в командной строке - Настройка переменной AutoCAD отвергнута: "TEXSTYLE" "493_P131". AutoCAD 2015.

----- добавлено через ~16 мин. -----
Прошу прощения, вопрос снят. Ошибся в названии переменной.

----- добавлено через ~1 ч. -----
Прописал так:
^C^C(setvar"CANNOSCALE""2:1");^C^C(setvar"TEXTSTYLE""493_P131");^C^C_TXTCNTR; ^C^C(setvar"TEXTSTYLE""492_Bm_431");^C^C(setvar"CANNOSCALE""2:1");
Поодиночке вроде все срабатывает, а вместе - не срабатывает лисп. Подскажите, пожалуйста, в чем загвоздка?
Alex_Shaton вне форума  
 
Непрочитано 11.11.2018, 20:46
#902
Кулик Алексей aka kpblc
Moderator

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


TXTCNTR, интересно - что это такое, откуда взято и что делает?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.11.2018, 21:07
#903
Alex_Shaton


 
Регистрация: 09.09.2017
Гомель
Сообщений: 19


Одна из команд лиспа Text_on_Line.fas, взято на форуме Геодезист.ru. Сначала рисуется замкнутый контур, затем команда запуска,пишешь текст, указываешь контур и текст размещается по центру контура.http://geodesist.ru/threads/gr-my-lisp-apps.70144/
Alex_Shaton вне форума  
 
Непрочитано 11.11.2018, 21:31
#904
Alex_Shaton


 
Регистрация: 09.09.2017
Гомель
Сообщений: 19


Вот и сам лисп
Вложения
Тип файла: rar Text_on_Line.rar (9.0 Кб, 34 просмотров)
Alex_Shaton вне форума  
 
Непрочитано 12.11.2018, 08:09
1 | #905
Кулик Алексей aka kpblc
Moderator

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


Это не lsp, а fas. Исходников нет, и что и когда там запрашивается - разбираться не хочу. Посмотри в книге В.Света, как в макросах обрабатываются запросы данных у пользователя.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 26.01.2019, 21:04
#906
off

геодезист
 
Регистрация: 11.11.2006
Ростов-на-Дону
Сообщений: 95
<phrase 1= Отправить сообщение для off с помощью Skype™


*^C^C_select;\_torient;_Pr;;0;_move;_Pr;;@;установка поворота текста на заданное значение и перемещение (в данном случае - установка в ноль).
Использовал для оформления топографической съемки. При выполнении макроса есть один лишний клик - избавиться от него не удалось.
p.s. используется команда из ExpressTools.
off вне форума  
 
Непрочитано 26.02.2019, 18:30
#907
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 10,288


Есть кнопка с выпадающими из нее другими кнопками. Все мои самодельные кнопки расположены с левой стороны правого (из двух) монитора и всегда на прошлом компе раскрывались вправо, то есть на поле своего монитора. При переходе на новый комп кнопки стали вылетать влево, то есть на поле чужого (левого) монитора. Что неудобно. Кто-нибудь сталкивался с таким?
Есть еще одно обстоятельство. Левый монитор является главным по отношению к правому. Может быть кнопки стремяться к главному? Windows-10.
Vova вне форума  
 
Непрочитано 26.02.2019, 21:42
#908
Кулик Алексей aka kpblc
Moderator

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


ИМХО к макрокомандам это не имеет никакого отношения. Графическая область ACAD'а где находится? На главном?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 26.02.2019, 23:10
#909
engngr

сети
 
Регистрация: 03.11.2008
Московия*
Сообщений: 5,763


Цитата:
Сообщение от Vova Посмотреть сообщение
Может быть
Поперетаскивать меню на разные борты - на левый, на правый, обратно - и посмотреть, что будет?
engngr вне форума  
 
Непрочитано 27.02.2019, 01:13
#910
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 10,288


То aka kpblc> На этих кнопках находятся макрокоманды. Поэтому в этой теме теперь как-бы к месту. Все остальные команды автокада, уже давно в рибонах. Автокады находятся на обеих экранах.
То engngr> Если перетащить кнопки на правый край, из них выдвигаются вложенные кнопки влево, то есть на поле своего экрана. Но я привык держать их на левой стороне...
Vova вне форума  
 
Непрочитано 11.04.2019, 11:21
#911
gumel


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


Ребят, прошу помощи. Нужен макрос, в котором для выбранных объектов обрабатывалась бы команда _massprop.
Среди выбранных объектов имеются солиды и регионы.
Нужно получить результат деления. Значения Volume (объем солидов) поделить на значение Area (площадь регионов).


Прикладываю тестовый пример. Должно получится 300.
Вложения
Тип файла: dwg
DWG 2004
test.dwg (138.0 Кб, 26 просмотров)

Последний раз редактировалось gumel, 11.04.2019 в 11:56.
gumel вне форума  
 
Непрочитано 07.07.2019, 06:23
#912
Наталья Катаева


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


Доброго всем дня! Пожалуйста, подскажите, как найти в Автокаде макрос команды, которой нет на кнопке или в меню? Интересует команда DIMLAYER, хочу попробовать на ее основе сделать аналогичную для выносок, но в списке команд Costomize Interface ее нет.
Наталья Катаева вне форума  
 
Непрочитано 07.07.2019, 11:09
#913
cadhlp by PG


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


Цитата:
Сообщение от Наталья Катаева Посмотреть сообщение
Доброго всем дня! Пожалуйста, подскажите, как найти в Автокаде макрос команды, которой нет на кнопке или в меню? Интересует команда DIMLAYER, хочу попробовать на ее основе сделать аналогичную для выносок, но в списке команд Costomize Interface ее нет.
Так ведь DIMLAYER вроде как системная переменная, а не команда, поэтому ее там инет
cadhlp by PG вне форума  
 
Непрочитано 07.07.2019, 14:30
#914
Наталья Катаева


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


А где найти код системной переменной?
Наталья Катаева вне форума  
 
Непрочитано 07.07.2019, 14:48
#915
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


Хорошо бы сразу описать подробнее, что именно нужно...
skkkk вне форума  
 
Непрочитано 07.07.2019, 15:03
#916
engngr

сети
 
Регистрация: 03.11.2008
Московия*
Сообщений: 5,763


Что такое
Цитата:
Сообщение от Наталья Катаева Посмотреть сообщение
код системной переменной
?
engngr вне форума  
 
Непрочитано 07.07.2019, 16:04
#917
Наталья Катаева


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


Цитата:
Сообщение от skkkk Посмотреть сообщение
Хорошо бы сразу описать подробнее, что именно нужно...
Так вроде написала... Хочу сделать команду, которая задавала бы слой по умолчанию для выносок и мультивыносок, чтобы она работала также, как системная переменная DIMLAYER (так как почему-то на выноски та не действует). В макросах и лиспах я не бум-бум, потому решила, что проще всего будет найти макрос этой команды и поменять в нем что-нибудь, если пойму - что. Наверное, я слишком просто это себе представляла, но изучать программирование из-за одной удобной фишки как-то времени не хватает. Нашла такой вот макрос: *^C^C_mleader;\\Ваш текст;_change;_l;;_p;_la;Примечание;; он должен создавать выноску в нужном слое (точнее, переносить в него созданную), но там есть текст по умолчанию. Если его убрать, будет работать вот такая аброкадабра? *^C^C_mleader;\_change;_l;;_p;_la;; Боюсь даже пробовать, так как не знаю, как вернуть потом все назад, то есть чтобы другой переменной выноски снова создавались в текущем слое. Если это не очень сложно, можете подсказать, как такое сделать?
Наталья Катаева вне форума  
 
Непрочитано 07.07.2019, 17:17
1 | #918
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 1,324


Наталья Катаева, Может все-таки попробовать автоматический перенос, и там не только для выносок, из этой темы, или утилиту от Lee MaC
AlexCondor вне форума  
 
Непрочитано 08.07.2019, 12:00
#919
Наталья Катаева


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


Цитата:
Сообщение от AlexCondor Посмотреть сообщение
или утилиту от Lee MaC
Спасибо!
Попробовала эту утилиту, она работает, но как сделать, чтобы выноски переносились в мой слой, а не тот, который создается утилитой? Править в самом ее тексте? В пояснениях автора я мало что поняла.
Наталья Катаева вне форума  
 
Непрочитано 08.07.2019, 12:54
#920
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 1,324


Да , надо править. Если вы говорите об утилите от Lee Mac, то там есть настройка новых слоев:
Код:
[Выделить все]
 
("[DM]TEXT,TEXT"       "TEXT"           "Text Layer"                   2        "Continuous"           -3                 1                 nil         )
("DIM*,*LEADER"        "DIMENSIONS"     "Dimension Layer"              3        "Continuous"           -3                 1                 nil         )
("*VPORT*"             "DEFPOINTS"      ""                             7        "Continuous"           -3                 0                 nil         )
("XLINE"               "XLINE"          "Construction Lines"          12        "HIDDEN"                0                 0                 nil         )
Попробуйте откорректировать ее под себя.
AlexCondor вне форума  
Ответ
Вернуться   Форум 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