[Макс_Кунгур]

Добрый день. Подскажите, пожалуйста, как в AutoCAD 2007 добавить кнопку, при нажатии на которую, вызывалось бы lisp-приложение, которое рисует линии (оно уже создано, назовем его test.lsp).

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

А в dwg.ru/art/8 про это не сказано?

[Макс_Кунгур]

Кулик Алексей aka kpblc, там сказано, как при загрузке AutoCAD этот lisp загружался. А мне надо создать кнопку на панели инструментов, чтобы, когда это нужно, нажимаешь на нее и она рисует то, что написано в lisp. Если по другому задать вопрос, то это будет выглядеть так: как создать новую кнопку на панели инструментов и привязать к ней lisp-приложение?

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

Не могу понять - код на кнопку, что ли, надо? В наиболее простом случае (без проверки загруженности, например):

Код:

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

^C^C(load "c:\\lisp\\test.lsp");test

Так?

[zenon]

Кулик Алексей aka kpblc, думаю лучше так

^C^C(if (null C:<команда>)(load "<файл>"));<команда>;

[Profan]

Можно еще вот сюда посмотреть:
http://dwg.ru/art/2

[Макс_Кунгур]

Кулик Алексей aka kpblc, я попробовал, то что вы написали. Нажимаю на кнопку, программа внизу в командах пишет:
Command: (load "d: и больше ничего не делается. Подскажите,пожалуйста, в чем проблема?

[zenon]

Макс_Кунгур, внимательно почитай ссылку из поста 6

[Макс_Кунгур]

zenon, попробовал, то же самое получается. Я прописываю:
^C^C(if (null C:test4)(load "d:\\base\\test_new.lsp"));test4;
Пишет внизу:
Command: (if (null C:test4)(load "d:
и дальше ничего не происходит

[Profan]

Помести файл test_new.lsp в папку, находящуюся на пути доступа AutoCAD к файлам поддержки и тогда твой макрос станет таким:

Код:

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

 
^C^C(if (null C:test4)(load "test_new"));test4;

[E-degtyarev]

А попробуй поменять 2 обратных на один прямой.

^C^C(if (null C:test4)(load "d:/base/test_new.lsp"));test4;

[zenon]

Макс_Кунгур, а эту статью тоже читал?
http://dwg.ru/art/8
особливо "Организация библиотеки лисп файлов"

[Макс_Кунгур]

E-degtyarev, большое спасибо, заработало.

[Лидика]

Здравствуйте! У менятакая проблема: у меня есть необходимый мне лисп по именем mrotate_center. Я дейтвую согласно http://dwg.ru/art/8 создаю для него кнопку и прописываю путь ^C^C(if (null C:mrotate_center)(load "mrotate_center"));mrotate_center;. Когда я его запускаю то автокад пишет мне- ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT. Тогда я пишу Команда: (vl-load-com). Лисп начинает работать. Файл закрываю. сохраняю. Открываю вновь и при вызове данной команты он опять пишет туже ошибку. Согласно http://dwg.ru/art/8 "Наберите в командной строке (vl-load-com) или (предпочтительнее) добавьте ее в начало lisp файла". Что делать? напишите пожалуйста пример.

[gomer]

добавь (vl-load-com) в acaddoc20xx.lsp и будет тебе счастье

[sasha_lif]

Offtop: Лидика, я восхищен , что вы так внятно все прочитали

[Do$]

Сообщение от Лидика у меня есть необходимый мне лисп по именем mrotate_center

Открываем его блокнотом. И:

Сообщение от Лидика добавьте

Сообщение от Лидика в начало lisp файла

Сообщение от Лидика (vl-load-com)

Файл сохраняем и все будет хорошо

[sasha_lif]

Do$, судя по всему она так и делает :

Тогда я пишу Команда: (vl-load-com). Лисп начинает работать. Файл закрываю. сохраняю

[Лидика]

Сообщение от gomer добавь (vl-load-com) в acaddoc20xx.lsp и будет тебе счастье

А не подскажете где мне найти этот файл?

[Nike]

Сообщение от gomer acaddoc20xx.lsp

У меня тоже нету такого файла!