[niko320]

добрый день всем

у меня задача открыть pdf файл в Acrobat из AutoCAD
из командной строки понятно "OPENURL" или "START" ...

вопрос - как правильно написать команду под кнопкой?

спасибо

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

Код:

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

 (setq file (findfile "d:\\osipov.pdf"))
(command "_.browser" file)

Код:

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

 (defun test (file / w)
  (vl-catch-all-error-p
    (if (setq w (vlax-get-or-create-object "WScript.Shell"))
      (if (vl-catch-all-error-p (setq err (vl-catch-all-apply
                                            'vlax-invoke-method
                                            (list w
                                                  "Run"
                                                  (strcat "\"" file "\"")
                                                  0
                                                  ) ;_  list
                                            ) ;_ end of vl-catch-all-apply
                                      ) ;_ end of setq
                                ) ;_ end of vl-catch-all-error-p
        (princ (strcat "\n Error : " (vl-catch-all-error-message err)))
        ) ;_ end of if
      ) ;_  if
    ) ;_ end of vl-catch-all-error-p
  (vl-catch-all-error-p
    (function
      (lambda ()
        (vlax-release-object w)
        ) ;_ end of lambda
      ) ;_ end of function
    ) ;_ end of vl-catch-all-error-p
  (setq w nil)
  ) ;_ end of defun

(test file)

[niko320]

спасибо
а на VB ?
или еще лучше непосредственно под кнопкой?