OpenDCL怎么让对话框自动关闭

pengq2010 · 发表于 2011-4-28 17:35:32

RT，比如对话框出现延时5秒后自行关闭。谢谢各位。

jh1005 · 发表于 2011-4-28 22:55:31

(dcl_DelayedInvoke 5000 FunctionName [as String])
或(command "delay" 5000)
(dcl_Form_Close Test_Form1 {DialogStatus [as Long]}) ;关闭对话框

;详看OpenDcl的Splash.lsp例子

zark · 发表于 2011-4-28 23:31:48

自动关闭对话框这种有什么用呢？感觉没有地方比较需要这种

pengq2010 · 发表于 2011-4-29 08:50:06

回复 jh1005 的帖子

非常感谢~~

pengq2010 · 发表于 2011-4-29 08:55:23

回复 jh1005 的帖子

还是不能自动关闭对话框，需要鼠标点击关闭才行。。

pengq2010 · 发表于 2011-4-29 09:00:44

回复 jh1005 的帖子

;;;
;;; Miscellaneous Sample
;;;
;;; This sample demonstrates miscellaneous controls.
;;;
;; Main program
(defun c:Splash (/ cmdecho)
;; Ensure OpenDCL Runtime is (quietly) loaded
(setq cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "_OPENDCL")
(setvar "CMDECHO" cmdecho)
;; Load the project
(dcl_Project_Load (*ODCL:Samples:FindFile "Splash.odcl"))
;; Show the main form
(dcl_Form_Show splash_Form1)
;; This is a modeless form, so (dcl_Form_Show) returns immediately,
;; leaving the event handlers to manage the form.
(setq *Count* 4)
(C:CloseSplash)
(princ)
)
(defun C:CloseSplash ()
(dcl_Control_SetCaption splash_Form1_Label1 (strcat "Loading..." (itoa *Count*)))
(setq *Count* (1- *Count*))
(if (/= *Count* -1)
(dcl_DelayedInvoke 1000 "C:CloseSplash")
(dcl_Form_close splash_Form1)
)
(princ)
)
;|<<OpenDCL Event Handlers>>|;
(princ)
;|<<OpenDCL Samples Epilog>>|;
;;;######################################################################
;;;######################################################################
;;; The following section of code is designed to locate OpenDCL Studio
;;; sample files in the samples folder by prefixing the filename with
;;; the path prefix that was saved in the registry by the installer.
;;; The global *ODCL:Prefix and function *ODCL:Samples:FindFile
;;; are used throughout the samples.
;;;
(or *ODCL:Samples:FindFile
(defun *ODCL:Samples:FindFile (file)
(setq *ODCL:Prefix
(cond
( *ODCL:Prefix
) ;_ already defined
( (vl-registry-read
"HKEY_CURRENT_USER\\SOFTWARE\\OpenDCL"
"SamplesFolder"
)
) ;_ 32-bit location
( (vl-registry-read
"HKEY_LOCAL_MACHINE\\SOFTWARE\\OpenDCL"
"SamplesFolder"
)
) ;_ 32-bit location
( (vl-registry-read
"HKEY_CURRENT_USER\\SOFTWARE\\Wow6432Node\\OpenDCL"
"SamplesFolder"
)
) ;_ 64-bit location
( (vl-registry-read
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\OpenDCL"
"SamplesFolder"
)
) ;_ 64-bit location
)
)
(cond
((findfile file)) ; check the support path first
(*ODCL:Prefix (findfile (strcat *ODCL:Prefix file)))
(file)
)
)
)
;; If master demo is active, run the main function immediately; otherwise
;; display a banner. The extra gymnastics allow the sample name to be
;; specified in only one place, thus making it easier to reuse this code.
( (lambda (demoname)
(if *ODCL:MasterDemo
(progn
(princ (strcat "'" demoname "\n"))
(apply (read (strcat "C:" demoname)) nil)
)
(progn
(princ (strcat "\n" demoname " OpenDCL sample loaded"))
(princ (strcat " (Enter " (strcase demoname) " command to run)\n"))
)
)
)
"Splash"
)
(princ)
;;;######################################################################
;;;######################################################################
;|玍isual LISP?Format Options?
(80 4 50 2 nil "end of " 80 50 0 0 2 nil nil nil T)
;*** DO NOT add text below the comment! ***|;

