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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Срочно! Горю! Как через VBA подцепить LISP-файл на запуск?

Срочно! Горю! Как через VBA подцепить LISP-файл на запуск?

Ответ
Поиск в этой теме
Непрочитано 04.05.2005, 15:53 #1
Срочно! Горю! Как через VBA подцепить LISP-файл на запуск?
АлександрМихайлович
 
студент
 
Иваново
Регистрация: 19.04.2005
Сообщений: 12

Есть LISP-файл. Надо сделать процедуру на VBA, чтобы этот файл загрузить в акад и запустить его на выполнение. Помогите плиз!!!
Просмотров: 3084
 
Непрочитано 04.05.2005, 16:38
#2
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Через SendCommand можно.
{Smirnoff} вне форума  
 
Непрочитано 04.05.2005, 17:02
#3
Эдуард

строительство
 
Регистрация: 16.01.2004
Петербург
Сообщений: 165
<phrase 1=


Я не спец в ВБА , но предположу что это должно выглядеть так
Код:
[Выделить все]
Sub lspload()
Dim ad As AcadDocument
Set ad = Application.ActiveDocument
ad.SendCommand ("(load "" filename.lsp "")" & vbCr)
ad.SendCommand ("(functionname)" & vbCr)
End Sub
Где filename.lsp имя лисп файла
functionname имя функции
Эдуард вне форума  
 
Автор темы   Непрочитано 04.05.2005, 17:41
#4
АлександрМихайлович

студент
 
Регистрация: 19.04.2005
Иваново
Сообщений: 12


Спасибо! Сейчас попробуем.
АлександрМихайлович вне форума  
 
Автор темы   Непрочитано 05.05.2005, 00:47
#5
АлександрМихайлович

студент
 
Регистрация: 19.04.2005
Иваново
Сообщений: 12


Почему-то не работает код... Можете то же самое немного по-другому предложить? Потому что вроде ход мыслей-то тот. Только не могу до конца понять что надо исправить...
АлександрМихайлович вне форума  
 
Непрочитано 05.05.2005, 10:10
#6
vk

сисадмин
 
Регистрация: 26.08.2003
Самара
Сообщений: 1,022
<phrase 1=


Что именно не работает? Огласите, что пишет командная строка....

Скобки лишние можно убрать
Код:
[Выделить все]
Sub lspload()
Dim ad As AcadDocument
Set ad = Application.ActiveDocument
ad.SendCommand "(load ""filename.lsp"")" + vbCr
ad.SendCommand "(function)" + vbCr
End Sub
vbCr можно на пробел заменить
Код:
[Выделить все]
Sub lspload()
Dim ad As AcadDocument
Set ad = Application.ActiveDocument
ad.SendCommand "(load ""filename.lsp"") "
ad.SendCommand "(function) "
End Sub
Ну и надо убедиться что сам filename.lsp доступен
vk вне форума  
 
Автор темы   Непрочитано 10.05.2005, 22:45
#7
АлександрМихайлович

студент
 
Регистрация: 19.04.2005
Иваново
Сообщений: 12


Спасибо! Заработал вариант без скобок!
АлександрМихайлович вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Срочно! Горю! Как через VBA подцепить LISP-файл на запуск?

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

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