[原创]显示Windows的MSGBOX对话框

;;;Buttons
;;;
;;;0    OK
;;;1    OK  and  Cancel
;;;2    Abort,  Retry,  and  Ignore
;;;3    Yes,  No,  Cancel
;;;4    Yes  and  No
;;;5    Retry  and  Cancel
;;;(setq  bt_OK  0
            bt_OK_Cancel  1
            bt_Abort_Retry_Ignore  2
            bt_Yes_No_Cancel  3
            bt_Yes_No  4
            bt_Retry_Cancel  5
);;;Icon  Types
;;;
;;;16  Stop  Mark  icon
;;;32  Question  Mark  icon
;;;48  Exclamation  Mark  icon
;;;64  Information  Mark  icon(setq  icon_Stop  16
            icon_Question  32
            icon_Exclamation  48
            icon_Information  64
);;;1    OK  button
;;;2    Cancel  button
;;;3    Abort  button
;;;4    Retry  button
;;;5    Ignore  button
;;;6    Yes  button
;;;7    No  button
(setq  rs_OK  1
            rs_Cancel  2
            rs_Abort  3
            rs_Retry  4
            rs_Ignore  5
            rs_Yes  6  
            rs_No  7)(defun  msgbox  (  msg  timeout  title  buttons  /  ws)
    (setq  ws  (vlax-create-object  "wscript.shell"))
    (vlax-invoke-method  ws  'popup  msg  timeout  title  buttons)
);;;  test
;;;(if  (=  (msgbox  "This  is  a  test  line."  5  "Qiu  Feng"  (+  bt_OK_Cancel  Icon_Question))
;;;              rs_OK)
;;;    (alert  "You  select  OK")
;;;    (alert  "You  select  Cancel")
;;;)