[LISP]DCL对话框怎样编写？

瀛丹

想编个对话框，实现用对话框来运行LISP程序，不过没做过不知道怎样开头，那个前辈能做个示例，让小弟自己试着编编？

例如：点一下对话框中的按键，即运行 LINE_XQ.LSP 程序中的 指令 PEXQ，调出对话框文件的LSP又怎样做呢？

请各大侠指教~~~~~ 

alin

这些都是基本的东西，建议你详细阅读帮助文件Working with Programmable Dialog Boxes这一章

下面是帮助文件里的一个例子，改了一行代码

hello : dialog {

    label = "Sample Dialog Box";

    : text { label = "Hello, world."; }

    ok_only;

}

(defun C:HELLO( / dcl_id )
  (setq dcl_id (load_dialog "hello.dcl")) ; Load the DCL file.
  (if (not (new_dialog "hello" dcl_id))   ; Initialize the dialog.
    (exit)                                ; Exit if this doesn’t 
                                          ; work.
  )
 
  (if (= (start_dialog) 1)
     (c:PEXQ))	                       ;如果LINE_XQ.LSP已加载，运行PEXQ                         ; Display the dialog 
                                         
  (unload_dialog dcl_id)                  ; Unload the DCL file.
  (princ)
)

瀛丹

谢谢，，，已经编想要的东西出来了~~ ^.^