[kefirrr]

Добрый день,
Я хочу работая в екселе вызвать lisp-программку для автокада. Подскажите, пожалуйста, как это сделать?
У меня есть предположение, что нужно каким-то образом ввести "имя" команды в командную строку или что-то типа того. Но как это реализовать- не знаю

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

Если doc - указатель на текущий документ AutoCAD, то попробуй нечто типа doc.SendStringToEcexute

[Александр Ривилис]

Сообщение от Кулик Алексей aka kpblc Если doc - указатель на текущий документ AutoCAD, то попробуй нечто типа doc.SendStringToEcexute

SendCommand("(лисп выражение) ")
Но запускать из Excel AutoCAD, для того чтобы в нём запускать lisp - это высший пилотаж, для которого у меня нет слов...

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

Сообщение от Александр Ривилис высший пилотаж, для которого у меня нет слов...

Это понятно Я бы тоже попробовал обойти такой вариант, но черт его знает, что там у ТС ))

[kefirrr]

Сообщение от Александр Ривилис Но запускать из Excel AutoCAD, для того чтобы в нём запускать lisp - это высший пилотаж,

Дело в том, что основная часть работы делается через excel, но так же есть готовый lisp и не один, и перещелкивать каждый раз на автокад, чтобы там запустить lisp- не хочется

[Сергей812]

Сообщение от kefirrr Дело в том, что есть готовый lisp и не один, а переделывать их под VBA нет ни времени ни желания.

Просто вы не объяснили общий смысл своих действий, а запускать через Excel AutoCAD, чтобы в нем запускать для чего то лисп - это весьма нестандартное решение)

[Владимир_М]

Сообщение от Сергей812 Просто вы не объяснили общий смысл своих действий, а запускать через Excel AutoCAD, чтобы в нем запускать для чего то лисп - это весьма нестандартное решение)

Очень даже стандартное и логичное. Ексел используется, например, вместо обычной формы для ввода исходных данных, а тем более если с этой цифирью надо сначала проделать какие-то манипуляции (те же спецификации металла арматуры), а потом получить чертеж в акаде с использованием той информации, что уже есть в Екселе...
И задача не шибко вроде и сложная должна быть... В чистом виде, правда, именно так, не делал... Но из самостоятельного ехе-шника в Акад и lisp, есть такое (где-то в архивах у себя поискать если, давненько это было лет 15 назад). Их екселя, примерно такие же задачи решалась, но только в акаде загружались уже dvb всегда, как-то на тот момент уже от Lispa ушел.
Последовательность примерно такая:
из макроса ексел включается акад, например, командой shell, и сразу же c в строке с акад добавляется на выполнение скрипт, там что-то типа "\b", что ли, надо добавить после acad.exe. Вот этого куска под рукой нет...
Скрипт, типа такой (первые две строчки открытие шаблона в акад):
_open
obmern.dwt
(load "имя_lsp_файла")

Можно и в ехеле акадовский шаблон нужный сначала открыть (кажется "\t").

Может чего и попутал извините, но должна задачка решаться, уверен.

[trir]

Проще из Excel'я AutoCAD'ом управлять через VBA в Excel'е

[Владимир_М]

Сообщение от Владимир_М из макроса ексел включается акад, например, командой shell, и сразу же c в строке с акад добавляется на выполнение скрипт, там что-то типа "\b", что ли, надо добавить после acad.exe. Вот этого куска под рукой нет...

вот нашел ключевую строку:

Код:

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

Shell putacad & "\acad.EXE /t Ps146.dwt /b Ps146.scr", vbMaximizedFocus

здесь шаблон акада включается сразу из кода VB... соответственно в скрипте уже остается только одна строка (load "...")

[Сергей812]

Сообщение от trir Проще из Excel'я AutoCAD'ом управлять через VBA в Excel'е

Ну тогда ТС придется переписывать готовые лиспы, если это вообще их лиспы. С точки зрения экономии времени логично, с точки зрения дальнейшего развития - "зоопарк" со всеми вытекающими.

[Владимир_М]

Сообщение от Сергей812 Ну тогда ТС придется переписывать готовые лиспы, если это вообще их лиспы. С точки зрения экономии времени логично, с точки зрения дальнейшего развития - "зоопарк" со всеми вытекающими.

Первое предложение понял... О чем второе? ничего не понятно... в чем экономия времени? какое дальнейшее развитие? поясните, пожалуйста.

[Сергей812]

Экономия времени - в использовании уже готовых программ на лиспе.. без перевода на VBA..
Недостаток - что это все не единое целое, не законченное решение. Кто-то в связке AutoCAD-Excel должен "рулить", обеспечивая передачу данных, переключение активности приложений и т.д. для реализации вменяемого интерфейса - но это дело вкуса, конечно.

[ShaggyDoc]

Сообщение от Сергей812 Кто-то в связке AutoCAD-Excel должен "рулить", обеспечивая передачу данных, переключение активности приложений и т.д. для реализации вменяемого интерфейса

И в этой связке рулить должен AutoCAD. Именно он должен быть загружен, в нем должен работать Лисп и из него, при необходимости, должна запускаться Excel (или любое другое приложение).

