[gabrin]

Подскажите пожалуйста, а можно ли путем нажатия кнопки панели вызвать браузер IE размера 200х400 , без адресной строки, без прокрутки, без статуса, по центру экрана с содержимым например http://dwg.ru ?

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

Ищи темы от Supermax - он создавал веб-макрос.

[gabrin]

Темы я читал от Supermax. Но у него весь код закрытый. И мне не нужно управление Акадом из браузера, просто отображение срдержимого.

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

Ну в таком случае создавай объект браузера из-под AutoCAD'a, задавай все параметры и вперед
P.S. Сам подобным не занимался, подробностей не представляю ни в каком варианте.

[VVA]

Вот тебе 2 версии

Код:

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

(defun ie-open-file-v1 (file_html / ie_obj)
;;;  Открытие файлов с помощью IE
;;;  file_html - искомый файл
;;;  Usage
;;;   URL - (ie-open-file-v1 "www.mip.by")
;;;   LOCAL FILE (ie-open-file-v1 "D:\\TEST.JPG")
  (vl-load-com)
  (setq file_html (vl-princ-to-string file_html))
  (if
    (or (= (vla-isurl (vla-get-utility
                        (vla-get-activedocument (vlax-get-acad-object))
                        )
                      file_html
                      )
           :vlax-true
           )
        (and (setq file_html (findfile file_html))
             (vl-file-systime file_html)
             )
        )
     (progn
       (setq ie_obj (vlax-get-or-create-object
                      "InternetExplorer.Application"
                      )
             )
       (vlax-invoke ie_obj 'navigate2 file_html)
       (vla-put-visible ie_obj t)
       (vlax-release-object ie_obj)
       )
     (alert (strcat "Невозможно найти " file_ftml))
     )
  (gc)
  (princ)
  )

(defun ie-open-file-v2 (file_html / ie_obj)
;;;  Открытие файлов с помощью IE
;;;  file_html - искомый файл
;;;  Usage
;;;    URL - (ie-open-file-v2 "www.mip.by")
;;;    LOCAL FILE (ie-open-file-v2 "D:\\TEST.JPG")

  (vl-load-com)
  (setq file_html (vl-princ-to-string file_html))
  (if
    (or (= (vla-isurl (vla-get-utility
                        (vla-get-activedocument (vlax-get-acad-object))
                        )
                      file_html
                      )
           :vlax-true
           )
        (and (setq file_html (findfile file_html))
             (vl-file-systime file_html)
             )
        )
     (progn
       (vlax-invoke-method
         (setq ie_obj (vlax-get-or-create-object "wscript.shell"))
         "run"
         (strcat "Iexplore.exe " file_html)
         1
         :vlax-true
         )
       (vlax-release-object ie_obj)
       )
     (alert (strcat "Невозможно найти " file_ftml))
     )
  (gc)
 (princ)
  )

браузер IE размера 200х400 , без адресной строки, без прокрутки, без статуса, по центру экрана с содержимым например http://dwg.ru ?

С содержимимым

Код:

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

(ie-open-file-v1 "www.dwg.ru")

По поводу размера и адресной строки исследуй объект "InternetExplorer.Application"
Добавлено
Как иллюстрация последнего абзаца
Запуск IE без адресной строки, возможно ли это?

Код:

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

(defun ie-open-file-v11 (file_html / ie_obj)
;;;  Открытие файлов с помощью IE
;;;  file_html - искомый файл
;;;  Usage
;;;   URL - (ie-open-file-v1 "www.mip.by")
;;;   LOCAL FILE (ie-open-file-v11 "D:\\TEST.JPG")
  (vl-load-com)
  (setq file_html (vl-princ-to-string file_html))
  (if
    (or (= (vla-isurl (vla-get-utility
                        (vla-get-activedocument (vlax-get-acad-object))
                        )
                      file_html
                      )
           :vlax-true
           )
        (and (setq file_html (findfile file_html))
             (vl-file-systime file_html)
             )
        )
     (progn
       (setq ie_obj (vlax-get-or-create-object
                      "InternetExplorer.Application"
                      )
             )
       (vlax-invoke ie_obj 'navigate2 file_html)
       (vlax-put-property ie_obj 'AddressBar :vlax-false)
       (vla-put-visible ie_obj t)
       (vlax-release-object ie_obj)
       )
     (alert (strcat "Невозможно найти " file_ftml))
     )
  (gc)
  (princ)
  )

[Димас]

а использование лиспа критично?
вроде как вот такое подходит под описание, но тут vb.net
если интересно, могу код скинуть. там просто все
http://forum.dwg.ru/attachment.php?a...3&d=1216253712

[gabrin]

На форуме Автодеска подсмотрел вот такое решение:

Код:

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

(defun c:pal()
(vl-load-com)
(setq objIEA (vlax-create-object "InternetExplorer.Application"))
(vlax-put-property objIEA "Toolbar" 0)
(vlax-put-property objIEA "StatusBar" 0)
(vlax-put-property objIEA "Width" 400)
(vlax-put-property objIEA "Height" 600)
(vlax-put-property objIEA "Left" 400)
(vlax-put-property objIEA "Top" 50)
(vlax-put-property objIEA "Visible" :vlax-true)
(vlax-invoke objIEA "Navigate2" "http://dwg.ru")
(while (/= 4 (vlax-get-property objIEA "ReadyState"))
(princ ".")
))

А где можно узнать все свойства (vlax-put-property objIEA) ?
А вот так вызывается встроенный браузер Акада

Код:

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

(defun c:brs()
(vl-load-com)
(setq objABR 
(vla-LaunchBrowserDialog
  (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))) ;_Объект utility
  'retstring                                                        ;_Строка возврата запишктся в эту переменную
  "Пример"                                                        ;_Заголовок окна
  "Жми здесь"                                                   ;_Название кнопки OK
  "http://dwg.ru"                                               ;_Стартовая страница
  ""                                                                    ;_? строка (ключ в реестре), содержащий постоянные параметры
  :vlax-true                                                        ;_разрешение выхода с подтверждением
                                                                         ;_:vlax-true - разрешен
                                                                          ;_:vlax-false - запрещен
  )))

Спасибо VVA.
Тока почему то через встроенный браузер не работает технология Автодеска i-drop. Все открывется, а блоки не перетаскиваются.

[_slonik_]

Код:

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

(defun c:pal()
(vl-load-com)
(setq objIEA (vlax-create-object "InternetExplorer.Application"))
(vlax-put-property objIEA "Toolbar" 0)
(vlax-put-property objIEA "StatusBar" 0)
(vlax-put-property objIEA "Width" 400)
(vlax-put-property objIEA "Height" 600)
(vlax-put-property objIEA "Left" 400)
(vlax-put-property objIEA "Top" 50)
(vlax-put-property objIEA "Visible" :vlax-true)
(vlax-invoke objIEA "Navigate2" "http://dwg.ru")
(while (/= 4 (vlax-get-property objIEA "ReadyState"))
(princ ".")
))

А можно к этому коду приписать команду, чтобы было поверх всех окон?

[Salt]

Можно написать приложение к AutoCAD - облегченный браузер на основе .NET компонента WebBrowser, но только немодальный в виде тул-палетты.
Поскольку в основе WebBrowser лежит IE, то технология ActiveX должна поддерживаться, т.е. i-Drop, теоретически, должен функциониовать.
Но можно и без i-Drop. В ответ на нажатия кнопок на веб-странице просто посылать в автокад команды с опциями (такие же макросы, какие допустимы в штатном меню автокада). Иными словами, веб-страница, открытая в этом браузере, становится дополнительной инструментальной палитрой.
За основу можно взять опыт, изложенный в теме http://forum.dwg.ru/showthread.php?t=62138