(1)对话框文件(hello.dcl)
hello : dialog{ label = "Sample Dialog Box"; : text { label = "Hello, world"; } ok_only; }
(2)对话框驱动程序(hello.lsp)
(defun c:hello() (setq index_value (load_dialog "d:/hello.dcl")) (if (not (new_dialog "hello" index_value)) (exit) ) (start_dialog) (unload_dialog index_value) (princ) ) |