[WeMaN]

У меня вопрос немного дилетанский, но всё таки, тока осваиваюсь в AutoСadе... Так вот, можно ли в каде сделать новую кнопку на кокое нибудь действие? Например, если в Civile вкладки в меню для работы с поверхностью, хотелось бы не копаться в менюшке а сделать каждое действие обычной кнопкой, можно ли так???

[Dym]

http://dwg.ru/f/search.php?searchid=1241367

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

mitjaj, твой поиск кроме тебя никто не увидит.
WeMaN, http://dwg.ru/art/2

[Dym]

mitjaj, твой поиск кроме тебя никто не увидит.

не знал об этом, исправлюсь

WeMaN, сделай поиск по форуму с ключевыми словами

Создание кнопки в AutoCad

[acyxou]

Приветствую! А подскажите, пожалуйста, как создать кнопку на выполнение такой вот операции "(CommandMFind "test" "fish" T T T T T nil nil )". Без кавычек естественно Это условия на выполнение операции, таким образом на чертеже все слова test будут заменены на fish. Надоело вбивать это в командную строку, хочется создать кнопку...
Подгрузил лисп, создаю кнопку такого вида ^C^C_(CommandMFind "Один" "Два" T T T T T nil nil ), а нужного эффекта не получаю Объясните глухонемому иностранцу, пожалуйста, как это сотворить.

[Makswell]

Сообщение от acyxou Подгрузил лисп, создаю кнопку такого вида ^C^C_(CommandMFind "Один" "Два" T T T T T nil nil ), а нужного эффекта не получаю...

А какой эффект получаешь? В смысле - что в ком. строке пишется?

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

А с ком.строки если ввести

Код:

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

(CommandMFind "Один" "Два" T T T T T nil nil )

То все работает?

[acyxou]

Вот что пишет ком.строка при использовании мною созданной кнопки:

Command: _(CommandMFind LISP command is not available. Command: "*" Unknown command ""*"". Press F1 for help. Command: "" Unknown command """". Press F1 for help. Command: T TEXT Current text style: "Standard" Text height: 2.5000 Annotative: No Specify start point of text or [Justify/Style]: T Ambiguous response, please clarify... TLeft or TCenter or TRight? Invalid option keyword. TLeft or TCenter or TRight? *Cancel*

А когда просто вставляю в ком.строку (CommandMFind "Один" "Два" T T T T T nil nil ), то требуемая операция выполняется.

[Makswell]

Тогда так:

Код:

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

^C^C(CommandMFind "Один" "Два" T T T T T nil nil)

[acyxou]

Неее, ни фига!

Command: (CommandMFind "*" "" T T T T T nil nil ) ; error: no function definition: COMMANDMFIND

[acyxou]

Ладно, раскрою карты.... У меня в документах при определенных операциях в текстах выносок появляются звездочки. А они мне совсем не нужны, чтоб от них быстро избавится я использовал Find, чтоб еще быстрей от них избавится я скачал Lisp на замену текста, а чтоб еще сотрудникам мозг не засорять ненужной им информацией по обработке этих звездочек, я хочу сделать на базе этого лиспа кнопку. И то ли лисп неудачный, то ли с созданием кнопки головняки... Мож так вам легче будет помочь мне для меня главное мнгновенная замена звездочек на "ничего", а не создание кнопки именно для этого лиспа

[Makswell]

Command: (CommandMFind "*" "" T T T T T nil nil ) ; error: no function definition: COMMANDMFIND

Это говорит о том, что функция CommandMFind не определена. Т.е., по-видимому, лисп просто не загружен.

Хотя с другой стороны, напрямую с ком. строки (CommandMFind "Один" "Два" T T T T T nil nil) вроде как работает...

[acyxou]

Makswell точно!!!! во я дурень! Лисп то надо для каждого чертежа загружать если он в VLISP-эдиторе находится.... Проблема решилась... как всегда, все проблемы из-за моей затупки Ребят, спасибо что отозвались

[Major4uk]

А как создать кнопку в 2004 Автокаде?

[VVA]

Major4uk, Читай статью по ссылке в #3 посте

[JokerrSergh]

Подскажите, как сделать кнопку на выполнение макроса (файл с расширением ".dvb")
C лиспами у меня проблем не возникает, всё работает по принципу:
^C^C(if (= КОМАНДА nil)(Load(findfile "ИМЯФАЙЛА.lsp")));КОМАНДА;

А вот как быть с макросом я не могу сообразить. Подскажите, кто знает

P.S
Сейчас макрос стоит в автозагрузке через команду _appload (Сервис/Приложения/Автозагрузка)
Подгружаю через команду _vbarun (Сервис/Макросы/Выполнить)
Хочется все это дело посадить на кнопку

[Do$]

http://forum.dwg.ru/showthread.php?t...ghlight=vbarun

[JokerrSergh]

Do$, спасибо, что ткнул носом

код, который я поставил на кнопку (по совету из поста 2 по указанной ссылке) не работает:
^C^C_-vbarun !Plot_U_stable_ver2.1 for 2012.dvb!Main.Main

Вот что пишет:
Команда: _-vbarun
Имя макроса: !Plot_U_stable_ver2.1 nil

Имя макроса: for
Макрос не найден.
Команда: 2012.dvb!Main.Main Неизвестная команда "DVB!MAIN.MAIN". Для вызова
справки нажмите F1.

Что я не так написал?

[VVA]

Сообщение от JokerrSergh !Plot_U_stable_ver2.1 for 2012.dvb

Замени пробелы в названии dvb файла на _

[JokerrSergh]

Пробелы в названии dvb файла заменил на _
Код стал выглядеть так:
^C^C_-vbarun !Plot_U_stable_ver2.1_for_2012.dvb!Main.Main

вот результат:

Команда: _-vbarun
Имя макроса: !Plot_U_stable_ver2.1_for_2012.dvb!Main.Main nil

Имя макроса: !Plot_U_stable_ver2.1_for_2012.dvb
nil

Имя макроса: !Plot_U_stable_ver2.1_for_2012
nil

Имя макроса:

Команда:
-VBARUN
Имя макроса:

что вводить нужно в "Имя макроса:"?

[getr]

А может надо путь указать..что-то типа этого - ^C^C_-vbarun "C:/DOVESKI/FormatS/F_S.dvb!Module1.runForm"
Попробуй так - ^C^C_-vbarun "C:/твой путь/Plot_U_stable_ver2.1 for 2012.dvb!Module_UserForm1"
Вставь свою букву диска и путь.Да- не уверен что правильно написал имя файла тоже проверь.

[VVA]

http://entercad.ru/acad_acr.ru/d0e5161.htm
http://www.afralisp.net/visual-lisp/...-vba-files.php

[JokerrSergh]

Ничего не получается (
Все равно запрашивает имя макроса...

Господа разбирающиеся, помогите написать макрос для кнопки, чтобы запустился файл "!Plot_U_stable_ver2.5.DVB"
Файл прилагаю.

Файл уже загружен (стоит в автозагрузке), остается только запустить его.

Автокад использую такой:
F.205.0.0 AutoCAD 2012 - Russian SP2

Вопрос решен. Все работает.
Вот ответ с сайта разработчиков:
"В общем, открываете по Alt+F8 окно запуска макросов, копируете полностью поле имя вверху (в нем указывается путь и нужный макрос)
Далее на кнопку вешаете после vbarun через пробел в кавычках "вставляете что скопировали", !!важно заменить все \ на обратный / !! и все должно работать"