Можно и через VBA, но...
А если експрессы не установлены...
А если не Автокад, а Брикскад 8, например...
И вообщче хороший повод COM поизучать (мне:)
VVA
, 30 декабря 2008 в 17:09
#3
Или использовать WScript.Shell пример:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=37110Om
Вариант функции Да-Нет
(defun bg:msg-yes-no ( title message / WScript ret)
;;;; Функция выводит диалоговое окно Да-Нет
;;;;title - заголовок
;;;;message - сообщение
;;;; Возвращает t - Да
;;;; nil - Нет
;;;; По поводу иконок (+ 4 48) см. описание http://msdn2.microsoft.com/en-us/library/x83z1d9f.aspx
;;;; Пример
;;;; (bg:msg-yes-no "Поздравление" "С Новым ГодомnС Новым счастьемnВсех благnВас устаивают эти посздавления?")
(setq WScript (vlax-get-or-create-object "WScript.Shell"))
(setq ret (vlax-invoke-method WScript "Popup" message "0" title (+ 4 48)))
(vlax-release-object WScript)
(= ret 6)
)
gomer
, 05 мая 2009 в 16:14
#4
Wscript.Shell создает глючное окно которое прячется на панель задач!!!!! как это устранить не знаю... Впрочем, это лишь вариация на тему Ведь можно даже через DCL реализовывать
gomer
, 05 мая 2009 в 16:18
#5
С другой стороны это лишь VB6 альтернатива разработки COM интерфейсов.
Комментарии
Авторизоваться
А если експрессы не установлены...
А если не Автокад, а Брикскад 8, например...
И вообщче хороший повод COM поизучать (мне:)
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=37110Om
Вариант функции Да-Нет
(defun bg:msg-yes-no ( title message / WScript ret)
;;;; Функция выводит диалоговое окно Да-Нет
;;;;title - заголовок
;;;;message - сообщение
;;;; Возвращает t - Да
;;;; nil - Нет
;;;; По поводу иконок (+ 4 48) см. описание http://msdn2.microsoft.com/en-us/library/x83z1d9f.aspx
;;;; Пример
;;;; (bg:msg-yes-no "Поздравление" "С Новым ГодомnС Новым счастьемnВсех благnВас устаивают эти посздавления?")
(setq WScript (vlax-get-or-create-object "WScript.Shell"))
(setq ret (vlax-invoke-method WScript "Popup" message "0" title (+ 4 48)))
(vlax-release-object WScript)
(= ret 6)
)