• На форуме с 3 ноября 2007г.
  • Сообщений: 5
  • Спасибо: 0

Тема: Как исполнить lisp-программу из lsp-файла.

Требуется в программе на VBA вызвать на выполнение программу на лиспе, расположенную в отдельном lsp-файле.

  • Alexander
  • Восстановленный участник
  • На форуме с 29 апреля 2003г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как исполнить lisp-программу из lsp-файла.

Например:
' Выбор файлов с использованием doslib

ThisDrawing.SendCommand "(setvar ""users1"" (vl-princ-to-string  (dos_getfilem ""Select a file"" ""C:\\"" ""Drawing files (*.dwg)|*.dwg|All files (*.*)|*.*||"")))" & vbCr

' Выбор файлов с использованием
' пользовательской функции

ThisDrawing.SendCommand "(setvar ""users1"" (vl-princ-to-string (Select-Files ""c:"" ""Drawing files (*.dwg)|*.dwg||"")))" & vbCr

Конечно эти функции д. б. предварительно загружены

(defun Select-Files (path shbl / FILE SPFILES)
  (while (setq file (dos_getfilem
                      "Выбор файлов"
                      path
                      shbl
                    ) ;_ конец dos_getfilem
         ) ;_ конец setq
    (if file
      (progn
        (foreach n (cdr file)
          (setq spfiles
                 (append spfiles (list (strcat (car file) n)))
          ) ;_ конец setq
        ) ;_ конец foreach
        (setq path (vl-filename-directory (last spfiles)))
      ) ;_ конец progn
    ) ;_ конец if
  ) ;_ конец while
;;;   Удалить дубликаты
  (RemRecElem spfiles)
) ;_ конец defun

  • Alexander
  • Восстановленный участник
  • На форуме с 29 апреля 2003г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как исполнить lisp-программу из lsp-файла.

И есчо
https://www.caduser.ru/forum/topic33613.html