Дин.блоки+XML+LISP+Интернет= i-DRAW ( первая web палета инструментов) Опции

[gabrin]

Добрый день. Хочу выложить на суд свою разработку. Командой Gabrin.NET cоздан инструмент коллективной работы i-DRAW. Идея - единое оформление конструкторской документации людей удаленно работающих над одним проектом. Тестовые испытания проходят по адресу: i-Draw. Буду рад услышать любую критику по данному инструменту. В случае если имеются на этом форуме люди, занимающиеся организацией удаленного проектирования стучите в скайп ( gabrin.net ) буду рад обменяться опытом.

:!: Работает только под Internet Explorer

А вот Лисп, который открывает браузер на нужной странице.
Команда imain

Код

(defun c:imain()
(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" 800)
(vlax-put-property objIEA "Height" 900)
(vlax-put-property objIEA "Left" 400)
(vlax-put-property objIEA "Top" 50)
(vlax-put-property objIEA "Visible" :vlax-true)
(vlax-invoke objIEA "Navigate" "http://bit.ly/7qLytp")

(while (/= 4 (vlax-get-property objIEA "ReadyState"))
(princ ".")
)
(setq
doc (vlax-get-property objIEA "Document")
body (vlax-get-property doc "Body")
)

)

[gabrin]

Добрый день. Хочу выложить на суд свою разработку. Командой Gabrin.NET cоздан инструмент коллективной работы i-DRAW. Идея - единое оформление конструкторской документации людей удаленно работающих над одним проектом. Тестовые испытания проходят по адресу: i-Draw. Буду рад услышать любую критику по данному инструменту. В случае если имеются на этом форуме люди, занимающиеся организацией удаленного проектирования стучите в скайп ( gabrin.net ) буду рад обменяться опытом.

:!: Работает только под Internet Explorer

А вот Лисп, который открывает браузер на нужной странице.
Команда imain

Код

(defun c:imain()
(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" 800)
(vlax-put-property objIEA "Height" 900)
(vlax-put-property objIEA "Left" 400)
(vlax-put-property objIEA "Top" 50)
(vlax-put-property objIEA "Visible" :vlax-true)
(vlax-invoke objIEA "Navigate" "http://bit.ly/7qLytp")

(while (/= 4 (vlax-get-property objIEA "ReadyState"))
(princ ".")
)
(setq
doc (vlax-get-property objIEA "Document")
body (vlax-get-property doc "Body")
)

)