;;; 
;;; Miscellaneous Sample 
;;; 
;;; This sample demonstrates miscellaneous controls. 
;;; 
 
;; Main program 
(defun c:Splash (/ cmdecho) 
 
        ;; Ensure OpenDCL Runtime is (quietly) loaded 
        (setq cmdecho (getvar "CMDECHO")) 
        (setvar "CMDECHO" 0) 
        (command "_OPENDCL") 
        (setvar "CMDECHO" cmdecho) 
 
        ;; Load the project 
        (dcl_Project_Load (*ODCL:Samples:FindFile "Splash.odcl")) 
 
        ;; Show the main form 
        (dcl_Form_Show splash_Form1) 
        ;; This is a modeless form, so (dcl_Form_Show) returns immediately, 
        ;; leaving the event handlers to manage the form. 
 
        (setq *Count* 4) 
        (C:CloseSplash) 
 
        (princ) 
) 
 
(defun C:CloseSplash () 
        (dcl_Control_SetCaption splash_Form1_Label1 (strcat "Loading..." (itoa *Count*))) 
        (setq *Count* (1- *Count*)) 
        (if (/= *Count* -1) 
                (dcl_DelayedInvoke 1000 "C:CloseSplash") 
                (dcl_Form_close splash_Form1) 
        ) 
        (princ) 
) 
 
;|<<OpenDCL Event Handlers>>|; 
 
(princ) 
 
;|<<OpenDCL Samples Epilog>>|; 
 
;;;###################################################################### 
;;;###################################################################### 
;;; The following section of code is designed to locate OpenDCL Studio 
;;; sample files in the samples folder by prefixing the filename with 
;;; the path prefix that was saved in the registry by the installer. 
;;; The global *ODCL:Prefix and function *ODCL:Samples:FindFile 
;;; are used throughout the samples. 
;;; 
(or *ODCL:Samples:FindFile 
        (defun *ODCL:Samples:FindFile (file) 
                (setq *ODCL:Prefix 
                        (cond 
                                (        *ODCL:Prefix 
                                ) ;_ already defined 
                                (        (vl-registry-read 
                                                 "HKEY_CURRENT_USER\\SOFTWARE\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 32-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_LOCAL_MACHINE\\SOFTWARE\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 32-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_CURRENT_USER\\SOFTWARE\\Wow6432Node\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 64-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 64-bit location 
                        ) 
                ) 
                (cond 
                        ((findfile file)) ; check the support path first 
                        (*ODCL:Prefix (findfile (strcat *ODCL:Prefix file))) 
                        (file) 
                ) 
        ) 
) 
 
;; If master demo is active, run the main function immediately; otherwise 
;; display a banner. The extra gymnastics allow the sample name to be 
;; specified in only one place, thus making it easier to reuse this code. 
(        (lambda (demoname) 
                (if *ODCL:MasterDemo 
                        (progn 
                                (princ (strcat "'" demoname "\n")) 
                                (apply (read (strcat "C:" demoname)) nil) 
                        ) 
                        (progn 
                                (princ (strcat "\n" demoname " OpenDCL sample loaded")) 
                                (princ (strcat " (Enter " (strcase demoname) " command to run)\n")) 
                        ) 
                ) 
        ) 
        "Splash" 
) 
(princ) 
 
;;;###################################################################### 
;;;###################################################################### 
 
;|玍isual LISP?Format Options? 
(80 4 50 2 nil "end of " 80 50 0 0 2 nil nil nil T) 
;*** DO NOT add text below the comment! ***|;

找到这个例子了，哈哈。可以了~非常感谢

猪是的读着倒 · 发表于 2013-8-20 07:43:26

6楼的是用EDITPLUS的吗？

账号		自动登录	找回密码
密码			注册

[OpenDCL] OpenDCL怎么让对话框自动关闭