[求助]请高手指教：如何在lisp文件中调用dcl文件啊？

hkwu029

问题如标题，请问大虾们，如何在LSP文件中调用某一目录下的DCL文件？（最好能有个简单的实例）谢谢！

风之助

（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)
)

HXMCAD

谁有画外壳的实例，能否教导一下。