Форум проєктувальників електричних та слабострумних мереж
Автор: gabrin
« : 28 Грудень 2009, 18:25:04 »Добрый день. Хочу выложить на суд свою разработку. Командой Gabrin.NET cоздан инструмент коллективной работы i-DRAW. Идея - единое оформление конструкторской документации людей удаленно работающих над одним проектом. Тестовые испытания проходят по адресу: i-Draw. Буду рад услышать любую критику по данному инструменту. В случае если имеются на этом форуме люди, занимающиеся организацией удаленного проектирования стучите в скайп ( gabrin.net ) буду рад обменяться опытом.
:!: Работает только под Internet Explorer
А вот Лисп, который открывает браузер на нужной странице.
Команда imain
:!: Работает только под Internet Explorer
А вот Лисп, который открывает браузер на нужной странице.
Команда imain
Код: [Select]
(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")
)
)