[tinik_89]

Как из lisp запустить еxe?

[hwd]

Сообщение от tinik_89 Как из lisp запустить еxe?

имхо догадаться и самому в общем-то не сложно - я с первого же раза попал на нужную команду.
Сторонее приложение можно запустить из коммандной строки автокада с помощью команды start.
Как это выполнить на лиспе - уже не должно составить труда. Например запускаем ворд:

Код:

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

(command "_start" "winword")

путь к winword.exe не указываю, поскольку он указан в системной переменной операционной системы. Но можно указывать и полный путь, не забыв заменить в строке каждый '\' на '\\' или на '/'.

[VVA]

1. Пост #2
2. startapp
3. С помощью wscript.shell. Правда нужен уже VLISP

Код:

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

(vl-load-com)
;;;Вариант 1
(setq arg "C:\\test.txt") ;_аргументы
(vlax-invoke-method (setq f (vlax-get-or-create-object "wscript.shell"))
    "run"
    (strcat "notepad.exe " arg)
    1
    :vlax-true) ;_ end of vlax-invoke-method
  (vlax-release-object f)

;;;Вариант 2
(setq arg "C:\\test.txt") ;_аргументы
(vlax-invoke-method (setq f (vlax-get-or-create-object "wscript.shell"))
    "run"
    (strcat "notepad.exe " arg)
    1
    :vlax-false) ;_ end of vlax-invoke-method
  (vlax-release-object f)

Обрати внимание в варианте 1 пока не закроешь блокнот, Автокад будет не доступен (Т.е. ждем окончания процесса)
4. Библиотека doslib
5. См #13

[kontrR]

Господа, очень хочется открывать нужные СНиПы из меню Автокада , но почему то строка
(STARTAPP "winword.exe C:/Program Files/AutoCAD 2007/NORMSPIA/snip31012003.doc")
не помогает. Ворд открывается, но пишет что требуемый файл либо не найден, либо не доступен, либо используется другим приложением...
В чем подвох? Заранее благодарен..

[Дима_]

аргумент командной строки передавай отдельным параметром (startapp "winword.exe" "xxx.doc")

[kontrR]

Сообщение от Дима_ аргумент командной строки передавай отдельным параметром (startapp "winword.exe" "xxx.doc")

(STARTAPP "winword.exe" "C:/Program Files/AutoCAD 2007/NORMSPIA/snip31012003.doc")
То же самое, не работает(((

[Дима_]

C:/Program Files/AutoCAD 2007/NORMSPIA/snip31012003.doc замени на C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc

[Nike]

Сообщение от Дима_ (STARTAPP "winword.exe"

путь к winword.exe укажи
"C:\\Program Files\\Microsoft Office\\OFFICE11\\WINWORD.EXE"

[kontrR]

(STARTAPP "winword.exe" "C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc")

Не хочет.(( может дело в Ворде?

RE: путь к winword.exe укажи

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

[tokhot]

Путь должен быть без пробелов

[Nike]

(setq
doc_path "\"C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc\""
app_path "\"C:\\Program Files\\Microsoft Office\\OFFICE11\\WINWORD.EXE\""
)

(startapp app_path doc_path)

[kontrR]

Сообщение от Nike (setq doc_path "\"C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc\"" app_path "\"C:\\Program Files\\Microsoft Office\\OFFICE11\\WINWORD.EXE\"" ) (startapp app_path doc_path)

Вот это работает, спасибо большое)))

(setq
doc_path "\"C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc\"")
(startapp "WINWORD.EXE" doc_path)

И вот это тоже..

[VVA]

Запуск приложения, которое зарегестрировано для данного типа файла (за расширением)

Код:

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

(defun vva-xopen (name / di na sh)
;; get from Patrick_35
;; http://www.theswamp.org/index.php?topic=29548.0 
;;;Usage 
;;;(setq my_file (vva-xopen "c:/test.txt")) 
;;;(setq my_file (vva-xopen "c:/test.avi")) 
;;;(setq my_file (vva-xopen "c:/test.3gp")) 

  (and   (setq name (findfile name)) 
   (setq sh (vlax-create-object "Shell.Application")) 
   (setq di (vlax-invoke sh 'Namespace (vl-filename-directory name))) 
   (setq na (vlax-invoke di 'parsename (strcat (vl-filename-base name) (vl-filename-extension name)))) 
   (vlax-invoke-method na 'invokeverbex "open") 
  ) 
  (vlax-release-object sh) 
  na 
)

Использование

Код:

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

(setq
 doc_path "C:\\Program Files\\AutoCAD 2007\\NORMSPIA\\snip31012003.doc")
 (vva-xopen  doc_path)

Вариант от {Smirnoff}

Код:

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

(defun OpenFile(FileFullName / ShellApp)
  (vl-load-com)
  (if
    (setq ShellApp
      (vla-getInterfaceObject
        (vlax-get-acad-object)
        "Shell.Application"))
    (progn
  (if(findfile FileFullName)
  (vlax-invoke-method ShellApp 'ShellExecute FileFullName)
  (princ(strcat "\n** File " FileFullName " not found! **"))
    ); end if
  (vlax-release-object ShellApp)
  (setq ShellApp nil)
  ); end progn
    ); end if
  (princ)
  ); end of OpenFile

Пример

Код:

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

(OpenFile "C:\\Documents and Settings\\Alexander\\Мои документы\\Documentation\\Test.doc")

[gomer]

что мешает скомпилить из ворда чм файл и запускать стандартной (help <filename>)?

[Tonic]

VVA, отличный совет! У меня отказался запускаться exe-шник методом использования wscript.shell (не во всех версиях AutoCAD), а этот, последний метод, идёт "на ура".

[kontrR]

Сообщение от gomer что мешает скомпилить из ворда чм файл и запускать стандартной (help <filename>)?

Еще бы знать, как это сделать.. И кстати, а таблицы скомпилируются?

[gomer]

Сообщение от kontrR кстати, а таблицы скомпилируются?

Еще как!

[VVA]

Сообщение от kontrR Еще бы знать, как это сделать..

Не знаешь сам, спроси у гугла