Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: BearDyugin от 14-01-2016, 07:23:55

Название: Открыть ссылку в браузере из приложения LISP
Отправлено: BearDyugin от 14-01-2016, 07:23:55
Ни где не нашёл.

Суть, сделать кнопку в DCL  диалоге, с адресом сайта, кликнув по которой в браузере открывается этот сайт.

Есть функция showhtmlmodalwindow (http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-1330BB1E-866E-419A-8AE3-22B0C16E1F06), но она запускает маленькое окошечко, под него надо создавать специальную маленькую страничку, и у пользователя в нормальном браузере могут хранится данные всяких учетных записей, не доступные в этом окне.

Наверно надо как-то через startapp  (http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-30EC493A-674B-4AAE-8C88-358E38CDAB21) но как?

Название: Re: Открыть ссылку в браузере из приложения LISP
Отправлено: Александр Ривилис от 14-01-2016, 09:48:13
Один из вариантов:
Код - Auto/Visual Lisp [Выбрать]
  1. (command "_SHELL" "\"C:/Program Files/Internet Explorer/iexplore.exe\" http://www.autodesk.com")
Название: Re: Открыть ссылку в браузере из приложения LISP
Отправлено: Александр Ривилис от 14-01-2016, 09:51:42
Вариант два (запустится браузер по-умолчанию):
Код - Auto/Visual Lisp [Выбрать]
  1. (command "_START" "http://www.autodesk.com")
Название: Re: Открыть ссылку в браузере из приложения LISP
Отправлено: BearDyugin от 14-01-2016, 09:58:39
Цитата: Александр Ривилис от 14-01-2016, 09:51:42
запустится браузер по-умолчанию
Да так и нужно было!

Проверил, всё получилось. Спасибо.

Off-Topic: показать

Вот интересно как это реализовано в установщики приложений из app store? После установки приложения там появляется кнопка "Прочитать документацию" при нажатии на которую, открывается справка к приложению в браузере, но на некоторых машинах у меня, кликая по этой кнопки ни чего не происходит :-(
записывал видео для проверяющих из Autodesk
Название: Re: Открыть ссылку в браузере из приложения LISP
Отправлено: Александр Ривилис от 14-01-2016, 10:07:11
Третий вариант от Lee Mac:
Код - Auto/Visual Lisp [Выбрать]
  1. (defun defaultbrowser ( url / exe )
  2.    (if (setq exe (vl-registry-read "HKEY_CLASSES_ROOT\\http\\shell\\open\\command"))
  3.       (startapp (vl-string-subst url "%1" exe))
  4.    )
  5. )
  6. (defaultbrowser "http://www.autodesk.com")
Вообще можешь глянуть вот эту тему: http://www.theswamp.org/index.php?topic=44768.0
Там еще несколько вариантов есть.