Дело в том, что AutoCAD - "тяжелое" приложение. Если другие (например офисные), легко запускаются из разных программ как COM-серверы (и даже могут быть встроены в окна этих "разных" программ), то с AutoCAD не так.

Он тяжело стартует, выполняет много настроек, выполняет автозагрузки ищет шрифты и прочая. Да и на машине может быть несколько AutoCAD. Не зря Александр Ривилис написал (а уж он-то знает):

Но запускать из Excel AutoCAD, для того чтобы в нём запускать lisp - это высший пилотаж, для которого у меня нет слов...

Конечно, можно запустить AutoCAD просто как exe, написать что-то в командной строке. И можно SendCommand послать ему. Но это всё будет "на соплях".

[Владимир_М]

Сообщение от ShaggyDoc Цитата: Сообщение от Сергей812 Кто-то в связке AutoCAD-Excel должен "рулить", обеспечивая передачу данных, переключение активности приложений и т.д. для реализации вменяемого интерфейса И в этой связке рулить должен AutoCAD. Именно он должен быть загружен, в нем должен работать Лисп и из него, при необходимости, должна запускаться Excel (или любое другое приложение).

Господа, Вы о чем здесь? Вроде, вопрос был задан и потом разъяснен достаточно четко:
Основная работа в Ексел! И только где-то, когда-то, сбоку нужно отображение данных из Ехсел в формате Акада, причем используя разные приложения в Лисп. Тем более что данная связка нужна человеку просто, как говорится "для себе", не коммерческие дела...
какие такие "переключение активности приложений и т.д. для реализации вменяемого интерфейса"? почему именно "рулить должен AutoCAD. Именно он должен быть загружен, в нем должен работать Лисп и из него, при необходимости, должна запускаться Excel"?

Сообщение от ShaggyDoc "Дело в том, что AutoCAD - "тяжелое" приложение... Он тяжело стартует, выполняет много настроек, выполняет автозагрузки ищет шрифты и прочая."

И что ж с того? Если Вы его запустите первым, оно от этого станет легче? При любом варианте (не важно кто там будет "рулить") так или иначе все это все равно надо загрузить. Вообще речь идет о нескольких секундах (у меня Акад грузится за 7-8 сек).

"Да и на машине может быть несколько AutoCAD." Вот именно запуск конкретного acad.exe позволяет избавиться от "соплей" связанных не только с количеством акадов, но просто со сменой версии акада... Все как работало, кажется, начиная с Акад R14, так и продолжает работать на любой последней версии и Акада, и Ексел.

Сообщение от ShaggyDoc Не зря Александр Ривилис написал (а уж он-то знает): Цитата: Но запускать из Excel AutoCAD, для того чтобы в нём запускать lisp - это высший пилотаж, для которого у меня нет слов... Конечно, можно запустить AutoCAD просто как exe, написать что-то в командной строке. И можно SendCommand послать ему. Но это всё будет "на соплях".

Вы, конечно, ShaggyDoc, Ривилис, люди походу авторитетные, не сомневаюсь, но... какой тут пилотаж? добавить две строки предельно понятного текста?
И что это за аргументы: "Но это всё будет "на соплях"". Как-то без пояснений не верится. На практике, повторюсь, все работает нормально.

[ShaggyDoc]

Сообщение от Владимир_М На практике, повторюсь, все работает нормально.

Вот когда столкнетесь с настоящей практикой - т.е. с работой программы без присутствия программиста, без переделок на лету, на любой машине - тогда поймете.

[Владимир_М]

Сообщение от ShaggyDoc Вот когда столкнетесь с настоящей практикой - т.е. с работой программы без присутствия программиста, без переделок на лету, на любой машине - тогда поймете.

Дак, так-то, кто ж спорит... Согласен... Но я отвечал только на начальный вопрос, и про него же Вам хотел напомнить...

[vl74]

Накопал интересный файл. Можно посылать команды из экселя в автокад. Но с многострочным текстом не получается, а хотелось бы.

[trir]

_script гораздо удобней

Код:

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

 (Command "-mtext" '(0 0) '(100 10) "test1" "")

[Сергей812]

Сообщение от vl74 Накопал интересный файл. Можно посылать команды из экселя в автокад. Но с многострочным текстом не получается, а хотелось бы.

судя по коду

Код:

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

acadCmd = ""
 For j = 3 To LastColumn
    If Not IsEmpty(.Cells(i, j).Value) Then
       acadCmd = acadCmd & .Cells(i, j).Value & vbCr
    End If
 Next j

просто собирается содержимое всех ячеек по горизонтали с имитацией нажатия ввода vbCr между ними, и потом чохом засылается в автокад. Поэтому записываете последовательность создания мультитекста в комстроке акада и переносите в ячейки.

[vl74]

В том и дело, что с многострочным текстом не прокатывает, так как команда _Mtext не выполняется в "прозрачном" режиме, без запуска редактора.
Просто я не силен в командной строке автокада, а тут еще надо переслать ее из экселя.